|
|
楼主 |
发表于 2016-1-10 10:02
|
显示全部楼层
EndConnectedShape属性
返回一个Shape对象，该对象代表指定连接符的终点所连到的形状。只读。
注意 如果指定的连接符终点并未连接到形状上，则该属性产生一个错误。
VBA示例
本示例假定活动演示文稿的第一张幻灯片已经包含两个形状，且通过连接符“Conn1To2”相连。而示例中的代码会向第一张幻灯片中添加一个矩形框和一个连接符。这个新建的连接符起点将连接到与“Conn1To2”的起点相同的地方。终点则连接到新建的矩形框的第一个连接点上。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
Set r3 = .AddShape(msoShapeRectangle, 100, 420, 200, 100)
.AddConnector(msoConnectorCurve, 0, 0, 10, 10) _
.Name = "Conn1To3"
With .Item("Conn1To2").ConnectorFormat
endConnSite1 = .EndConnectionSite
Set endConnShape1 = .EndConnectedShape
End With
With .Item("Conn1To3").ConnectorFormat
.BeginConnect r3, 1
.EndConnect endConnShape1, endConnSite1
End With
End With
EndConnectionSite属性
返回一个整数，该整数指定连接符终点的连接位置。只读。Long 类型。
注意 如果指定的连接符终点并未连接到形状上，则该属性产生一个错误。
VBA示例
本示例假定活动演示文稿的第一张幻灯片已经包含两个形状，且通过连接符“Conn1To2”相连。而示例中的代码会向第一张幻灯片中添加一个矩形框和一个连接符。这个新建的连接符起点将连接到与“Conn1To2”的起点相同的地方。终点则连接到新建的矩形框的第一个连接点上。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
Set r3 = .AddShape(msoShapeRectangle, 100, 420, 200, 100)
.AddConnector(msoConnectorCurve, 0, 0, 10, 10) _
.Name = "Conn1To3"
With .Item("Conn1To2").ConnectorFormat
endConnSite1 = .EndConnectionSite
Set endConnShape1 = .EndConnectedShape
End With
With .Item("Conn1To3").ConnectorFormat
.BeginConnect r3, 1
.EndConnect endConnShape1, endConnSite1
End With
End With
EndingSlide属性
返回或设置指定幻灯片放映中最后显示的幻灯片。可读写。Long 类型。
VBA示例
本示例执行当前演示文稿的一个幻灯片放映，该放映从第二张幻灯片开始，到第四张幻灯片结束。
With ActivePresentation.SlideShowSettings
.RangeType = ppShowSlideRange
.StartingSlide = 2
.EndingSlide = 4
.Run
End With
|
|
楼主: weiyingde
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2016-1-4 21:49