AutoAttach 属性

       

根据标注线的原始位置(标注指向的位置)是在标注文本框的左边还是右边,决定标注线附加到标注文本框的位置。可读写。MsoTriState 类型。

说明

当该属性值为 msoTrue 时,如果文本框位于原始位置右侧,则下移值(从标注文本框的边界到标注线附加位置的垂直距离)从文本框顶部开始测量;如果文本框位于原始位置左侧,则下移值从文本框底部开始测量。当该属性值为 msoFalse 时,下移值总是从文本框顶部开始测量,而不管文本框与原始位置的相对位置。使用 CustomDrop 方法设置下移值,并使用 Drop 属性返回下移值。

仅当明确设置下移值(即 DropType 属性值为 msoCalloutDropCustom)后,设置该属性才会影响标注。默认情况下,创建标注时已经明确设置了下移值。

示例

本示例为第一张幻灯片添加两个标注,其中一个是自动附加的,另一个则不是。如果将自动附加标注的标注行的原始位置改到附加的文本框的右侧,该文本框的位置就会发生变化。而对于非自动附加的标注则不会存在此现象。

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    With .AddCallout(msoCalloutTwo, 420, 170, 200, 50)
        .TextFrame.TextRange.Text = "auto-attached"
        .Callout.AutoAttach = msoTrue
    End With
    With .AddCallout(msoCalloutTwo, 420, 350, 200, 50)
        .TextFrame.TextRange.Text = "not auto-attached"
        .Callout.AutoAttach = msoFalse
    End With
End With