Метод Document.FindShapesByTag (Publisher)

Статья
04/07/2023

Возвращает объект ShapeRange , представляющий фигуры с указанным тегом.

Синтаксис

expression. FindShapesByTag (TagName)

Выражение Переменная, представляющая объект Document .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
TagName	Обязательный	String	Имя тега.

Возвращаемое значение

ShapeRange

Пример

В этом примере на первую страницу активной публикации добавляются две фигуры, назначается каждому тег, а затем введите имя каждого тега в текстовый кадр назначенной ему фигуры.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через