Classe ConnectorFormat (PowerPoint VBA)

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

Set

Para usar uma variável de classe ConnectorFormat, ela primeiro precisa ser instanciada por exemplo

Dim cft as ConnectorFormat
Set cft = ActiveWindow.RangeFromPoint.ConnectorFormat

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo ConnectorFormat: Shape.ConnectorFormat e ShapeRange.ConnectorFormat

Métodos

Estes são os principais métodos da classe

BeginConnect - Conecta o início do conector especificado à forma especificada.

Dim lngConnectionSite As Long: lngConnectionSite = 1
ActivePresentation.Slides(1).Shapes(2).ConnectorFormat.BeginConnect ConnectedShape:=, ConnectionSite:=lngConnectionSite

EndConnect - Conecta o fim do conector especificado à forma especificada.

Dim lngConnectionSite As Long: lngConnectionSite = 1 
ActivePresentation.Slides(1).Shapes(2).ConnectorFormat.EndConnect ConnectedShape:=, ConnectionSite:=lngConnectionSite

Propriedades

BeginConnected Determina se o início do conector especificado está conectado a uma forma. Leitura/gravação.

Dim mtsBeginConnected As Office.MsoTriState
mtsBeginConnected = ActivePresentation.Slides(1).Shapes(2).ConnectorFormat.BeginConnected

BeginConnectedShape Retorna um objeto Shape que representa a forma à qual o início do conector especificado está vinculado. Somente leitura.

Dim shpBeginConnectedShape As Shape
Set shpBeginConnectedShape = ActivePresentation.Slides(1).Shapes(2).ConnectorFormat.BeginConnectedShape

BeginConnectionSite Retorna um número inteiro especificando o site de conexão ao qual o início de um conector está conectado. Somente leitura.

Dim lngBeginConnectionSite As Long
lngBeginConnectionSite =  1 ActivePresentation.Slides(1).Shapes(2).ConnectorFormat.BeginConnectionSite

EndConnected Determina se o final do conector especificado está conectado a uma forma. Somente leitura.

Dim mtsEndConnected As Office.MsoTriState
mtsEndConnected = ActivePresentation.Slides(1).Shapes(2).ConnectorFormat.EndConnected

EndConnectedShape Retorna um objeto Shape que representa a forma à qual a extremidade do conector especificado está vinculada. Somente leitura.

Dim shpEndConnectedShape As Shape
Set shpEndConnectedShape = ActivePresentation.Slides(1).Shapes(2).ConnectorFormat.EndConnectedShape

EndConnectionSite Retorna um número inteiro especificando o site de conexão ao qual o final de um conector está conectado. Somente leitura.

Dim lngEndConnectionSite As Long
lngEndConnectionSite = 1 ActivePresentation.Slides(1).Shapes(2).ConnectorFormat.EndConnectionSite

Parent Retorna o objeto parente para o objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.ConnectorFormat.Parent

Type Representa o tipo de conector. Leitura/gravação.

ActiveWindow.RangeFromPoint.ConnectorFormat.Type = msoConnectorTypeMixed