Método Shape.DrawOval (Visio)

Adiciona uma oval (elipse) à coleção Shapes de uma forma de grupo.

Sintaxe

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

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

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 da elipse.
y1	Obrigatório	Double	A coordenada y de um canto da caixa largura-altura da elipse.
x2	Obrigatório	Double	A coordenada x do outro canto da caixa largura-altura da elipse.
y2	Obrigatório	Double	A coordenada y do outro canto da caixa largura-altura da elipse.

Valor de retorno

Forma

Comentários

Usar o método DrawOval equivale a usar a ferramenta Elipse 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 a elipse é colocada.

Exemplo

O exemplo a seguir mostra como desenhar uma oval (elipse) na página ativa.

 
Public Sub DrawOval_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 Set vsoShape = ActivePage.DrawOval(1.5, 10.5, 7.5, 6.5) 
 
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.