PowerPoint) (TextRange.InsertSymbol 方法

會傳回 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 支援與意見反應。