次の方法で共有

TextRange.InsertSymbol メソッド (Publisher)

  • [アーティクル]

指定した範囲または選択範囲の代わりに挿入されたシンボルを表す TextRange オブジェクトを返します。

構文

式。InsertSymbol (FontName, CharIndex)

式TextRange オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
FontName 必須 String 該当する記号を含むフォントの名前を指定します。
CharIndex 必須 Long 指定したシンボルの Unicode 文字。

戻り値

TextRange

注釈

範囲または選択範囲を置き換えたくない場合は、このメソッドを使用する前に Collapse メソッドを使用します。

例

次の使用例は、両端に矢頭が付いた矢印をカーソル位置に挿入します。

Sub Insert Arrow() 
    ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _ 
            .Paragraphs(Start:=1, Length:=1).Select
    With .TextFrame.TextRange 
            .InsertPageNumber 
            .Collapse Direction:= pbCollapseStart
            .InsertSymbol FontName:="Symbol", CharIndex:=171
        End With 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。