CatalogMergeShapes 物件 (Publisher)
代表指定之出版物的型錄合併列印區域中所包含的圖案。
註解
型錄合併列印區域是自動調整大小來容納大於合併區域，或在新增時位於型錄合併區之外的物件。
如果型錄合併列印區域大小減小或被移動了，則型錄合併列印區域內的圖案會自動調整大小或重新定位。
除了您選擇的其他設計項目之外，型錄合併列印區域還可以包含您插入的圖片和文字資料欄位。
使用Shape 或ShapeRange物件的CatalogMergeItems屬性可傳回型錄合併列印區域的內容。
您可以使用 Shape 或 ShapeRange 物件的 AddToCatalogMergeArea 方法，將圖案新增至型錄合併列印區域。
使用 CatalogMergeItems (索 引) ，其中 index 是索引編號，可傳回單一型錄合併列印區域圖形。
使用 Shape 或 ShapeRange 物件的 RemoveFromCatalogMergeArea 方法可將圖案從型錄合併列印區域中移除。 移除的圖案不會被刪除，但是會放在包含型錄合併列印區域的出版物頁面上。
範例
下列範例會測試指定的出版物是否包含型錄合併列印區域。 如果是，它會傳回其包含的圖形清單。
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
下列範例會將矩形新增到所指定出版物中的型錄合併列印區域。 本範例假設已將型錄合併列印區域新增至出版物的第一頁。
ThisDocument.Pages(1).Shapes.AddShape(1, 80, 75, 450, 125).AddToCatalogMergeArea
下列範例會移除型錄合併列印區域中的第一個圖案。
ThisDocument.Pages(1).Shapes(1).CatalogMergeItems(1).RemoveFromCatalogMergeArea
下列範例會測試指定的出版物是否包含型錄合併列印區域。 如果有包含的話，就會從型錄合併列印區域中移除並刪除所有圖案，然後從出版物中移除型錄合併列印區域。
Sub DeleteCatalogMergeAreaAndAllShapesWithin()
Dim pgPage As Page
Dim mmLoop As Shape
Dim intCount As Integer
Dim strName As String
For Each pgPage In ThisDocument.Pages
For Each mmLoop In pgPage.Shapes
If mmLoop.Type = pbCatalogMergeArea Then
With mmLoop.CatalogMergeItems
For intCount = .Count To 1 Step -1
strName = mmLoop.CatalogMergeItems.Item(intCount).Name
.Item(intCount).RemoveFromCatalogMergeArea
pgPage.Shapes(strName).Delete
Next
End With
mmLoop.RemoveCatalogMergeArea
End If
Next mmLoop
Next pgPage
End Sub
方法
屬性
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。