Método VisWebPageSettings.GetPhysicalDimensions

En función del valor de resolución de pantalla enumerado pasado al método en el parámetro eRes , coloca valores reales para el ancho de pantalla y el alto en píxeles en las variables pnWidth y pnHeight que se pasan al método como parámetros.

Sintaxis

expresión. GetPhysicalDimensions (eRes, pnWidth, pnHeight)

Expresión Expresión que devuelve un objeto VisWebPageSettings .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
eRes	Obligatorio	VISWEB_DISP_RES	Valor de resolución de pantalla.
pnWidth	Necesario	Long	Número de píxeles de pantalla horizontales.
pnHeight	Necesario	Long	Número de píxeles de pantalla verticales.

Valor devuelto

Nothing

Comentarios

Por ejemplo, si pasa el VISWEB_DISP_RES valor 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 de pantalla y el alto correspondientes a la resolución de pantalla que se pasa 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.