Cal的文本框和箭头在页面各处徘徊时遇到问题。

他想知道是否有一种方法可以将锚锁定为默认值，而不是必须为他添加的每个文本框和图形锁定锚。

简短的答案是没有办法。原因是，当大多数人没有将锚定对象放置在文档中的第一位时，锁定锚定就没有多大意义。例如，虽然您可能能够正确判断文本框的位置（并因此从一开始就将其锚定），但很有可能在添加箭头后需要移动和调整箭头。直到发生移动和调整之后，将它们锚定并没有多大用处。

快速访问工具栏”或快捷键中，以便您可以选择一个对象并简单地切换是否锚定该对象。当您有很多对象时，这将节省大量时间，因为您无需经历显示对话框和更改锚设置的麻烦。

Sub ToggleShapeAnchor()

If Selection.Type = wdSelectionShape Then  For Each Shape In Selection.ShapeRange   Shape.LockAnchor = Not Shape.LockAnchor  Next  End If End Sub

请注意，这是一个真正的“切换”，这意味着如果所选的一个或多个形状先前已锚定，则运行宏将取消锚定它们。

如果希望宏仅锚定而不取消锚定，请改用此宏。

Sub AnchorShapes()

If Selection.Type = wdSelectionShape Then  For Each Shape In Selection.ShapeRange   Shape.LockAnchor = True  Next  End If End Sub

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（7749）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

默认锚定对象。