PowerPoint VBA教程:Characters方法

返回一个 TextRange对象,该对象代表指定字符的子字符串。关于计算或浏览一段文本中字符的详细信息,请参阅TextRange对象。

expression.Characters(Start, Length)

expression  必选。该表达式返回一个 TextRange对象。

Start  可选。Long 类型。返回的文本区域的第一个字符。

Length  可选。Long 类型。要返回的字符数。

说明

如果省略 Start参数和 Length参数,返回的内容为指定组中第一个字符到最后一段。

如果指定 Start参数但省略 Length参数,返回的内容为一个字符。

如果指定 Length参数但省略 Start参数,返回的内容从指定组的第一个字符开始。

如果 Start参数大于指定文本中的字符数,返回的内容从指定组的最后一个字符开始。

如果 Length参数大于文本中从指定的起始字符到文本末尾的字符数,返回的内容包括全部字符。

VBA示例

本示例设置活动演示文稿中第一张幻灯片的第二个形状的文本,并将第二个字符设为偏移 20% 的下标。


Dim charRange As TextRange
With Application.ActivePresentation.Slides(1).Shapes(2)
    Set charRange = .TextFrame.TextRange.InsertBefore("H2O")
    charRange.Characters(2).Font.BaselineOffset = -0.2
End With

本示例将第一张幻灯片上第二个形状的所有下标字符的格式设为加粗。


With Application.ActivePresentation.Slides(1).Shapes(2) _
    .TextFrame.TextRange
    For i = 1 To .Characters.Count
        With .Characters(i).Font
            If .Subscript Then .Bold = True
        End With
    Next
End With

上页:PowerPoint VBA教程:ChangeCase方法 下页:PowerPoint VBA教程:CheckIn方法

PowerPoint VBA教程:Characters方法

PowerPoint VBA教程:CheckIn方法 PowerPoint VBA教程:CheckOut方法
PowerPoint VBA教程:Clear方法 PowerPoint VBA教程:ClearAll方法
PowerPoint VBA教程:Clone方法 PowerPoint VBA教程:CloneNode方法
PowerPoint VBA教程:Close方法 PowerPoint VBA教程:Colors方法
PowerPoint VBA教程:Convert方法 PowerPoint VBA教程:ConvertToAfterEffect方法
PowerPoint VBA教程:ConvertToAnimateBackground方法 PowerPoint VBA教程:ConvertToAnimateInReverse方法
PowerPoint VBA教程:ConvertToBuildLevel方法 PowerPoint VBA教程:ConvertToShape方法
PowerPoint VBA教程:ConvertToTextUnitEffect方法 PowerPoint VBA教程:Copy方法
PowerPoint VBA教程:CreateNewDocument方法 PowerPoint VBA教程:CustomDrop方法
PowerPoint VBA教程:CustomLength方法 PowerPoint VBA教程:Cut方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号