Método Window.GetWindowRect (Visio)
Obtém o tamanho e a posição a área do cliente de uma janela.
Sintaxe
expression. GetWindowRect( _pnLeft_ , _pnTop_ , _pnWidth_ , _pnHeight_ )
Expressão Uma variável que representa um objeto Window .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| pnLeft | Obrigatório | Long | A coordenada do lado esquerdo da janela. |
| pnTop | Obrigatório | Long | A coordenada da parte superior da janela. |
| pnWidth | Obrigatório | Long | A distância em pixels do lado esquerdo ao direito da janela. |
| pnHeight | Obrigatório | Long | A distância em pixels da parte superior à inferior da janela. |
Valor de retorno
Nada
Comentários
O método GetWindowRect obtém o tamanho e a posição da área do cliente da janela com respeito à janela que possui a coleção Windows à qual ela pertence. Para a coleção Windows de um objeto Application, a janela "com respeito a" é a janela MDICLIENT da janela principal do Microsoft Visio. Para a coleção Windows de um objeto Window, a janela "com respeito a" é a janela do cliente da janela de desenho.
Exemplo
O seguinte exemplo mostra como usar o método GetWindowRect para obter o tamanho e a posição de um objeto Window. Ele abre a janela Pan & Zoom e imprime as coordenadas da janela, a largura e a altura na janela Immediate.
Public Sub GetWindowRect_Example()
Dim vsoApplication As Visio.Application
Dim vsoPZWindow As Visio.Window
Dim pinLeft As Long, pinTop As Long, pinWidth As Long, pinHeight As Long
Set vsoApplication = Visio.Application
'Display the Pan & Zoom window
Set vsoPZWindow = vsoApplication.ActiveWindow.Windows.ItemFromID(visWinIDPanZoom)
vsoPZWindow.Visible = True
'Get the existing window size and position
vsoPZWindow.GetWindowRect pinLeft, pinTop, pinWidth, pinHeight
Debug.Print pinLeft, pinTop, pinWidth, pinHeight
'Change the window height and get the new values
vsoPZWindow.SetWindowRect pinLeft, pinTop, pinWidth, pinHeight + 50
vsoPZWindow.GetWindowRect pinLeft, pinTop, pinWidth, pinHeight
Debug.Print pinLeft, pinTop, pinWidth, pinHeight
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.