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
-----Original Message-----
Hello. I have a program that creates an activeX control
on a sheet whenever a
user clicks a button.

The problem is, right now, the object is placed on the
sheet at the cell
pointer.

I would like the object to always appear approximately
center of the screen
(doesn't have to be perfect) regardless of user location.

Any clue how I can do this?
.

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

Any other ideas?

" wrote:

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
-----Original Message-----
Hello. I have a program that creates an activeX control
on a sheet whenever a
user clicks a button.

The problem is, right now, the object is placed on the
sheet at the cell
pointer.

I would like the object to always appear approximately
center of the screen
(doesn't have to be perfect) regardless of user location.

Any clue how I can do this?
.