Pour obtenir la forme personnalisée de l'information à partir d'une forme Visio:
Function GetCustomPropertyValue(TheShape As Visio.Shape, ThePropertyName AsString)AsStringOnErrorResumeNext
GetCustomPropertyValue = TheShape.CellsU("Prop."& ThePropertyName).ResultStr(visNone)EndFunction
Tous cette fonction n'est utilise le cellsu de propriété sur une forme pour obtenir la propriété personnalisée cellule de feuille ShapeSheet par son nom...
Si vous êtes pointilleux sur l'utilisation de la on error resume next, vous pouvez vérifier pour voir si la cellule est en vérifiant d'abord si la cellule est:
if TheShape.CellExistsU("Prop."& ThePropertyName ,0)then
GetCustomPropertyValue = TheShape.CellsU("Prop."& THePropertyName).ResultStr(VisNone)
CellExistsU renvoie un nombre entier en fonction de la documentation. Êtes-vous sûr qu'il peut être utilisé comme une valeur booléenne (0 pour faux, différente de zéro pour de vrai)? oui j'en suis sûr, la documentation n'est pas vraiment dire ce qui est retourné, mais je l'ai utilisé à de nombreuses reprises comme une valeur booléenne.
Pour obtenir la forme personnalisée de l'information à partir d'une forme Visio:
Tous cette fonction n'est utilise le cellsu de propriété sur une forme pour obtenir la propriété personnalisée cellule de feuille ShapeSheet par son nom...
Si vous êtes pointilleux sur l'utilisation de la on error resume next, vous pouvez vérifier pour voir si la cellule est en vérifiant d'abord si la cellule est:
CellExistsU
renvoie un nombre entier en fonction de la documentation. Êtes-vous sûr qu'il peut être utilisé comme une valeur booléenne (0 pour faux, différente de zéro pour de vrai)?oui j'en suis sûr, la documentation n'est pas vraiment dire ce qui est retourné, mais je l'ai utilisé à de nombreuses reprises comme une valeur booléenne.
OriginalL'auteur Jon Fournier
Trouvé ceci, à http://visio.mvps.org/VBA.htm (Propriétés Personnalisées)
OriginalL'auteur Geej