Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
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. |
| VarrerFlag | Obrigatório | VisArcSweepFlags | O tipo de arco, côncavo ou convexo. |
Valor de retorno
Forma
Comentários
Os pontos finais 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 delimitante é desenhado. O retângulo delimitado está sempre alinhado com o sistema de coordenadas de página; ou seja, o eixo x das reticências é 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 das reticências ao arco varre em ângulos decrescentes; se for visArcSweepFlagConvex, percorre â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.