Propriedade WebPageOptions.Parent (Publisher)
Retorna um objeto que representa o objeto pai do objeto especificado. Por exemplo, para um objeto TextFrame, retorna um objeto Shape que representa a forma pai do quadro de texto. Somente leitura.
Sintaxe
expressão. Pai
Expressão Uma variável que representa um objeto WebPageOptions .
Exemplo
Este exemplo acessa o objeto pai da forma selecionada e, em seguida, adiciona uma nova forma a ele e configura o preenchimento para a nova forma.
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
Este exemplo retorna o objeto pai de um quadro de texto, que é a primeira forma na publicação ativa e, em seguida, preenche a forma com um padrão.
Sub ParentShape()
Dim shpParent As Shape
Set shpParent = ActiveDocument.Pages(1).Shapes(1).TextFrame.Parent
shpParent.Fill.Patterned Pattern:=msoPatternSphere
End Sub
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.