Cell.Result, propriété (Visio)

Article
04/07/2023

Récupère ou définit la valeur d'une cellule. Lecture-écriture.

Syntaxe

expression. Result (UnitsNameOrCode)

Expression Variable qui représente un objet Cell .

Parameters

Nom	Requis/Facultatif	Type de données	Description
UnitsNameOrCode	Requis	Variant	Unités à utiliser lors de la récupération ou la définition de la valeur de la cellule.

Valeur renvoyée

Double

Remarques

Utilisez la propriété Result pour définir la valeur d'une cellule non protégée. 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. Si la cellule contient seulement une chaîne de texte, la valeur zéro (0) est renvoyée. Si la chaîne est non valide, une erreur est générée.

Vous pouvez spécifier NomUnitésOuCode comme un entier ou une valeur de chaîne. Par exemple, les déclarations suivantes définissent toutes NomUnitésOuCode en pouces.

Retval = Cell.Result (visInches)

Retval = Cell.Result (65)

Retval = Cell.Result (« 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.

Pour spécifier des unités internes, transmettez une chaîne de longueur nulle (""). Les unités internes sont les pouces pour les distances et les radians pour les angles. Pour spécifier des unités implicites, vous devez utiliser la propriété Formula.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la propriété Result.

 
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 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.

Partager via