GraphicItem.Delete-Methode (Visio)

Artikel
04/07/2023

Löscht ein GraphicItem-Objekt aus der GraphicItems-Auflistung eines Master-Objekts vom Typ visTypeDataGraphic.

Hinweis

Dieses Visio-Objekt oder dieses Visio-Mitglied ist nur für lizenzierte Benutzer von Visio Professional 2013 verfügbar.

Syntax

Ausdruck. Löschen

Ausdruck Eine Variable, die ein GraphicItem-Objekt darstellt.

Rückgabewert

Nichts

Bemerkungen

Bevor Sie ein Grafikelement löschen können, müssen Sie die Master.Open-Methode verwenden, um eine Kopie des Datengrafikmasters zu öffnen, zu dessen GraphicItems-Auflistung das Grafikelement gehört. Wenn Sie das Grafikelement gelöscht und alle gewünschten Änderungen vorgenommen haben, führen Sie mit der Master.Close-Methode einen Commit der Änderungen aus.

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mithilfe der Delete-Methode ein vorhandenes Grafikelement aus der GraphicItems-Auflistung eines Master-Objekts löschen. Das Makro löscht das Grafikelement, das der Auflistung zuletzt hinzugefügt wurde, und zeigt die Anzahl der Grafikelemente in der Auflistung der Masterkopie (vor und nach dem Löschvorgang) im Direktfenster an. Nachdem die Masterkopie geschlossen wurde, wird auch die Anzahl der Grafikelemente in der Auflistung des Master-Objekts angezeigt, um zu zeigen, dass an der Kopie vorgenommene Aktionen auch im Master durchgeführt werden.

Das Makro geht davon aus, dass in Ihrem Projekt ein Datengrafikmaster vorhanden ist, in dessen GraphicItems-Auflistung mindestens ein Element vorhanden ist. Sie können den Namen eines vorhandenen Datengrafikmasters ermitteln, indem Sie die Maus über den Master im Aufgabenbereich Datengrafiken auf der Visio-Benutzeroberfläche bewegen. Der Master in diesem Beispiel heißt "Datengrafik".

Public Sub Delete_Example() 
 
    Dim vsoMaster As Visio.Master 
    Dim vsoMasterCopy As Visio.Master 
    Dim intGraphicItemCount As Integer 
 
    Set vsoMaster = ActiveDocument.Masters("Data Graphic") 
    Set vsoMasterCopy = vsoMaster.Open 
     
    intGraphicItemCount = vsoMasterCopy.GraphicItems.Count 
     
    Debug.Print "Before delete", intGraphicItemCount 
    vsoMasterCopy.GraphicItems(intGraphicItemCount).Delete 
    Debug.Print "After delete", vsoMasterCopy.GraphicItems.Count 
    vsoMasterCopy.Close 
    Debug.Print "After close", vsoMaster.GraphicItems.Count 
     
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.

Freigeben über