GraphicItem.Delete, méthode (Visio)

Article
04/07/2023

Cette méthode supprime un objet GraphicItem de la collection GraphicItems d'un objet Master de type visTypeDataGraphic.

Remarque

Cet objet ou ce membre Visio est disponible uniquement pour les titulaires d’une licence d’utilisation de Visio Professionnel 2013.

Syntaxe

expression. Supprimer

Expression Variable qui représente un objet GraphicItem .

Valeur renvoyée

Aucune

Remarques

Avant de pouvoir supprimer un élément graphique, vous devez utiliser la méthode Master.Open pour l’ouvrir afin de modifier une copie de la forme de base du graphique de données dont l’élément graphique appartient à la collection GraphicItems. Une fois que vous avez supprimé l’élément graphique et effectué les modifications souhaitées, utilisez la méthode Master.Close pour valider ces modifications.

Exemple

La macro Microsoft Visual Basic pour Applications (VBA) suivante indique comment utiliser la méthode Delete pour supprimer un élément graphique existant de la collection GraphicItems d'un objet Master. Elle supprime le dernier élément graphique ajouté à la collection et imprime le nombre d'éléments graphiques contenus dans la collection de la forme de base, avant et après la suppression, dans la fenêtre Exécution. Après avoir refermé la copie de la forme de base, elle imprime aussi le nombre d'éléments graphiques de la collection de cette forme de base, pour indiquer que les actions effectuées dans la copie ont été validées dans la forme de base.

La macro suppose qu'il existe dans votre projet une forme de base de graphique de données dont la collection GraphicItems possède au moins un membre. Vous pouvez déterminer le nom d'une forme de base de graphique existante en déplaçant la souris sur cette forme de base dans le volet Office Graphiques de données de l'interface utilisateur de Visio. Dans cet exemple, la forme de base est appelée « Data Graphic ».

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via