Ler em inglês

Compartilhar via


Método Page.DrawRectangle (Visio)

Adiciona um retângulo à coleção Shapes de uma página, mestre ou grupo.

Sintaxe

expression. DrawRectangle( _x1_ , _y1_ , _x2_ , _y2_ )

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
x1 Obrigatório Double A coordenada x de um canto da caixa largura-altura do retângulo.
y1 Obrigatório Double A coordenada y de um canto da caixa largura-altura do retângulo.
x2 Obrigatório Double A coordenada x do outro canto da caixa largura-altura do retângulo.
y2 Obrigatório Double A coordenada y do outro canto da caixa largura-altura do retângulo.

Valor de retorno

Forma

Comentários

Usar o método DrawRectangle equivale a usar a ferramenta Retângulo no aplicativo. Os argumentos estão em unidades de desenho internas com relação ao espaço de coordenadas da página, mestre ou grupo no qual o retângulo é colocado.

Exemplo

O exemplo a seguir mostra como desenhar um retângulo na página ativa.

 
Public Sub DrawRectangle_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 Set vsoShape = ActivePage.DrawRectangle(1, 4, 4, 1) 
 
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.