Método VisWebPageSettings.GetPhysicalDimensions

Com base no valor de resolução de tela enumerado passado para o método no parâmetro eRes , coloca valores do mundo real para largura e altura da tela em pixels nas variáveis pnWidth e pnHeight passadas para o método como parâmetros.

Sintaxe

mais simples. GetPhysicalDimensions (eRes, pnWidth, pnHeight)

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

Parâmetros

Valor de retorno

Nothing

Comentários

Por exemplo, se você passar o VISWEB_DISP_RES valor de resolução de tela enumerado res1024x768 para eRes, os valores 1024 e 768 serão retornados em pnWidth e pnHeight.

Exemplo

O exemplo a seguir mostra como usar o método GetPhysicalDimensions para determinar a largura e a altura da tela que correspondem à resolução de tela passada para o 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.