Méthode VisWebPageSettings.GetPhysicalDimensions

Sur la base de la valeur de résolution d’écran énumérée transmise à la méthode dans le paramètre eRes , place les valeurs réelles de largeur et de hauteur d’écran en pixels dans les variables pnWidth et pnHeight transmises à la méthode en tant que paramètres.

Syntaxe

expression. GetPhysicalDimensions (eRes, pnWidth, pnHeight)

expression expression qui renvoie un objet VisWebPageSettings .

Paramètres

Valeur renvoyée

Nothing

Remarques

Par exemple, si vous transmettez la valeur de résolution d’écran VISWEB_DISP_RES res1024x768 pour eRes, les valeurs 1024 et 768 sont renvoyées dans pnWidth et pnHeight.

Exemple

L’exemple suivant montre comment utiliser la méthode GetPhysicalDimensions pour déterminer la largeur et la hauteur d’écran qui correspondent à la résolution d’écran transmise à 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.