Assign a macro

[lb]

Hi all,

I try to assign a same macro to some shapes of a windows.

How can I change ItemFromID(x) by the Item I've selected?

Set vsoShape1 = Application.ActiveWindow.Page.Shapes.ItemFromID(2)

Thanks in advance

 

[Paul Herber]

Hi all,

I try to assign a same macro to some shapes of a windows.

How can I change ItemFromID(x) by the Item I've selected?

Set vsoShape1 = Application.ActiveWindow.Page.Shapes.ItemFromID(2)

Set vsoShape1 = Application.ActiveWindow.Selection.Item[1]