Command Buttons Location
 

When I am creating a new button I have a chance of making it any size
and place it wherever I want to:

ActiveSheet.OLEObjects.Add(ClassType:="Forms.Comma ndButton.1",
Link:=False, DisplayAsIcon:=False, Left:=413.25, Top:=48.75, Width:=72,
Height:=24).Select


I can also move it with respect to its location:

With Worksheets("Sheet1")
Set Button = .OLEObjects("CommandButton1")
ActiveSheet.Shapes("CommandButton1").Select
Selection.ShapeRange.IncrementLeft 100
Selection.ShapeRange.IncrementTop -200
End With

But how do I move it with respect to the original coordinates?

Thank you,


--
pontiy
------------------------------------------------------------------------
pontiy's Profile: http://www.excelforum.com/member.php...o&userid=32885
View this thread: http://www.excelforum.com/showthread...hreadid=527267

Command Buttons Location
 

With Worksheets("Sheet1")
Dim b as OleObject
Set b = .OLEObjects("CommandButton1")
b.Top = b.top + 10
b.Left = b.Left + 1
End With

also width and Height properties.


--
Regards,
Tom Ogilvy



"pontiy" wrote:


When I am creating a new button I have a chance of making it any size
and place it wherever I want to:

ActiveSheet.OLEObjects.Add(ClassType:="Forms.Comma ndButton.1",
Link:=False, DisplayAsIcon:=False, Left:=413.25, Top:=48.75, Width:=72,
Height:=24).Select


I can also move it with respect to its location:

With Worksheets("Sheet1")
Set Button = .OLEObjects("CommandButton1")
ActiveSheet.Shapes("CommandButton1").Select
Selection.ShapeRange.IncrementLeft 100
Selection.ShapeRange.IncrementTop -200
End With

But how do I move it with respect to the original coordinates?

Thank you,


--
pontiy
------------------------------------------------------------------------
pontiy's Profile: http://www.excelforum.com/member.php...o&userid=32885
View this thread: http://www.excelforum.com/showthread...hreadid=527267