View Single Post
  #6  
Old 08-07-2013, 01:42
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Post

Hi.

Maybe helpful:

Code:
Sub LockAllShapesOnCuurentPage()

ActiveDocument.BeginCommandGroup "Lock All Shapes On Current Page"

    Dim s As Shape, ss As Shape, sr As ShapeRange
 
       Set sr = ActivePage.Shapes.FindShapes()

    For Each s In sr

        If Not s.PowerClip Is Nothing Then

            s.PowerClip.EnterEditMode
 
               For Each ss In s.PowerClip.Shapes
                   ActivePage.Shapes.FindShapes().Lock
                Next ss
 
           s.PowerClip.LeaveEditMode
       
 Else
 
           ActivePage.Shapes.FindShapes().Lock
 
       End If

    Next s
 
    ActiveDocument.ClearSelection
    ActiveDocument.EndCommandGroup

End Sub
Greetings

~GrzJanik
Reply With Quote