本示例将判断当前文档图形1是否锁定标记,如果没有锁定,则将图形1上锁。
If Not ActiveDocument.Shapes(1).LockAnchor Then
ActiveDocument.Shapes(1).LockAnchor = True
End If