TextRange.InlineShapes プロパティ (Publisher)

テキスト範囲に含まれるインライン図形を表す InlineShapes コレクションを返します。 値の取得のみ可能です。

構文

式。InlineShapes

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

戻り値

InlineShapes

注釈

を使用すると TextFrame.Story.TextRange.InlineShapes 、オーバーフローしている図形を含め、テキスト フレーム内のすべてのインライン図形が返されます。

を使用すると TextFrame.TextRange.InlineShapes 、テキスト フレームに表示されるインライン図形のみが返され、オーバーフローしている図形は返されません。

例

作業中の文書の 1 ページ目の最初の図形 (テキスト ボックス) を検索する例を次にします。 InlineShapes プロパティは、テキスト ボックスにインライン図形が存在するかどうかを決定する使用されます。 いずれかが見つかった場合、各インライン図形を垂直方向に反転し、前景色を赤に設定します。

を使用 TextFrame.Story.TextRange.InlineShapesすると、オーバーフロー内にあるインライン図形も検出されることに注意してください。

Dim theShape As Shape 
Dim i As Integer 
 
Set theShape = ActiveDocument.Pages(1).Shapes(1) 
 
With theShape.TextFrame.Story.TextRange 
 If .InlineShapes.Count > 0 Then 
 For i = 1 To .InlineShapes.Count 
 .InlineShapes(i).Flip (msoFlipVertical) 
 .InlineShapes(i).Fill.ForeColor.RGB = vbRed 
 Next 
 End If 
End With

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

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