Command Buttons Location

[pontiy]

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.CommandButton.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,

 

[Tom Ogilvy]

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.

 

[pontiy]

Thanks That Helped!!!