Propriété Cell.ResultStrU (Visio)

Renvoie la valeur d'une cellule de feuille ShapeSheet exprimée sous forme de chaîne universelle. En lecture seule.

Syntaxe

expression. ResultStrU (UnitsNameOrCode)

Expression Expression qui renvoie un objet Cell .

Parameters

Valeur renvoyée

Chaîne

Remarques

Récupérer la propriété ResultStrU revient à récupérer la propriété Result d'une cellule. Toutefois, la propriété ResultStrU renvoie une chaîne comme valeur de la cellule, alors que la propriété Result renvoie un nombre à virgule flottante.

Vous pouvez spécifier NomUnitésOuCode comme un entier ou une valeur de chaîne. Si la chaîne est non valide, une erreur est générée. Par exemple, les déclarations suivantes définissent toutes NomUnitésOuCode en pouces.

stringReturned = Cell.ResultStrU (visInches)

stringReturned = Cell.ResultStrU (65)

stringReturned = Cell.ResultStrU (« in ») où « in » peut également être l’une des autres chaînes représentant des pouces, telles que « inch », « in. » ou « intCounter ».

Pour obtenir la liste complète des chaînes d’unités valides avec les constantes Automation correspondantes (entiers), reportez-vous à la rubrique À propos des unités de mesure.

Les constantes Automation pour la représentation des unités sont déclarées par la bibliothèque de types Visio dans le membre VisUnitCodes.

La valeur zéro (0) suffit pour obtenir la valeur de cellules de chaîne de texte.

Utilisez la propriété ResultStrU pour convertir entre les unités. Par exemple, vous pouvez récupérer la valeur en pouces, puis la même valeur en centimètres.

La propriété ResultStrU permet d'entrer la valeur d'une cellule dans des contrôles comme des zones de texte.

Si vous êtes développeur, vous pouvez utiliser les noms universels dans un programme lorsque vous ne voulez pas modifier un nom chaque fois qu'une solution est localisée. Utilisez la propriété ResultStr pour récupérer la valeur d'un objet exprimée sous la forme d'une chaîne propre aux paramètres régionaux. Utilisez la propriété ResultStrU pour obtenir la valeur d'un objet exprimée sous la forme d'une chaîne universelle.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique deux méthodes différentes pour utiliser la propriété ResultStrU afin d'obtenir la valeur d'une cellule de feuille ShapeSheet qui contient un élément de données de forme (auparavant appelé une propriété personnalisée) .

Pour exécuter cette macro, ouvrez un dessin vierge et le gabarit Ordinateurs et moniteurs (unités américaines), puis insérez un formulaire utilisateur contenant un intitulé, une zone de texte et une zone de liste. Définissez la largeur de la zone de liste sur 150.

 
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

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.