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 einer Zelle. Lese-/Schreibzugriff.
Syntax
Ausdruck. Ergebnis (UnitsNameOrCode)
Ausdruck Eine Variable, die ein Cell-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| UnitsNameOrCode | Erforderlich | Variant | Die zu verwendenden Einheiten beim Abrufen oder Festlegen des Zellwerts. |
Rückgabewert
Gleitkommawert mit doppelter Genauigkeit
Hinweise
Verwenden Sie die Result-Eigenschaft, um den Wert einer ungeschützten Zelle festzulegen. Wird die Formel der Zelle durch die GUARD-Funktion geschützt, bleibt die Formel unverändert und ein Fehler wird generiert. Wenn die Zelle nur eine Textzeichenfolge enthält, dann wird Null (0) zurückgegeben. Wenn die Zeichenfolge ungültig ist, wird ein Fehler generiert.
Sie können UnitsNameOrCode als eine ganze Zahl oder als Zeichenfolgenwert angeben. Alle folgenden Anweisungen legen z. B. UnitsNameOrCode auf Zoll fest.
retVal = Cell.Result (visInches)
retVal = Cell.Result (65)
retVal = Cell.Result ("in"), wobei "in" auch eine der alternativen Zeichenfolgen sein kann, die Zoll darstellen, z. B. "inch", "in.", oder "intCounter".
Eine vollständige Liste der gültigen Einheitenzeichenfolgen und der entsprechenden Automatisierungskonstanten (Werte für ganze Zahl) finden Sie unter Informationen zu Maßeinheiten.
Automatisierungskonstanten zum Darstellen von Einheiten werden von der Visio-Typbibliothek im VisUnitCodes-Member deklariert.
Geben Sie leere Zeichenfolgen ("") weiter, um interne Einheiten anzugeben. Interne Einheiten sind Zoll für Distanz und Bogenmaß für Winkel. Verwenden Sie die Formula-Eigenschaft, um implizite Einheiten anzugeben.
Beispiel
Das VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie die Result-Eigenschaft verwendet wird.
Public Sub Result_Example()
Dim vsoShape As Visio.Shape
Dim vsoCell As Visio.Cell
Dim intLocalCenterX As Double
'Draw a rectangle.
Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1)
Set vsoCell = vsoShape.Cells("LocPinX")
intLocalCenterX = vsoCell.Result("cm")
Debug.Print intLocalCenterX
'You can also use the constants defined by the Visio type library.
intLocalCenterX = vsoCell.Result(visInches)
Debug.Print intLocalCenterX
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.