Identifying the shape i clicked

[tonywatsonhelp]

Hi everyone,
So heres the situation,
I have two shapes
one to called Hide12
the other called Unhide12

i want a macro to identify the shapes name simply by the fact i clicked it,
then use a macro that says.
clicked shape hide,
other shape unhide

OK let me make this clearer,
on my page all my shapes are called either "Hide" or "Unhide" followed by a number for example Hide1 matches Unhide1 etc
i want a macro that i can assinge to all these shapes that says this

Get the Clicked shapes name,
if name starts with "Un" the "Hide" + (number on end of name) visible "Unhide" hidden

so i hide one shape show the other
can this be done?

thanks

Tony

 

[Fluff]

Why not just use one shape & change the name from Hide to Unhhide & vice versa every time you click it?

 

[tonywatsonhelp]

There two different shapes! lol

 

[tonywatsonhelp]

I can do the rest so actually thinking about it i just need the bit i'm stuck on

which is if the shapes name is "Unhide1" how do i get the "1" out

 

[Fluff]

There two different shapes! lol

Yes I know that, but why? It would be easier to have one shape that acts as a toggle & you can change the name every time it's clicked.

 

[RoryA]

You can use Activesheet.Shapes(Application.Caller) to get the shape that was clicked.

 

[tonywatsonhelp]

Ok we are getting somewhere thank you everyone.

Why not just use one shape & change the name from Hide to Unhhide & vice versa every time you click it?

There two different shapes! lol

Yes I know that, but why? It would be easier to have one shape that acts as a toggle & you can change the name every time it's clicked.

No you are missing the point, they are two DIFFERENT shapes as in one is a square one is a triangle, and it needs to be this way for my design

so if i can use

You can use Activesheet.Shapes(Application.Caller) to get the shape that was clicked.

to get the shape, how can i do this?

if Activesheet.Shapes(Application.Caller first two letters are "Un" then take the number from the end and unhide "Hide" + nunber on the end???

 

[Fluff]

How about

Sub tonywatson()
   Dim Shp As Shape
   
   Set Shp = ActiveSheet.Shapes(Application.Caller)
   If Left(Shp.name, 2) = "Un" Then
      ActiveSheet.Shapes(Mid(Shp.name, 3)).Visible = True
   Else
      ActiveSheet.Shapes("Un" & Shp.name).Visible = True
   End If
End Sub

 

[RoryA]

You probably want a shp.Visible = False too.

 

[tonywatsonhelp]

Thank you fluff,
thank you rory,
i have what i need now
Thanks
Tony