holygoo 发表于 2017-10-21 04:53:43

VBA之AddConnector 方法

　　 　　 　　AddConnector 方法
　　expression.AddConnector(Type, BeginX, BeginY, EndX, EndY)
　　expression 必选。该表达式返回“应用于”列表中的对象之一。
　　Type 必选。MsoConnectorType 类型。连接符的类型。
　　MsoConnectorType 可以是下列 MsoConnectorType 类型常数之一。
　　msoConnectorCurve
　　msoConnectorElbow
　　msoConnectorStraight
　　msoConnectorTypeMixed
　　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

lsjkd 发表于 2017-10-22 21:52:43

貌似我真的很笨????哎

pangel 发表于 2017-10-25 08:21:29

没人理我。。。。
页: [1]
查看完整版本: VBA之AddConnector 方法