Rectangle that activates a macro

[Guest]

I have a macro assigned to a number of rectangles. When a
specific rectangle is clicked to activate the macro, I
need the macro to identify which rectangle (ex: "Rectangle
3") was clicked to activate the macro.
How would I do that?

 

[Tom Ogilvy]

Assign the macro to that rectangle


Public Sub Rec_click()
Dim sname as String
Dim rec as Rectangle

sName = application.caller
set rec = activeSheet.Rectangels(sName)
msgbox rec.Name
End Sub

 

[PaulD]

I would guess each rectangle has an on_click event so just pass some
indentifier as an arguement to your macro. Something like this
Private Sub Rectangle1_Click()
yourmacro "rec1"
End Sub
Private Sub Rectangle2_Click()
yourmacro "rec2"
End Sub

then for your macro

Sub yourmacro(WhichRectangle as String)
your code here
End Sub

the value WhichRectangle will tell you what was clicked to start your macro

Paul D

 

[JE McGimpsey]

Take a look at Application.Caller..

Public Sub LotsOfCallers()
Dim sWhich As String
sWhich = Application.Caller
MsgBox sWhich
End Sub