TextRange symbol メソッド (PowerPoint)TextRange.InsertSymbol method (PowerPoint)

指定したテキスト範囲に挿入された記号を表す**TextRange** オブジェクトを返します。Returns a TextRange object that represents a symbol inserted into the specified text range.


expression.expression. InsertSymbol( _FontName_, _CharNumber_, _UniCode_ )

TextRangeオブジェクトを表す変数を取得します。expression A variable that represents an TextRange object.


名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
FontNameFontName 必須Required StringString フォント名を指定します。The font name.
CharNumberCharNumber 必須Required 長整数型 (Long)Long Unicode または ASCII 文字番号を指定します。The Unicode or ASCII character number.
UnicodeUnicode オプションOptional MsoTriStateMsoTriState 引数 CharNumber が ASCII 文字を表すか Unicode 文字を表すかを指定します。Specifies whether the CharNumber argument represents an ASCII or Unicode character.

戻り値Return value



_charnumber_パラメーターの値に使用できるのは、次に示すMsoTriStateクラスの定数のいずれかです。The CharNumber parameter value can be one of these MsoTriState constants.

定数Constant 説明Description
msoFalsemsoFalse 既定値です。The default. 引数 CharNumber は、ASCII 文字番号を表します。The CharNumber argument represents an ASCII character number.
msoTruemsoTrue 引数 CharNumber は、Unicode 文字を表します。The CharNumber argument represents a Unicode character.


次の使用例は、作業中のプレゼンテーションのスライド 1 の新しいテキスト ボックスの、最初の段落の最初の文の後に登録商標記号を挿入します。This example inserts the registered trademark symbol after the first sentence of the first paragraph in a new text box on the first slide in the active presentation.

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

関連項目See also

TextRange オブジェクトTextRange Object

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.