|
|
楼主 |
发表于 2015-12-12 18:10
|
显示全部楼层
Arrange方法
在工作空间排列所有打开的文档窗口。
expression.Arrange(arrangeStyle)
expression 必选。该表达式返回“应用于”列表中的对象之一。
arrangeStyle 可选。PpArrangeStyle 类型。指定窗口的排列方式是层叠还是平铺。
PpArrangeStyle 可以是下列 PpArrangeStyle 类型常数之一。
ppArrangeCascade
ppArrangeTiled 默认值
VBA示例
本示例创建一个新窗口，然后排列所有打开的文档窗口。
Application.ActiveWindow.NewWindow
Windows.Arrange ppArrangeCascade
AutomaticLength方法
指定在移动标注时标注线的第一段（附加到文本标注框的段）自动缩放。使用CustomLength方法指定在移动标注时标注线的第一段保持由Length属性返回的固定长度。仅应用于标注线包含多段的标注（msoCalloutThree 和 msoCalloutFour 类型）。
expression.AutomaticLength
expression 必选。该表达式返回一个 CalloutFormat对象。
说明
应用此方法会将AutoLength属性设为 True。
VBA示例
本示例用来切换使第一段的长度可以调整或使用myDocument 上第一个形状标注线的固定长度。要执行本示例，第一个形状必须是标注。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).Callout
If .AutoLength Then
.CustomLength 50
Else
.AutomaticLength
End If
End With
Background方法
指定形状的填充与幻灯片背景相匹配。如果将此方法应用于填充后又更改了幻灯片背景色，该填充会随之改变。
说明
请注意，将 Background方法应用于形状的填充与设置该形状的透明填充不完全相同，也不完全等同于将形状填充设为与背景相同。请参见第二个示例。
VBA示例
本示例将活动演示文稿第一张幻灯片第一个形状的填充设为与幻灯片背景相匹配。
ActivePresentation.Slides(1).Shapes(1).Fill.Background
本示例将活动演示文稿第一张幻灯片的背景设为一个预设的过渡填充，在幻灯片中添加一个矩形，然后在该矩形前面放置三个椭圆。第一个椭圆的填充与幻灯片背景相匹配，第二个的填充为透明，而第三个使用的填充方式与背景相同。请注意三个椭圆外观的不同。
With ActivePresentation.Slides(1)
.FollowMasterBackground = False
.Background.Fill.PresetGradient _
msoGradientHorizontal, 1, msoGradientDaybreak
With .Shapes
.AddShape msoShapeRectangle, 50, 200, 600, 100
.AddShape(msoShapeOval, 75, 150, 150, 100) _
.Fill.Background
.AddShape(msoShapeOval, 275, 150, 150, 100).Fill _
.Transparency = 1
.AddShape(msoShapeOval, 475, 150, 150, 100) _
.Fill.PresetGradient _
msoGradientHorizontal, 1, msoGradientDaybreak
End With
End With
BeginConnect方法
将指定连接符的起点附加到指定形状。如果该连接符的起点已经连接到另一个形状，则断开原连接；如果该连接符起点没有位于指定的连接位置，此方法将它移到该位置，并调整连接符的大小和位置。使用EndConnect方法将连接符的终点附加到形状。
expression.BeginConnect(ConnectedShape, ConnectionSite)
expression 必选。该表达式返回一个 ConnectorFormat对象。
ConnectedShape 必选。Shape对象。将连接符起点附加到的形状。指定的 Shape对象必须与该连接符在同一 Shapes集合内。
ConnectionSite 必选。Long 类型。由 ConnectedShape 指定的形状上的连接位置。必须是从 1 到指定形状的 ConnectionSiteCount属性返回值之间的一个整数。如果要连接符自动选取两个形状间的最短路径，请为此参数指定任何有效整数值，并在连接符的两端都连到形状之后使用RerouteConnections方法。
说明
将连接符附加到对象后，如有必要，会自动调整该连接符的大小和位置。
VBA示例
本示例将两个矩形框添加到活动演示文稿第一张幻灯片，并用曲线连接符将它们连接。请注意 RerouteConnections方法使应用于 ConnectionSite参数的值与 BeginConnect 和 EndConnect方法无关。
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, 100, 100) _
.ConnectorFormat
.BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
.EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
.Parent.RerouteConnections
End With
|
|
楼主: weiyingde
沪公网安备 31011702000001号 沪ICP备11019229号-2
