Placement of graphical object on screen

[Guest]

Hi Quartz;

The example I'm giving you is for an image, but, if it is
a button you can set the placement property the same way.

ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Administrator\My
Documents\My Pictures\Sample.jpg"). _
Select
Selection.ShapeRange.IncrementLeft 267#
Selection.ShapeRange.IncrementTop 78.75
With Selection
.Placement = xlFreeFloating
.PrintObject = True
End With

Thanks,

Greg

 

[Guest]

Thanks, but this doesn't work as it still moves the control in relationship
to the cell pointer.

Any other ideas?