CalloutFormat.AutoAttach 属性 (Publisher)

返回或设置一个 MsoTriState 常量，该常量指示标注线附加到标注文本框的位置是否发生变化，具体取决于标注线的原点 (标注点) 位于标注文本框的左侧或右侧。 读/写。

语法

表达式。AutoAttach

表达 一个代表 CalloutFormat 对象的变量。

返回值

MsoTriState

备注

AutoAttach 属性值可以是在 Microsoft Office 类型库中声明 MsoTriState 常量之一。

当此属性的值为 msoTrue 时，落差值 (标注文本框边缘到标注线附加位置的垂直距离) 被距离顶部的文本框中时文本框右侧的原点，是和文本框中为起点的左侧时从文本框底端测量。

当此属性的值为 msoFalse 时，垂直距离始终被距离顶部的文本框中，而不考虑文本框和起点的相对位置。 使用 CustomDrop 方法来设置垂直距离，并使用 删除 属性返回垂直距离。

仅当标注具有显式设置的 drop 值（即 DropType 属性的值为 msoCalloutDropCustom 时），设置此属性才影响标注。 默认情况下，标注在创建时会显式设置垂直距离值。

示例

本示例将两个标注添加到第一页。 其中一个标注自动连接，另一个则不自动连接。 如果将自动连接标注的标注线条原点更改到连接文本框的右边，该文本框的位置也会发生改变。 没有自动连接的标注就不会出现这种情况。

With ActivePublication.Pages(1).Shapes 
 With .AddCallout(Type:=msoCalloutTwo, _ 
 Left:=420, Top:=170, Width:=200, Height:=50) 
 .TextFrame.TextRange.Text = "auto-attached" 
 .Callout.AutoAttach = msoTrue 
 End With 
 With .AddCallout(Type:=msoCalloutTwo, _ 
 Left:=420, Top:=350, Width:=200, Height:=50) 
 .TextFrame.TextRange.Text = "not auto-attached" 
 .Callout.AutoAttach = msoFalse 
 End With 
End With 

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。