通过

TextRange.InsertSymbol 方法 (PowerPoint)

  • 项目

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

语法

expression。 InsertSymbol( _FontName_, _CharNumber_, _UniCode_ )

表达 一个代表 TextRange 对象的变量。

参数

名称 必需/可选 数据类型 说明
FontName 必需 String 字体名称。
CharNumber 必需 Long Unicode 或 ASCII 字符编号。
Unicode 可选 MsoTriState 指定 CharNumber 参数代表 ASCII 字符还是 Unicode 字符。

返回值

TextRange

备注

CharNumber 参数值可以是下列 MsoTriState 常量之一。

常量 说明
msoFalse 默认值。 CharNumber 参数代表一个 ASCII 字符编号。
msoTrue CharNumber 参数代表一个 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

另请参阅

TextRange 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。