Assigning Macro To Shape

T

Tommi

Hello!
I need to make a macro that will create a new worksheet, add a Shape-object
(any one which is similar to button), then assign a macro to that Shape.

I haven't been able to do this. The problem is how to select the
Shape-object properly.

Can you help me!

BR, Tommi
 
R

Ron de Bruin

Try something like this
I assume that the macro exist??


Sub test()
Dim Nsheet As Worksheet
Set Nsheet = Worksheets.Add
Nsheet.Shapes.AddShape(msoShapeRectangle, 100, 200, 150, 50).Select
Selection.OnAction = "yourmacro"
Nsheet.Range("A1").Select
End Sub
 
T

Tommi

Thanks very much Ron!
The problem was not anything more than that I didn't select any range after
assigning macro to a Shape and thus it didn't work.
Now it works!

I am glad that it is possible to ask other users who know things better.

BR,
Tommi
 
Top