Shape.RemoveCatalogMergeArea-Methode (Publisher)

Löscht den Datensatzkatalogbereich aus der angegebenen Publikationsseite. Alle Formen, die im Datensatzkatalogbereich enthalten sind, verbleiben auf der Seite, sind aber nicht mehr mit der Datenquelle für den Datensatzkatalog verbunden.

Syntax

Ausdruck. RemoveCatalogMergeArea

Ausdruck Eine Variable, die ein Shape-Objekt darstellt.

HinwBemerkungeneise

Durch das Entfernen eines Datensatzkatalogbereichs aus einer Publikationsseite wird die Verbindung zwischen der Datenquelle und der Publikation nicht unterbrochen. Verwenden Sie die IsDataSourceConnected -Eigenschaft des Document -Objekts, um zu ermitteln, ob eine Datenquelle mit einer Publikation verbunden ist.

Verwenden Sie die AddCatalogMergeArea -Methode der Shapes -Auflistung, um einer Publikation einen Datensatzkatalogbereich hinzuzufügen. Eine Publikationsseite kann nur einen Datensatzkatalogbereich enthalten.

Beispiel

Das folgende Beispiel prüft, ob eine Seite der angegebenen Publikation einen Datensatzkatalogbereich enthält. Wenn dies der Fall ist, werden alle Formen aus dem Datensatzkatalogbereich entfernt und gelöscht, und der Datensatzkatalogbereich wird dann aus der Publikation entfernt.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.