Cell. Result, propriété (Visio)Cell.Result property (Visio)

Récupère ou définit la valeur d'une cellule.Gets or sets a cell's value. Lecture-écriture.Read/write.

SyntaxeSyntax

expression. Result (résultat ) (UnitsNameOrCode)expression.Result (UnitsNameOrCode)

expression Variable qui représente un objet Cell .expression A variable that represents a Cell object.

ParamètresParameters

NomName Requis/FacultatifRequired/Optional Type de donnéesData type DescriptionDescription
NomUnitésOuCodeUnitsNameOrCode ObligatoireRequired VariantVariant Unités à utiliser lors de la récupération ou la définition de la valeur de la cellule.The units to use when retrieving or setting the cell's value.

Valeur renvoyéeReturn value

DoubleDouble

RemarquesRemarks

Utilisez la propriété result pour définir la valeur d’une cellule non protégée.Use the Result property to set the value of an unguarded cell. Si la formule de la cellule est protégée à l'aide de la fonction PROTECTION, elle n'est pas modifiée et une erreur est générée.If the cell's formula is protected with the GUARD function, the formula is not changed and an error is generated. Si la cellule contient seulement une chaîne de texte, la valeur zéro (0) est renvoyée.If the cell contains only a text string, zero (0) is returned. Si la chaîne est non valide, une erreur est générée.If the string is invalid, an error is generated.

Vous pouvez spécifier unitsNameOrCode sous la forme d’un entier ou d’une valeur de chaîne.You can specify UnitsNameOrCode as an integer or a string value. Par exemple, les déclarations suivantes définissent toutes NomUnitésOuCode en pouces.For example, the following statements all set UnitsNameOrCode to inches.

retVal = ,cellule. Result (visInches)retVal = Cell.Result (visInches)

retVal = ,cellule. Result (65)retVal = Cell.Result (65)

retVal = Cell. Result ("in") où «in» peut également être n’importe quelle autre chaîne représentant des pouces, telle que «inch», «in.» ou «intCounter».retVal = Cell.Result ("in") where "in" can also be any of the alternate strings representing inches, such as "inch", "in.", or "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.For a complete list of valid unit strings along with corresponding Automation constants (integer values), see About units of measure.

Les constantes Automation pour la représentation d’unités sont déclarées par la bibliothèque de types de Visio dans le membre VisUnitCodes.Automation constants for representing units are declared by the Visio type library in member VisUnitCodes.

Pour spécifier des unités internes, transmettez une chaîne de longueur nulle ("").To specify internal units, pass a zero-length string (""). Les unités internes sont les pouces pour les distances et les radians pour les angles.Internal units are inches for distance and radians for angles. Pour spécifier des unités implicites, vous devez utiliser la propriété Formula .To specify implicit units, you must use the Formula property.

ExempleExample

Cette macro Microsoft Visual Basic pour applications (VBA) indique comment utiliser la propriété result .This Microsoft Visual Basic for Applications (VBA) macro shows how to use the Result property.

 
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

Assistance et commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.