Shape Change Event

[Brian]

Hello All,

I was wondering if it's possible to write an event based on a change in the
position of a shape. Let's just say, for simplicity sake, that when a user
changes the position of a shape, named "Rect1" that the new position of the
shape is displayed in a MsgBox.

Thanks in advance.

 

[Jim Thomlinson]

The short answer is no. Shapes do not have events associated with them. Even
if they did to move or change a shape you essentailly have to put the sheet
into Design Mode. When you are in Design mode macros don't run.

 

[Brian]

Thanks Jim, my little program would be much sweeter if this could happen, but
oh well.

 

[Brian]

Jim,

I got the following to work when I right-clicked the shape and put assign
macro.

Sub Rect1_Click()
MsgBox Worksheets(1).Shapes("Rect1").Top & ", " _
& Worksheets(1).Shapes("Rect1").Left
End Sub