Shape.RemoveFromCatalogMergeArea-Methode (Publisher)
Entfernt eine Form aus dem Datensatzkatalogbereich der angegebenen Seite. Entfernte Shapes werden nicht gelöscht, sondern verbleiben stattdessen auf der Seite, die den Katalogzusammenführungsbereich enthält.
Syntax
Ausdruck. RemoveFromCatalogMergeArea
Ausdruck Eine Variable, die ein Shape-Objekt darstellt.
Rückgabewert
Nichts
Bemerkungen
Verwenden Sie die AddToCatalogMergeArea-Methode der Shape - oder ShapeRange-Objekte , um einem Katalogzusammenführungsbereich Shapes hinzuzufügen.
Verwenden Sie die RemoveCatalogMergeArea-Methode , um den Katalogzusammenführungsbereich von einer Publikationsseite zu entfernen, aber die darin enthaltenen Shapes belassen.
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für