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 支持和反馈，获取有关如何接收支持和提供反馈的指南。