How to change the position of a sheet object by using macro ?

[#1]

Hi,

I have button object and i need a macro that changes the position of this button.

Does the api lets this or not ?

Thank you.

[m_woolf · Accepted solution]

This is from the API Guide:

rem ** move all objects on active sheet 20 pixels down and 15 right **

set sh = ActiveDocument.ActiveSheet

for i = 0 to sh.NoOfSheetObjects-1

    set obj = sh.SheetObjects(i)

    pos = obj.GetRect

    pos.Top = pos.Top + 20

    pos.Left = pos.Left + 15

    obj.SetRect pos

next