Método Document.FindShapesByTag (Publisher)

Retorna um objeto ShapeRange que representa as formas com o rótulo especificado.

Sintaxe

expressão. FindShapesByTag (TagName)

Expressão Uma variável que representa um objeto Document .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
TagName	Obrigatório	String	O nome do rótulo.

Valor de retorno

ShapeRange

Exemplo

Este exemplo adiciona duas formas à primeira página da publicação ativa, atribui um rótulo a cada uma e, em seguida, insere o nome de cada rótulo no quadro de texto de sua forma associada.

Sub FindShape() 
 Dim strTag1 As String 
 Dim strTag2 As String 
 
 With ActiveDocument.Pages(1).Shapes 
 With .AddShape(Type:=msoShape5pointStar, Left:=50, _ 
 Top:=50, Width:=75, Height:=75) 
 strTag1 = .Tags.Add(Name:="Star", _ 
 Value:="This is a star.").Name 
 End With 
 
 With .AddShape(Type:=msoShapeHeart, Left:=100, _ 
 Top:=100, Width:=75, Height:=75) 
 strTag2 = .Tags.Add(Name:="Heart", _ 
 Value:="This is a heart.").Name 
 End With 
 End With 
 
 With ActiveDocument 
 .FindShapesByTag(TagName:=strTag1).TextFrame _ 
 .TextRange.Text = strTag1 
 .FindShapesByTag(TagName:=strTag2).TextFrame _ 
 .TextRange.Text = strTag2 
 End With 
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.