Cell.Shape-Eigenschaft (Visio)
Gibt das Shape-Objekt zurück, das ein Cell-, Characters-, Row- oder Section-Objekt besitzt oder einem Hyperlink - oder OLEObject-Objekt oder der Hyperlinks-Auflistung zugeordnet ist. Schreibgeschützt.
Ausdruck. Form
Ausdruck Eine Variable, die ein Cell-Objekt darstellt.
Form
Das folgende VBA-Makro (Microsoft Visual Basic für Applikationen) zeigt, wie die Shape-Eigenschaft verwendet werden kann, um die Shape-Objekte abzurufen, die ein Cell- und ein Characters-Objekt besitzen:
Public Sub Shape_Example()
Dim vsoRectangle As Visio.Shape
Dim vsoOval As Visio.Shape
Dim vsoShapeFromCell As Visio.Shape
Dim vsoShapeFromCharacters As Visio.Shape
Dim vsoCell As Visio.Cell
Dim vsoCharacters As Visio.Characters
'Create 2 different shapes and add different text to each shape.
Set vsoRectangle = ActivePage.DrawRectangle(2, 3, 5, 4)
Set vsoOval = ActivePage.DrawOval(2, 5, 5, 7)
vsoRectangle.Text = "Rectangle Shape"
vsoOval.Text = "Oval Shape"
'Get a Cell object from the first shape.
Set vsoCell = vsoRectangle.Cells("Width")
'Get a Characters object from the second shape.
Set vsoCharacters = vsoOval.Characters
'Use the Shape property to get the Shape object.
Set vsoShapeFromCell = vsoCell.Shape
Set vsoShapeFromCharacters = vsoCharacters.Shape
'Use each shape's text to verify the proper Shape
'object was returned.
Debug.Print vsoShapeFromCell.Text
Debug.Print vsoShapeFromCharacters.Text
End Sub
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.