On Action
Try:
Sub test() With ActiveSheet.Shapes(Application.Caller) MsgBox "Top = " & .Top & vbCr & "Left = " & .Left End With End Sub Regards, Greg "borg" wrote: Hi, I have drawn a rectangle and assigned a macro to it. When I click on this rectangle, I would like the macro to display the position of the rectangle. My macro looks something like this: sub macro1 msgbox selection.top end sub I am guessing this doesn't work because the rectangle is not selected when the macro is running? If you can help, it is greatly appreciated. Thanks! |
All times are GMT +1. The time now is 06:52 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com