Método VisWebPageSettings.GetPhysicalDimensions

Basándose en el valor de resolución de pantalla enumerado pasado al método en el parámetro eRes , coloca valores del mundo real para el ancho y alto de la pantalla en píxeles en las variables pnWidth y pnHeight pasadas al método como parámetros.

Sintaxis

más sencilla.GetPhysicalDimensions (eRes, pnWidth, pnHeight)

expresión Una expresión que devuelve un objeto VisWebPageSettings .

Parameters

Valor devuelto

Nothing

Comentarios

Por ejemplo, si pasa el valor VISWEB_DISP_RES de resolución de pantalla enumerado res1024x768 para eRes, los valores 1024 y 768 se devuelven en pnWidth y pnHeight.

Ejemplo

En el ejemplo siguiente se muestra cómo usar el método GetPhysicalDimensions para determinar el ancho y el alto de pantalla que corresponden a la resolución de pantalla pasada al método como primer parámetro.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.