PowerPoint VBA教程:AutoAttach属性

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

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 标注线附加到标注文本框的位置,取决于标注线原始位置(标注指向的位置)是在标注文本框的左边还是右边。

说明

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

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

VBA示例

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


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

上页:PowerPoint VBA教程:AuthorInitials属性 下页:PowerPoint VBA教程:AutoCorrect属性

PowerPoint VBA教程:AutoAttach属性

PowerPoint VBA教程:AutoCorrect属性 PowerPoint VBA教程:AutoFormat属性
PowerPoint VBA教程:AutoLayout属性 PowerPoint VBA教程:AutoLength属性
PowerPoint VBA教程:AutoLoad属性 PowerPoint VBA教程:AutomationSecurity属性
PowerPoint VBA教程:AutoReverse属性 PowerPoint VBA教程:AutoRotateNumbers属性
PowerPoint VBA教程:AutoShapeType属性 PowerPoint VBA教程:AutoSize属性
PowerPoint VBA教程:AutoUpdate属性 PowerPoint VBA教程:BackColor属性
PowerPoint VBA教程:Background属性 PowerPoint VBA教程:BaseLineAlignment属性
PowerPoint VBA教程:BaselineOffset属性 PowerPoint VBA教程:BeginArrowheadLength属性
PowerPoint VBA教程:BeginArrowheadStyle属性 PowerPoint VBA教程:BeginArrowheadWidth属性
PowerPoint VBA教程:BeginConnected属性 PowerPoint VBA教程:BeginConnectedShape属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号