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

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.


Code:
Sub GoToObjectLayer()

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