Método Viewer.GetPageView (Visualizador do Visio)

Obtém a posição e o fator de zoom (tamanho) da página de desenho no Visualizador do Microsoft Visio.

Sintaxe

mais simples. GetPageView (PageXAtViewCenter, PageYAtViewCenter, ZoomFactor)

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

Parâmetros

Valor de retorno

Nada

Comentários

A exibição de página consiste no ponto central da página, expresso em coordenadas de página x-y, com a origem do sistema de coordenadas no canto inferior esquerdo da página e o fator de zoom, expresso como uma porcentagem numérica, com um intervalo de 1% a 400%.

Use o método SetPageView para definir os valores atuais de exibição de página.

O método GetPageView em si não retorna nada, mas seus parâmetros são todos parâmetros externos. Se você passar uma variável do tipo Double para cada parâmetro, o Visualizador do Visio retornará os respectivos valores de cada parâmetro, conforme mostrado no exemplo deste tópico.

O método GetPageView obtém as coordenadas do ponto no sistema de coordenadas da página que está no centro da janela do Visualizador do Visio. Por exemplo, se o Visualizador do Visio retornar 0 para a coordenada x e a coordenada y, o canto inferior esquerdo da página (a origem do sistema de coordenadas da página) estará no centro da janela do Visualizador do Visio. Se a página tiver 8 unidades de página de largura por 10 unidades de página de altura e o centro da página estiver no centro da janela do Visualizador do Visio, PageXAtViewCenter retornará 4 e PageYAtViewCenter retornará 5.

O valor do parâmetro ZoomFactor é o fator pelo qual ambas as dimensões da página são multiplicadas. Por exemplo, um valor de ZoomFactor de 0,5 significa que a página tem metade da altura e metade da largura do desenho de origem do Visio.

Exemplo

O código a seguir mostra como obter a posição atual e o fator de zoom da página que está aberta no Visualizador do Visio.

 Dim dblXPoint As Double

    Dim dblYPoint As Double

    Dim dblZoomFactor As Double

    vsoViewer.GetPageView dblXPoint, dblYPoint, dblZoomFactor

    Debug.Print "x-coordinate is:"; dblXPoint

    Debug.Print "y-coordinate is:"; dblYPoint

    Debug.Print "Zoom factor is:"; dblZoomFactor

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.