本示例将判断当前文档图形1是否锁定标记,如果没有锁定,则将图形1上锁。

If Not ActiveDocument.Shapes(1).LockAnchor Then
    ActiveDocument.Shapes(1).LockAnchor = True
End If