Propriété Shape.Data1 (Visio)

Récupère ou définit la valeur du champ Données 1 d'un objet Shape. Lecture-écriture.

Syntaxe

expression. Data1

Expression Variable qui représente un objet Shape .

Valeur renvoyée

Chaîne

Remarques

Utilisez la propriété Data1 pour fournir des informations supplémentaires sur une forme. Elle peut contenir 64 Ko de caractères. Soyez vigilant lorsque vous utilisez des contrôles de texte avec une chaîne excédant 3 000 caractères. Définir la propriété Data1 équivaut à entrer des informations dans la zone Données 1 de la boîte de dialogue Spécial (cliquez sur Nom de la forme dans le groupe Création de forme sous l’onglet Développeur ).

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment définir les propriétés Data1, Data2 et Data3 d'une forme. Elle affiche les valeurs de ces propriétés dans la fenêtre Exécution. Vous pouvez également vous assurer que ces valeurs ont bien été définies en ouvrant la boîte de dialogue Spécial.

Public Sub Data123_Example() 
 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 
 Set vsoPage = Documents.Add("").Pages(1) 
 Set vsoShape = vsoPage.DrawRectangle(3, 3, 5, 5) 
 
 'Use the Data1, Data2, and Data3 properties to set 
 'the shape's Data fields. 
 vsoShape.Data1 = "Data1_String" 
 vsoShape.Data2 = "Data2_String" 
 vsoShape.Data3 = "Data3_String" 
 
 'Use the Data1, Data2, and Data3 properties to verify 
 'the shape's Data field values. 
 Debug.Print vsoShape.Data1 
 Debug.Print vsoShape.Data2 
 Debug.Print vsoShape.Data3 
 
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.