Método Master.DrawBezier (Visio)

Cria uma forma cujo caminho é definido pela sequência de pontos de controle Bezier fornecida.

Sintaxe

expression. DrawBezier( _xyArray()_ , _degree_ , _Flags_ )

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
xyArray()	Obrigatório	Double	Uma matriz de valores x e y alternados que definem os pontos de controle Bezier para a nova forma.
Grau	Obrigatório	Integer	O grau da curva Bezier.
Flags	Obrigatório	Integer	Sinalizadores que influenciam a maneira como a forma é desenhada.

Valor de retorno

Forma

Comentários

Os parâmetros xyArray() e degree devem atender às seguintes condições:

1 <= grau<= 9

O número de pontos deve ser k * grau + 1, em que k é um inteiro positivo. Se o primeiro ponto for chamado p0 , para qualquer inteiro m entre 1 e k , p(m * grau) será considerado o último ponto de controle de um segmento Bezier, bem como o primeiro ponto de controle do próximo.

O resultado é uma curva composta que consiste em k segmentos Bezier. Os pontos de entrada de xyArray() definem os pontos de controle da curva. Se você quiser uma curva suave, verifique se os pontos p(n - 1) , pn , e p(n + 1) são co-lineares sempre que n = m * grau com um inteiro m. A curva Bezier composta é representada no aplicativo como uma B-spline com nós inteiros de multiplicity = degree.

Os pontos de controle devem estar em unidades de desenho internas (polegadas) com relação ao espaço de coordenadas da página, mestre ou grupo no qual a forma é desenhada. A matriz passada deve ser SAFEARRAY de valores de ponto flutuante de 8 bytes passados por referência (VT_R8|VT_ARRAY|VT_BYREF). É assim que o Microsoft Visual Basic passa matrizes para objetos Automation.

O argumento Flags é uma bitmask que especifica opções para desenhar a nova forma. Seu valor deve ser zero (0) ou visSpline1D (8).

Se Flags for visSpline1D e os primeiros e últimos pontos em xyArray() não coincidirem, o método DrawBezier produzirá uma forma com comportamento unidimensional (1D). caso contrário, ele produz uma forma com comportamento bidimensional (2D).

Se o primeiro e o último ponto em xyArray() coincidirem, o método DrawBezier produzirá uma forma preenchida.

Exemplo

O exemplo a seguir mostra como desenhar uma curva Bezier através de cinco pontos arbitrários na página ativa.

 
Public Sub DrawBezier_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim intCounter As Integer 
 Dim adblXYPoints(1 To (5 * 2)) As Double 
 
 For intCounter = 1 To 5 
 
 'Set x-coordinates (array elements 1,3,5,7,9) to 1,2,3,4,5 
 adblXYPoints((intCounter * 2) - 1) = intCounter 
 
 'Set y-coordinates (array elements 2,4,6,8,10) to f(intCounter) 
 adblXYPoints(intCounter * 2) = (intCounter * intCounter) - (7 * intCounter) + 15 
 
 Next intCounter 
 
 Set vsoShape = ActivePage.DrawBezier(adblXYPoints, 2, visSpline1D) 
 
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.