Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Dient zum Abrufen oder Festlegen des Werts für das Data1-Feld eines Shape-Objekts. Lese-/Schreibzugriff.
Syntax
Ausdruck. Data1
expression Eine Variable, die ein Shape-Objekt darstellt.
Rückgabewert
Zeichenfolge
Hinweise
Verwenden Sie die Data1-Eigenschaft , um zusätzliche Informationen zu einem Shape bereitzustellen. Die Eigenschaft kann bis zu 64 KB Zeichen enthalten. Textsteuerelemente sollten mit einer Zeichenfolge, die mehr als 3.000 Zeichen umfasst, mit Vorsicht verwendet werden. Das Festlegen der Data1-Eigenschaft entspricht der Eingabe von Informationen in das Feld "Data 1" im Dialogfeld "Spezial" (klicken Sie auf der Registerkarte "Entwickler" in der Gruppe "Shape-Entwurf" auf "Shape-Name").
Beispiel
Dieses Microsoft Visual Basic for Applications (VBA)-Makro zeigt, wie Sie die Eigenschaften Data1, Data2 und Data3 einer Form festlegen. Die Werte dieser Eigenschaften werden im Direktfenster gedruckt. Sie können auch überprüfen, ob diese Werte festgelegt wurden, indem Sie das Dialogfeld Spezial öffnen.
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
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.