Nota
O acesso a esta página requer autorização. Podes tentar iniciar sessão ou mudar de diretório.
O acesso a esta página requer autorização. Podes tentar mudar de diretório.
Cria um conector. Retorna um objeto Shape que representa o novo conector. Quando um conector é adicionado, não está conectado a nenhum objeto. Use os métodos BeginConnect e EndConnect para anexar o início e no final de um conector a outras formas no documento.
Sintaxe
expressão. AddConnector (tipo, beginx, beginy, endx, endy)
expressão Uma variável que representa um objeto Formas.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Type | Obrigatório | MsoConnectorType | O tipo de conector a ser adicionado. |
| InícioX | Obrigatório | Single | A posição horizontal (em pontos) do ponto de partida do conector em relação ao canto superior esquerdo do documento. |
| InícioY | Obrigatório | Single | A posição vertical (em pontos) do ponto inicial do conector em relação ao canto superior esquerdo do documento. |
| EndX | Obrigatório | Single | A posição horizontal (em pontos) do ponto final do conector em relação ao canto superior esquerdo do documento. |
| EndY | Obrigatório | Single | A posição vertical (em pontos) do ponto final do conector relativamente ao canto superior esquerdo do documento. |
Valor de retorno
Formato
Comentários
Quando você anexa um conector à uma forma, o tamanho e a posição do conector são ajustados automaticamente, se necessário. Por conseguinte, se pretender anexar uma conexão a outras formas, a posição e as dimensões que especificar ao adicionar a conexão são irrelevantes.
Exemplo
O exemplo a seguir adiciona um conector curvo a uma nova tela em uma nova planilha.
Sub AddCanvasConnector()
Dim wksNew As Worksheet
Dim shpCanvas As Shape
Set wksNew = Worksheets.Add
'Add drawing canvas to new worksheet
Set shpCanvas = wksNew.Shapes.AddCanvas( _
Left:=150, Top:=150, Width:=200, Height:=300)
'Add connector to the drawing canvas
shpCanvas.CanvasItems.AddConnector _
Type:=msoConnectorStraight, BeginX:=150, _
BeginY:=150, EndX:=200, EndY:=200
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.