次の方法で共有

ShapeRange.IsInline プロパティ (Publisher)

  • [アーティクル]

図形がインラインかどうかを指定する MsoTriState 定数を返します。 読み取り専用です。

構文

式。IsInline

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

例

次の使用例は、これがインラインであるかどうかを文書の最初のページの最初の図形 (テキスト ボックス) をテストします。 そうでない場合は、テキスト フレーム内のすべてのインライン図形を検索するには、その図形内で検索が行われます。 含まれるインライン図形には、 ForeColor プロパティを赤に設定があります。

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

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

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