View Single Post
Old 22-03-2014, 16:48
HeauxmBru HeauxmBru is offline
Junior Member
Join Date: Jan 2011
Posts: 17

Is this what you were looking for?

You have various shapes on various layers. You want to add a new shape with an old shape on
another layer, but, you are not on that layer. Select the old shape and run this code.

Sub GoToObjectLayer()

    Dim lr As Layer
    Dim d As Document
    Set d = ActiveDocument
    Set lr = d.ActiveShape.Layer
End Sub
You "jump" to the old shape's layer. Now create the new shape.
Reply With Quote