PowerPoint VBA教程:InsertSymbol方法

返回TextRange对象,该对象代表一个插入到指定文本范围的符号。

expression.InsertSymbol(FontName, CharNumber, UniCode)

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

FontName  必选。String 类型。字体名称。

CharNumber  必选。Long 类型。Unicode 或 ASCII 字符编码。

Unicode  可选。MsoTriState 类型。指定 CharNumber参数是代表 ASCII 字符还是 Unicode 字符。

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此方法。
msoFalse 默认值。CharNumber参数代表一个 ASCII 字符编码。
msoTriStateMixed 不应用于此方法。
msoTriStateToggle 不应用于此方法。
msoTrue CharNumber参数代表一个 Unicode 字符。

VBA示例

本示例在当前演示文稿第一张幻灯片上的新文本框的第一段第一句后插入注册商标符号。


Sub Symbol()
    Dim txtBox As Shape
    'Add text box
    Set txtBox = Application.ActivePresentation.Slides(1) _
        .Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
            Left:=100, Top:=100, Width:=100, Height:=100)
    'Add symbol to text box
    txtBox.TextFrame.TextRange.InsertSymbol _
        FontName:="Symbol", CharNumber:=226
End Sub

上页:PowerPoint VBA教程:InsertSlideNumber方法 下页:PowerPoint VBA教程:Item方法

PowerPoint VBA教程:InsertSymbol方法

PowerPoint VBA教程:Item方法 PowerPoint VBA教程:LargeScroll方法
PowerPoint VBA教程:Last方法 PowerPoint VBA教程:Lines方法
PowerPoint VBA教程:Load方法 PowerPoint VBA教程:LtrRun方法
PowerPoint VBA教程:Merge方法 PowerPoint VBA教程:MoveAfter方法
PowerPoint VBA教程:MoveBefore方法 PowerPoint VBA教程:MoveNode方法
PowerPoint VBA教程:MoveTo方法 PowerPoint VBA教程:Name方法
PowerPoint VBA教程:NewWindow方法 PowerPoint VBA教程:Next方法
PowerPoint VBA教程:NextNode方法 PowerPoint VBA教程:OfflineConflict Method
PowerPoint VBA教程:OneColorGradient方法 PowerPoint VBA教程:Open方法
PowerPoint VBA教程:Paragraphs方法 PowerPoint VBA教程:Paste方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号