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 文字を表します。

例

次の使用例は、作業中のプレゼンテーションのスライド 1 の新しいテキスト ボックスの、最初の段落の最初の文の後に登録商標記号を挿入します。

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 のサポートおよびフィードバックを参照してください。