PowerPoint VBA教程:Length属性

应用于 CalloutFormat对象的 Length属性。

当指定标注的AutoLength属性设为 False 时,Length属性返回标注线的第一段(添加到文本标注框中的部分)的长度(以磅为单位)。仅应用于标注线多于一段的标注(msoCalloutThree 和 msoCalloutFour 类型)。只读。Float 类型。使用CustomLength方法为 CalloutFormat对象设置该属性的值。

expression。Length

expression  必选。该表达式返回上述对象之一。

 

应用于 TextRange对象的 Length属性。

以字符方式返回指定文本范围的长度。只读。Long 类型。

expression。Length

expression  必选。该表达式返回上述对象之一。

VBA示例

应用于 CalloutFormat 对象。

如果标注“co1”的第一段有固定的长度,本示例将标注“co2”的第一段也指定为该固定长度。要执行该示例,两个标注都必须有多个段。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    With .Item("co1").Callout
        If Not .AutoLength Then len1 = .Length
    End With
    If len1 Then .Item("co2").Callout.CustomLength len1
End With

应用于 TextRange对象。

如果第二张幻灯片的标题含有五个以上字符,本示例将标题的字体大小设为 48 磅,如果标题为五个或五个以下字符,则将字体大小设为 72 磅。


Set myDocument = ActivePresentation.Slides(2)
With myDocument.Shapes(1).TextFrame.TextRange
    If .Length > 5 Then
        .Font.Size = 48
    Else
        .Font.Size = 72
    End If
End With

上页:PowerPoint VBA教程:LeftMargin属性 下页:PowerPoint VBA教程:Levels属性

PowerPoint VBA教程:Length属性

PowerPoint VBA教程:Levels属性 PowerPoint VBA教程:Line属性
PowerPoint VBA教程:LineRuleAfter属性 PowerPoint VBA教程:LineRuleBefore属性
PowerPoint VBA教程:LineRuleWithin属性 PowerPoint VBA教程:LinkFormat属性
PowerPoint VBA教程:Loaded属性 PowerPoint VBA教程:LockAspectRatio属性
PowerPoint VBA教程:LoopSoundUntilNext属性 PowerPoint VBA教程:LoopUntilStopped属性
PowerPoint VBA教程:Magenta Property PowerPoint VBA教程:MainSequence属性
PowerPoint VBA教程:MarginBottom属性 PowerPoint VBA教程:MarginLeft属性
PowerPoint VBA教程:MarginRight属性 PowerPoint VBA教程:MarginTop属性
PowerPoint VBA教程:Master属性 PowerPoint VBA教程:MediaType属性
PowerPoint VBA教程:MotionEffect属性 PowerPoint VBA教程:Name属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号