Cell.ResultStrU-Eigenschaft (Visio)

Artikel
04/07/2023

Ruft den Wert einer ShapeSheet-Zelle ab, der als universelle Zeichenfolge ausgedrückt wird. Schreibgeschützt.

Syntax

Ausdruck. ResultStrU (UnitsNameOrCode)

Ausdruck Ein Ausdruck, der ein Cell-Objekt zurückgibt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
UnitsNameOrCode	Erforderlich	Variant	Die beim Abrufen des Werts zu verwendenden Einheiten.

Rückgabewert

Zeichenfolge

HinwBemerkungeneise

Das Abrufen der ResultStrU-Eigenschaft ist vergleichbar mit dem Abrufen der Result-Eigenschaft einer Zelle. Der Unterschied besteht darin, dass die ResultStrU-Eigenschaft eine Zeichenfolge für den Wert der Zelle zurückgibt, während die Result-Eigenschaft eine Gleitkommazahl zurückgibt.

Sie können UnitsNameOrCode als eine ganze Zahl oder als Zeichenfolgenwert angeben. Wenn die Zeichenfolge ungültig ist, wird ein Fehler generiert. Alle folgenden Anweisungen legen z. B. UnitsNameOrCode auf Zoll fest.

stringReturned = Cell.ResultStrU (visInches)

stringReturned = Cell.ResultStrU (65)

stringReturned = Cell.ResultStrU ("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.

Die Übergabe einer Null (0) ist für das Abrufen des Werts von Textzeichenfolgenzellen ausreichend.

Verwenden Sie die ResultStrU-Eigenschaft , um zwischen Einheiten zu konvertieren. Sie können die Werte z. B. in Zoll und anschließend einen entsprechenden Wert in Zentimeter abrufen.

Die ResultStrU-Eigenschaft ist zum Ausfüllen von Steuerelementen hilfreich (z. B. Bearbeitungsfelder mit dem Wert einer Zelle).

Hinweis

Ab Microsoft Visio 2000 können Sie sowohl lokale als auch universelle Namen verwenden, um auf Shapes, Master-Shapes, Dokumente, Zeichenblätter, Zeilen, Add-Ons, Zellen, Hyperlinks, Formatvorlagen, Schriftarten, Master-Shape-Verknüpfungen, Benutzeroberflächenobjekte und Layer von Visio zu verweisen. Wenn ein Benutzer z. B. ein Shape verwendet, gibt er einen lokalen Namen an. Ab Microsoft Office Visio 2003 werden in der ShapeSheet-Kalkulationstabelle nur universelle Namen in Zellformeln und Werten angezeigt. (In früheren Versionen wurden universelle Namen in der Benutzeroberfläche nicht angezeigt.)

Als Entwickler können Sie universelle Namen in einem Programm verwenden, falls Sie einen Namen nicht jedes Mal ändern möchten, wenn eine Lösung lokalisiert wird. Verwenden Sie die ResultStr-Eigenschaft, um den Wert eines Objekts als gebietsschemaspezifische Zeichenfolge abzurufen. Verwenden Sie die ResultStrU-Eigenschaft, um den Wert eines Objekts als universelle Zeichenfolge abzurufen.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht zwei verschiedene Methoden, die jeweils zeigen, wie die ResultStrU-Eigenschaft zum Abrufen des Werts einer ShapeSheet-Zelle verwendet wird, die ein Shape-Datenelement enthält (früher benutzerdefinierte Eigenschaft genannt).

Öffnen Sie zum Ausführen dieses Makro eine leere Zeichnung und die Schablone Computer und Monitore, und fügen Sie dann ein Benutzerformular ein, das eine Bezeichnung, ein Text- und ein Listenfeld enthält. Legen Sie die Breite des Listenfelds auf 150 fest.

Hinweis

Die Schablone Computer und Monitore (US Units) ist nur in Visio Professional verfügbar.

 
Public Sub ResultStrU_Example()  
 
    Dim vsoStencil As Visio.Document  
    Dim vsoMaster As Visio.Master  
    Dim vsoPages As Visio.Pages  
    Dim vsoPage As Visio.Page  
    Dim vsoShape As Visio.Shape  
    Dim vsoCell As Visio.Cell  
    Dim intRows As Integer 
    Dim intCounter As Integer 
 
    'Get the Pages collection for the document.  
    'ThisDocument refers to the current document.  
    Set vsoPages = ThisDocument.Pages  
 
    'Get a reference to the first page of the Pages collection.  
    Set vsoPage = vsoPages(1)  
  
    'Get the Document object for the stencil.  
    Set vsoStencil = Documents("Comps_U.VSS") 
  
    'Get the Master object for the desktop PC shape.  
    Set vsoMaster = vsoStencil.Masters("PC")  
 
    'Drop the shape in the approximate middle of the page.  
    'Coordinates passed to the Drop method are always in inches.  
    'The Drop method returns a reference to the new shape object.  
    Set vsoShape = vsoPage.Drop(vsoMaster, 4.25, 5.5)  
 
    'This example shows two methods of extracting shape data 
    'The first method retrieves the value of a shape data item by name.  
    'Note that Prop.Manufacturer implies Prop.Manufacturer.Value.  
    Set vsoCell = vsoShape.Cells("Prop.Manufacturer")  
 
    'Get the cell value as a string  
    'and put it into the text box on the form.  
    UserForm1.TextBox1.Text = vsoCell.ResultStrU(Visio.visNone)  
 
    'Set the caption of the label.  
    UserForm1.Label1.Caption = "Prop.Manufacturer"  
 
    'The second method of accessing shape data uses  
    'section, row, cell. This method is best when you want  
    'to iterate through all the shape data.  
    intRows = vsoShape.RowCount(Visio.visSectionProp)  
 
    'Make sure the list box is cleared.  
    UserForm1.ListBox1.Clear  
 
    'Loop through all the rows and add the value of Prop.Manufacturer  
    'to the list box. Rows are numbered starting with 0.  
    For intCounter = 0 To intRows - 1  
        Set vsoCell = vsoShape.CellsSRC(Visio.visSectionProp, intCounter, visCustPropsValue)  
        UserForm1.ListBox1.AddItem vsoCell.LocalName & vbTab & _  
            vsoCell.ResultStrU(Visio.visNone)  
    Next intCounter  
 
    'Display the user form.  
    UserForm1.Show  
 
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.

Freigeben über