PowerPoint (的 Shapes.AddConnector 方法)

會建立的連接器。 會傳回代表新連接器的 Shape 物件。 當加入連接器時，它未連接到任何項目。 使用 BeginConnect 及 EndConnect 方法以附加至文件中的其他圖形的開頭和連接線的終點。

語法

運算式。AddConnector (Type、 BeginX、 BeginY、 EndX、 EndY)

expression 代表 Shapes 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Type	必要	MsoConnectorType	接點的類型。
BeginX	必要	Single	相對於投影片的左緣，以點為單位指定連接線起點的水平位置。
BeginY	必要	Single	相對於投影片的上緣，以點為單位指定連接線起點的垂直位置。
EndX	必要	Single	相對於投影片的左緣，以點為單位指定連接線終點的水平位置。
EndY	必要	Single	相對於投影片的上緣，以點為單位指定連接線終點的垂直位置。

傳回值

圖形

註解

把接點連線到圖案上時，連接線的大小和位置將自動進行必要的調整。 因此，如果您要將連接器附加至其他圖形，您在新增連接器時指定的位置和維度就無關緊要了。

範例

本範例會在 myDocument 中新增了兩個矩形，並用弧形連接線將這兩個矩形連接起來。 請注意，當您將連接器附加至矩形時，連接器的大小和位置會自動調整;因此，您在新增圖說文字時指定的位置和維度無關 (維度必須是非零) 。

Sub NewConnector() 
 
    Dim shpShapes As Shapes 
    Dim shpFirst As Shape 
    Dim shpSecond As Shape 
 
    Set shpShapes = ActivePresentation.Slides(1).Shapes 
    Set shpFirst = shpShapes.AddShape(Type:=msoShapeRectangle, _ 
        Left:=100, Top:=50, Width:=200, Height:=100) 
    Set shpSecond = shpShapes.AddShape(Type:=msoShapeRectangle, _ 
        Left:=300, Top:=300, Width:=200, Height:=100) 
    With shpShapes.AddConnector(Type:=msoConnectorCurve, BeginX:=0, _ 
            BeginY:=0, EndX:=100, EndY:=100).ConnectorFormat 
        .BeginConnect ConnectedShape:=shpFirst, ConnectionSite:=1 
        .EndConnect ConnectedShape:=shpSecond, ConnectionSite:=1 
        .Parent.RerouteConnections 
    End With 
 
End Sub

另請參閱

Shapes 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。