次の方法で共有

ShapeRange.MoveIntoTextFlow メソッド (Publisher)

  • [アーティクル]

TextRange オブジェクトによって定義されたテキスト フローに特定の図形を移動します。 図形は、常にテキスト フローの先頭にインラインで挿入されます。

構文

式。MoveIntoTextFlow (範囲)

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

パラメーター

名前 必須 / オプション データ型 説明
Range 必須 TextRange 指定された図形を挿入する位置の後にあるテキスト範囲を指定します。

注釈

MoveIntoTextFlow メソッドは、移動する図形が既にインラインであるか、有効なインライン図形型でない場合に失敗します。 無効なインライン図形の種類は次のとおりです。

  • インライン図形
  • グループ化された図形
  • HTML フラグメント
  • スマート オブジェクト
  • リンクされたテキスト ボックス

例

次の使用例は、文書の第 2 ページの 2 番目の図形がインラインであるかどうかを判定し、インラインでない場合は、指定されたテキスト範囲のテキスト フローの先頭位置にインラインで挿入します。

Dim theShape As Shape 
Dim theRange As TextRange 
 
Set theRange = ActiveDocument.Pages(2).Shapes(1).TextFrame.TextRange 
Set theShape = ActiveDocument.Pages(2).Shapes(2) 
 
If Not theShape.IsInline = msoTrue Then 
 theShape.MoveIntoTextFlow Range:=theRange 
End If

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

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