Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
En fonction de la valeur de résolution d’écran énumérée passée à la méthode dans le paramètre eRes , place des valeurs réelles pour la largeur et la hauteur de l’écran en pixels dans les variables pnWidth et pnHeight passées à la méthode en tant que paramètres.
Syntaxe
expression. GetPhysicalDimensions (eRes, pnWidth, pnHeight)
expression Expression qui renvoie un objet VisWebPageSettings .
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| eRes | Requis | VISWEB_DISP_RES | Valeur de résolution d’écran. |
| pnWidth | Obligatoire | Long | Nombre de pixels d’écran horizontaux. |
| pnHeight | Obligatoire | Long | Nombre de pixels d’écran verticaux. |
Valeur renvoyée
Nothing
Remarques
Par exemple, si vous transmettez la valeur de résolution d’écran VISWEB_DISP_RES énumérée res1024x768 pour eRes, les valeurs 1024 et 768 sont retournées dans pnWidth et pnHeight.
Exemple
L’exemple suivant montre comment utiliser la méthode GetPhysicalDimensions pour déterminer la largeur et la hauteur de l’écran qui correspondent à la résolution d’écran passée à la méthode en tant que premier paramètre.
Public Sub GetPhysicalDimensions_Example()
Dim vsoSaveAsWeb As VisSaveAsWeb
Dim vsoWebSettings As VisWebPageSettings
Dim lngWidth As Long
Dim lngHeight As Long
Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject
Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
vsoWebSettings.GetPhysicalDimensions res1280x1024, lngWidth, lngHeight
Debug.Print lngwidth; lngHeight
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.