Documents.Parent プロパティ (Publisher)
指定されたオブジェクトの親オブジェクトを表すオブジェクトを取得します。 たとえば TextFrame オブジェクトの場合は、テキスト ボックスの親図形を表す Shape オブジェクトを取得します。 値の取得のみ可能です。
構文
式。親
式Documents オブジェクトを表す変数。
例
次の使用例は、選択した図形の親オブジェクトにアクセスし、その親オブジェクトに新しい図形を追加した後、その図形を塗りつぶします。
Sub ParentObject()
Dim shp As Shape
Dim pg As Page
Set pg = Selection.ShapeRange(1).Parent
Set shp = pg.Shapes.AddShape(Type:=msoShape5pointStar, _
Left:=72, Top:=72, Width:=72, Height:=72)
shp.Fill.ForeColor.RGB = RGB(Red:=180, Green:=180, Blue:=180)
End Sub
次の使用例は、テキスト ボックスの親オブジェクト (作業中の文書内の最初の図形) を取得し、その図形をパターンで塗りつぶします。
Sub ParentShape()
Dim shpParent As Shape
Set shpParent = ActiveDocument.Pages(1).Shapes(1).TextFrame.Parent
shpParent.Fill.Patterned Pattern:=msoPatternSphere
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。