Método Shape.DrawQuarterArc (Visio)
Cria uma nova forma cujo caminho consiste em um arco elíptico definido pelos dois pontos e o sinalizador passados como argumentos.
Sintaxe
expressão. DrawQuarterArc( _xBegin_ , _yBegin_ , _xEnd_ , _yEnd_ , _SweepFlag_ )
Expressão Uma variável que representa um objeto Shape .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| xBegin | Obrigatório | Double | A coordenada x do ponto inicial do arco. |
| yBegin | Obrigatório | Double | A coordenada y do ponto inicial do arco. |
| xEnd | Obrigatório | Double | A coordenada x do ponto de extremidade do arco. |
| yEnd | Obrigatório | Double | A coordenada y do ponto de extremidade do arco. |
| SweepFlag | Obrigatório | VisArcSweepFlags | O tipo de arco, côncavo ou convexo. |
Valor de retorno
Forma
Comentários
Os pontos de extremidade e de início definem o retângulo delimitador do arco e o _SweepFlag_argument determina qual dos dois arcos possíveis dentro do retângulo delimitador é desenhado. O retângulo delimitador está sempre alinhado ao sistema de coordenadas de página; ou seja, o eixo x da reticência é paralelo ao eixo x da página.
Os seguintes valores possíveis para o argumento SweepFlag são declarados em VisArcSweepFlags na biblioteca de tipos do Visio.
| Constant | Valor | Descrição |
|---|---|---|
| visArcSweepFlagConcave | 0 | Arco côncavo |
| visArcSweepFlagConvex | 1 | Arco convexo |
Se SweepFlag for visArcSweepFlagConcave, a linha que une o centro da reticência ao arco varrerá os ângulos decrescentes; se for visArcSweepFlagConvex, ele varrerá ângulos crescentes.
Exemplo
Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como usar o método DrawQuarterArc para desenhar um arco côncavo na página de desenho.
Public Sub DrawQuarterArc_Example
Dim vsoShape As Visio.Shape
Set vsoShape = ActivePage.DrawQuarterArc(3, 3, 6, 8, visArcSweepFlagConcave)
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.