TextRange.InsertSymbol メソッド (PowerPoint)

  • [アーティクル]

指定したテキスト範囲に挿入された記号を表す TextRange オブジェクトを返します。

構文

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