Méthode InvisibleApp.FormatResult (Visio)

Article
04/07/2023

Met en forme une chaîne ou un nombre en chaîne en fonction d’une image de format. Utilise les unités spécifiées pour la mise à l’échelle et la mise en forme.

Syntaxe

expression. FormatResult (StringOrNumber, UnitsIn, UnitsOut, Format)

Expression Variable qui représente un objet InvisibleApp .

Parameters

Nom	Requis/Facultatif	Type de données	Description
StringOrNumber	Requis	Variant	Chaîne ou nombre à mettre en forme ; peut être une chaîne, un nombre à virgule flottante ou un entier.
UnitsIn	Requis	Variant	Unités de mesure à attribuer à ChaîneOuNombre.
UnitsOut	Requis	Variant	Unités de mesure dans lesquelles le résultat doit être exprimé.
Format	Obligatoire	String	Aperçu de la chaîne de résultat.

Valeur renvoyée

Chaîne

Remarques

S'il est transmis sous forme de chaîne, l'argument ChaîneOuNombre peut être soit la formule ou la formule prospective d'une cellule soit le résultat ou le résultat prospectif d'une cellule exprimée sous forme de chaîne. La méthode FormatResultFormatResult calcule la chaîne et met en forme le résultat. Puisque la chaîne est calculée sans être considérée comme la formule d'une cellule, la méthode FormatResultFormatResult renvoie une erreur si la chaîne contient une référence à d'autres cellules.

Valeurs pouvant figurer dans ChaîneOuNombre :

1.7
3
"2.5"
« 4,1 cm »
« 12 pd - 17 po + (12 cm / SQRT(7)) »

Les arguments UnitésEntrée et UnitésSortie peuvent être des chaînes telles que « pouces », « pouce », « po » ou « p ». Toutes les unités prises en charge par Microsoft Office Visio, comme le centimètre, le mètre, le mile, etc., peuvent être utilisées. Vous pouvez également utiliser n’importe quelle constante d’unité déclarée par la bibliothèque de types Visio dans VisUnitCodes. Une liste d’unités valides est également incluse dans À propos des unités de mesure.

Si ChaîneOuNombre est une chaîne, l'argument UnitésEntrée indique comment interpréter le résultat calculé, et ce, uniquement si ce dernier est un scalaire. Par exemple, l’expression "4 * 5 cm" prend la valeur 20 cm, ce qui n’est pas un scalaire, de sorte que UnitsIn est ignoré. L’expression "4 * 5" prend la valeur 20, qui est une scalaire et est interprétée à l’aide de la valeur UnitsIn spécifiée.

L'argument UnitésSortie indique les unités de mesure dans lesquelles la chaîne renvoyée doit être exprimée. Si vous souhaitez que les résultats soient exprimés dans les mêmes unités que l'expression calculée, transmettez « NOCAST » ou visNoCast.

Format est une chaîne qui indique un modèle ou une image de la chaîne générée par la méthode FormatResult. Pour plus de détails, reportez-vous à la fonction FORMAT. Voici quelques possibilités :

# - Sortie d’un seul chiffre, mais pas s’il s’agit d’un début ou d’un 0 de fin.
0 - Sortie d’un seul chiffre, même s’il s’agit d’un 0 de début ou de fin.
. - Espace réservé décimal.
, - Séparateur de milliers.
"text" ou 'text' - Texte joint en sortie tel qu’il est.
\c - Sortie du caractère c.

Exemple

Où une chaîne est spécifiée.

' Prints 1.00 
Debug.Print Application.FormatResult("0.5 * 2", "ft", "ft", "#.00 u") 
 
' Prints 12.00 in. 
Debug.Print Application.FormatResult("0.5 * 2", "ft", "in", "#.00 u") 
 
' Prints .39 in. 
Debug.Print Application.FormatResult("1 cm", "ft", "in", "#.00 u") 
 
' Prints 1.00 cm. 
Debug.Print Application.FormatResult("1 cm", "ft", "NOCAST", "#.00 u") 
 
' Prints 0.39 
Debug.Print Application.FormatResult("1 cm", "ft", "", "0.00 u") 
 
' Prints 1858.06 sq. cm. 
Debug.Print Application.FormatResult("1 sq. ft. * 2", "in^2", "cm^2", "0.00 u") 
 
' Throws an exception because of bad measurement unit ("bz") 
Debug.Print Application.FormatResult("1 cm", "ft", "bz", "#.00 u")

Où un nombre est spécifié.

' Prints 1.00 
Debug.Print Application.FormatResult(1, "ft", "ft", "#.00 u") 
 
' Prints 12.00 in. 
Debug.Print Application.FormatResult(1, "ft", "in", "#.00 u") 
 
' Prints .08 ft. 
Debug.Print Application.FormatResult(1.0, "in", "ft", "#.00 u") 
 
' Prints 12.00 
Debug.Print Application.FormatResult(1.0, visFeet, "", "#.00 u") 
 
' Throws an exception because of bad measurement unit ("bz") 
Debug.Print Application.FormatResult(1, "bz", "in", "#.00 u")

La macro suivante indique comment utiliser la méthode FormatResultFormatResult afin de convertir en pouces une valeur en centimètres et afficher le résultat dans une fenêtre de message.

 
Public Sub FormatResult_Example() 
 
 Dim strOldValue As String 
 Dim strNewValue As String 
 
 'Set old value. 
 strOldValue = "1 cm" 
 
 'Format value. 
 strNewValue = Application.FormatResult _ 
 (strOldValue, "ft", "in", "#.00 u") 
 
 'Display new value. 
 MsgBox (strNewValue) 
 
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.

Share via