Shape.Locked

Property Locked As Boolean

Member of Shape

The Locked property determines whether the position of a shape is locked on a page.

The following code example calculates how many shapes are locked on the active page in the current document:

Sub Test() 
 Dim s As Shape 
 Dim n As Long 
 n = 0 
 For Each s In ActivePage.Shapes 
  If s.Locked Then n = n + 1 
 Next s 
 MsgBox "There are " & n & " shapes locked on the current page" 
End Sub