Clicked shape in EXCEL used as shape object to find its attributes

[Prashanth_Pasunuti]

Hello,

First assign a macro for a shape in EXCEL. When we press the macro how can we make the clicked shape as the object and find its attributes like .top, .left details etc.
What i have done.
'***********************************************
dim shp as shape
set shp = selection

with shp
shape_left = .left
shape_top = .top

end with
'*********************************************
The point is when i click on any shape the macro should run and it should give the corresponding details of that shape.

Please help

 

[RoryA]

Set shp = activesheet.shapes(application.caller)

should do the job.

 

[Prashanth_Pasunuti]

Set shp = activesheet.shapes(application.caller)

should do the job.

Hello sir. done but it is saying " the item with the specified name wasnt found".

Dim myshape As Shape
Set myshape = ActiveSheet.Shapes(Application.Caller)


With myshape
shape_left = .Left
shape_top = .Top
shape_left_width = .Left + .Width
shape_top_height = .Top + .Height
' shape_name = .name
' shape_rgb = .ForeColor
End With

 

[RoryA]

Is the macro assigned to all the shapes? If so, what is the name of the shape that fails? (this method will only work with shape names up to 31 characters)

 

[Prashanth_Pasunuti]

Is the macro assigned to all the shapes? If so, what is the name of the shape that fails? (this method will only work with shape names up to 31 characters)

Macro is assigned to specific shapes only. Its like if i click the shape with macro assigned then it should give the details of the shape.

 

[RoryA]

And what is the name of the shape you were clicking?

 

[Prashanth_Pasunuti]

And what is the name of the shape you were clicking?

shape_xxx_xx_xxx is the name format i have given for my shapes.

 

[RoryA]

Add:

Msgbox Application.Caller

to the start of the code and check if the message matches the shape name