GraphicItem.Delete-Methode (Visio)

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

Syntax

Ausdruck.Delete

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 der Datengrafik zu bearbeiten master der GraphicItems-Auflistung, zu der 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 eine datengrafik master vorhanden ist, in deren 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. Die 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.