Question

全部显示

返回 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 不应用于此方法。

msoTrueCharNumber 参数代表一个 Unicode 字符。

示例

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

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