Compartilhar via


Objeto ConnectorFormat (PowerPoint)

Contém propriedades e métodos que se aplicam a conectores.

Comentários

Um conector é uma linha que anexa duas outras formas em pontos chamados sites de conexão. Se você reorganizar formas que estão conectadas, a geometria do conector será ajustada automaticamente para que as formas permaneçam conectadas.

Use a propriedade ConnectorFormat para retornar um objeto ConnectorFormat. Use os métodos BeginConnect e EndConnect para anexar as extremidades do conector a outras formas no documento. Use o método RerouteConnections para encontrar automaticamente o caminho mais curto entre as duas formas conectadas pelo conector. Use a propriedade Connector para ver se uma forma é um conector.

Observe que você atribui um tamanho e uma posição quando você adiciona um conector à coleção Shapes, mas o tamanho e posição são ajustados automaticamente quando você anexa o início e fim do conector a outras formas na coleção. Portanto, se você pretende anexa um conector a outras formas, o tamanho inicial e a posição que você especificar serão irrelevantes. Da mesma forma, você especifica quais sites de conexão de uma forma para anexar o conector a quando você anexa o conector, mas o uso do método RerouteConnections depois que o conector é anexado pode alterar a quais sites de conexão o conector anexado, tornando sua escolha original de sites de conexão irrelevante.

Os sites de conexão são geralmente numerados conforme as regras apresentadas na tabela a seguir.

Tipo de forma Esquema de numeração de sites de conexão
AutoFormas, WordArt, figuras e objetos OLE Os sites de conexão são numerados começando pela parte superior e seguindo o sentido anti-horário.
Formas livres Os sites de conexão são os vértices e correspondem aos números de vértice.

Exemplo

O exemplo a seguir adiciona dois retângulos a myDocument e os conecta com um conector curvo.

Set myDocument = ActivePresentation.Slides(1)

Set s = myDocument.Shapes

Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)

Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)

With s.AddConnector(msoConnectorCurve, 0, 0, 0, 0).ConnectorFormat

    .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1

    .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1

    .Parent.RerouteConnections

End With

Para descobrir os números correspondentes a cada site de conexão em uma forma complexa, você pode fazer um teste com a forma enquanto o gravador de macro está ativado e examinar o código gravado, ou pode criar uma forma, selecioná-la e executar o exemplo a seguir. Este código irá numerar cada site de conexão e anexar um conector a ele.

Set mainshape = ActiveWindow.Selection.ShapeRange(1)

With mainshape

    bx = .Left + .Width + 50

    by = .Top + .Height + 50

End With

With ActiveWindow.View.Slide

    For j = 1 To mainshape.ConnectionSiteCount

        With .Shapes.AddConnector(msoConnectorStraight, bx, by, bx + 50, by + 50)

            .ConnectorFormat.EndConnect mainshape, j

            .ConnectorFormat.Type = msoConnectorElbow

            .Line.ForeColor.RGB = RGB(255, 0, 0)

            l = .Left

            t = .Top

        End With

        With .Shapes.AddTextbox(msoTextOrientationHorizontal, l, t, 36, 14)

            .Fill.Visible = False

            .Line.Visible = False

            .TextFrame.TextRange.Text = j

        End With

    Next j

End With

Confira também

Referência de modelo de objeto do PowerPoint

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.