InsertSymbol メソッド

  • [アーティクル]
Microsoft PowerPoint Visual Basic リファレンス

InsertSymbol メソッド

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

expression**.InsertSymbol**(FontName, CharNumber, UniCode)

*expression *  必ず指定します。TextRange オブジェクトを返すオブジェクト式を指定します。

FontName  必ず指定します。文字列型 (String) の値を指定します。フォント名を指定します。

CharNumber  必ず指定します。長整数型 (Long) の値を指定します。Unicode または ASCII コード番号を指定します。

Unicode* 省略可能です。**MsoTriState クラスの定数を使用します。引数 CharNumber が ASCII 文字または Unicode 文字を表すかを指定します。*

使用できる定数は、次に示す MsoTriState クラスの定数のいずれかです。
msoCTrue このメソッドには適用されません。
msoFalse (既定値) 引数 CharNumber は、ASCII 文字番号を表します。
msoTriStateMixed このメソッドには適用されません。
msoTriStateToggle このメソッドには適用されません。
msoTrue 引数 CharNumber は、Unicode 文字を表します。

使用例

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

Sub Symbol()
    Dim txtBox As Shape

    'テキスト ボックスを追加します。
    Set txtBox = Application.ActivePresentation.Slides(1) _
        .Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
            Left:=100, Top:=100, Width:=100, Height:=100)

    'テキスト ボックスに記号を追加します。
    txtBox.TextFrame.TextRange.InsertSymbol _
        FontName:="Symbol", CharNumber:=226

End Sub