Método Window.SetWindowRect (Visio)

Define o tamanho e a posição da área do cliente de uma janela.

Sintaxe

expression. SetWindowRect( _nLeft_ , _nTop_ , _nWidth_ , _nHeight_ )

Expressão Uma variável que representa um objeto Window .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
nLeft	Obrigatório	Long	A coordenada do lado esquerdo da janela.
Ntop	Obrigatório	Long	A coordenada da parte superior da janela.
Nwidth	Obrigatório	Long	A distância em pixels do lado esquerdo ao direito da janela.
Nheight	Obrigatório	Long	A distância em pixels da parte superior à inferior da janela.

Valor de retorno

Nada

Comentários

O método SetWindowRect define 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 Visio. Para a coleção Windows de um objeto Window, a janela "com respeito a" é a janela do cliente da janela de desenho.

SetWindowRect não tem efeito quando a janela é encaixada.

Exemplo

O exemplo a seguir mostra como usar o método SetWindowRect para definir 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. Em seguida, ele usa SetWindowRect para alterar a altura da janela e imprime os novos valores.

Public Sub SetWindowRect_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.