Свойство Shape.CatalogMergeItems (Publisher)

Статья
04/07/2023

Возвращает коллекцию CatalogMergeShapes , представляющую фигуры, включенные в область объединения каталога. Только для чтения.

Синтаксис

expression. CatalogMergeItems

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

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

CatalogMergeShapes

Замечания

Область слияния каталога может содержать вставленные поля рисунков и текстовых данных в дополнение к другим выбранным элементам оформления.

Пример

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

Sub ListCatalogMergeAreaContents() 
 
 Dim pgPage As Page 
 Dim mmLoop As Shape 
 Dim intCount As Integer 
 
 For Each pgPage In ThisDocument.Pages 
 For Each mmLoop In pgPage.Shapes 
 
 If mmLoop.Type = pbCatalogMergeArea Then 
 
 With mmLoop.CatalogMergeItems 
 For intCount = 1 To .Count 
 Debug.Print "Shape ID: " & _ 
 mmLoop.CatalogMergeItems.Item(intCount).ID 
 Debug.Print "Shape Name: " & _ 
 mmLoop.CatalogMergeItems.Item(intCount).Name 
 Next 
 End With 
 
 End If 
 
 Next mmLoop 
 Next pgPage 
 
End Sub

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

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

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