The Locked property determines whether the position of a shape is locked on a page.
Examples:
The following VBA 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