VisWebPageSettings.GetPhysicalDimensions method (Método VisWebPageSettings.GetPhysicalDimensions)

Com base no valor enumerado de resolução de ecrã transmitido ao método no parâmetro eRes , coloca os valores do mundo real para a largura e altura do ecrã em píxeis nas variáveis pnWidth e pnHeight transmitidas ao método como parâmetros.

Sintaxe

expressão. GetPhysicalDimensions (eRes, pnWidth, pnHeight)

expressão Uma expressão que devolve um objeto VisWebPageSettings .

Parâmetros

Valor de retorno

Nothing

Comentários

Por exemplo, se transmitir o VISWEB_DISP_RES valor enumerado de resolução de ecrã res1024x768 para eRes, os valores 1024 e 768 são devolvidos em pnWidth e pnHeight.

Exemplo

O exemplo seguinte mostra como utilizar o método GetPhysicalDimensions para determinar a largura e altura do ecrã que correspondem à resolução do ecrã transmitida ao método como o primeiro 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.