ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: weiyingde

[分享] ppt学习资料

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-12-13 12:19 | 显示全部楼层
CreateNewDocument方法
新建一个与指定超链接相关联的 Web 演示文稿。
expression.CreateNewDocument(FileName, EditNow, Overwrite)
expression  必选。返回 Hyperlink对象的表达式。
FileName  必选。String 类型。文档的路径和文件名。
EditNow  必选。MsoTriState 类型。决定是否在关联的编辑器中立即打开文档。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 不立即打开文档。
msoTriStateMixed
msoTriStateToggle
msoTrue 默认。在关联的编辑器中立即打开文档进行修改。
Overwrite  必选。MsoTriState 类型。 决定在同一文件夹中是否覆盖任何现有的同名文件。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 默认。保留同一文件夹中的所有现有的同名文件,必须在 FileName参数中指定一新文件名。
msoTriStateMixed
msoTriStateToggle
msoTrue 覆盖同一文件夹中的所有现有的同名文件。
VBA示例
本示例将创建一个新的 Web 演示文稿,该演示文稿将与第一张幻灯片的第一个超链接相关联。新演示文稿的名为“Brittany.ppt”,同时它还会覆盖“HTMLPres”文件夹中的同名文件。此演示文稿还会立即装入到 Microsoft PowerPoint 中进行编辑。
ActivePresentation.Slides(1).Hyperlinks(1).CreateNewDocument _
    FileName:="C:\HTMLPres\Brittany.ppt", _
    EditNow:=msoTrue, _
    Overwrite:=msoTrue
CustomDrop方法
以磅为单位设置从文本框边界到标注线连接文本框位置的垂直距离。该距离通常从文本框顶端测量,但当 AutoAttach属性值设为 True 且文本框位于标注线源位置(该标注所指向的位置)的左侧时,该垂直距离从文本框底端测量。
expression.CustomDrop(Drop)
expression  必选。该表达式返回一个 CalloutFormat对象。
Drop  必选。Single 类型。垂直距离,以磅为单位。
VBA示例
本示例将自定义垂直距离设为 14 磅,并指定该垂直距离总是从顶端测量。要使本示例执行,第三个形状必须是标注。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Callout
    .CustomDrop 14
    .AutoAttach = False
End With
CustomLength方法
指定标注线的第一段(附加到文本标注框的段)在标注被移动时保持固定长度。使用AutomaticLength方法指定第一段在标注被移动时自动缩放。仅应用于标注线多于一段的标注(msoCalloutThree 和 msoCalloutFour 类型)。
expression.CustomLength(Length)
expression  必选。该表达式返回一个 CalloutFormat对象。
Length  必选。Single 类型。标注的第一段的长度,以磅为单位。
说明
应用该方法会将AutoLength属性设为 False,并将Length属性设为 Length参数指定的值。
VBA示例
本示例在自动调整比例的第一段和具有固定长度的另一段之间切换myDocument 的第一个形状的标注线。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).Callout
    If .AutoLength Then
        .CustomLength 50
    Else
        .AutomaticLength
    End If
End With

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-12-13 12:20 | 显示全部楼层
Cut方法
删除指定的对象并将其放到剪贴板。
expression.Cut
expression  必选。该表达式返回一个 Selection、Shape、ShapeRange、Slide、SlideRange 或 TextRange对象。
VBA示例
本示例删除第一个窗口中选中的对象并将它的一个副本放到剪贴板。
Windows(1).Selection.Cut
本示例从活动演示文稿的第一张幻灯片中删除第一个和第二个形状,并将它们的副本放到剪贴板,然后将该副本粘贴到第二张幻灯片。
With ActivePresentation
    .Slides(1).Shapes.Range(Array(1, 2)).Cut
    .Slides(2).Shapes.Paste
End With
本示例从活动演示文稿中删除第一张幻灯片并将它的一个副本放到剪贴板。
ActivePresentation.Slides(1).Cut
本示例删除活动演示文稿中第一张幻灯片的第一个形状中的文本,并将它的一个副本放到剪贴板。
ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Cut
Delete方法
应用于 ShapeNodes对象的 Delete方法。
删除形状结点。
expression.Delete(Index)
expression  必选。该表达式返回一个ShapeNodes对象。
Index  必选。Long 类型。指定要删除的结点。该结点后的段也将被删除。若该结点是一条曲线的控制点,则该曲线及其所有结点将都被删除。
应用于 Tags对象的 Delete方法。
删除标记。
expression.Delete(Name)
expression  必选。该表达式返回一个Tags对象。
Name  必选。String 类型。指定要删除的标记的名称。
应用于“应用于”列表中所有其他对象的 Delete方法。
删除指定对象。
expression.Delete
expression  必选。该表达式返回“应用于”列表中的对象之一,ShapeNodes 和 Tags对象除外。
说明
试图删除表格中唯一的行或列会导致运行时错误。
VBA示例
应用于 Shape对象。
本示例从活动演示文稿的第一张幻灯片中删除所有任意多边形。
With Application.ActivePresentation.Slides(1).Shapes
    For intShape = .Count To 1 Step -1
        With .Item(intShape)
            If .Type = msoFreeform Then .Delete
        End With
    Next
End With
DeleteText方法
删除与指定形状相关的文本。
expression.DeleteText
expression  必选。该表达式返回一个 TextFrame对象。
VBA示例
如果myDocument 中的第二个形状包含文本,则本示例删除该文本。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(2).TextFrame.DeleteText
Distribute方法
在指定的形状范围内均匀分布形状。可以指定是水平还是垂直分布形状,以及是在整个幻灯片中还是在它们原来所在的空间内分布形状。
expression.Distribute(DistributeCmd, RelativeTo)
expression  必选。该表达式返回一个 ShapeRange对象。
DistributeCmd  必选。MsoDistributeCmd 类型。指定在该范围内的形状是水平分布还是垂直分布。
MsoDistributeCmd 可以是下列 MsoDistributeCmd 类型常数之一。
msoDistributeHorizontally
msoDistributeVertically
RelativeTo  必选。MsoTriState 类型。决定形状在幻灯片的整个水平或垂直空间上是否均匀分布。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 在形状原来所在范围的水平或垂直空间内分布形状。
msoTriStateMixed
msoTriStateToggle
msoTrue 在幻灯片的整个水平或垂直空间上均匀分布形状。
VBA示例
本示例定义包含在myDocument 上的所有自选图形的形状范围,然后在该范围内水平分布这些形状。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    numShapes = .Count
    If numShapes > 1 Then
        numAutoShapes = 0
        ReDim autoShpArray(1 To numShapes)
        For i = 1 To numShapes
            If .Item(i).Type = msoAutoShape Then
                numAutoShapes = numAutoShapes + 1
                autoShpArray(numAutoShapes) = .Item(i).Name
            End If
        Next
        If numAutoShapes > 1 Then
            ReDim Preserve autoShpArray(1 To numAutoShapes)
            Set asRange = .Range(autoShpArray)
            asRange.Distribute msoDistributeHorizontally, msoFalse
        End If
    End If
End With

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-12-13 12:20 | 显示全部楼层
DoVerb方法
请求 OLE对象执行其中一个动词。使用ObjectVerbs属性确定 OLE对象的有效动词。
expression.DoVerb(Index)
expression  必选。该表达式返回一个 OLEFormat对象。
Index  可选。Integer 类型。要执行的动词。如果省略该参数,则执行默认动词。
VBA示例
本示例对活动演示文稿中第一张幻灯片的第三个形状执行默认动词,其中第三个形状是链接或嵌人的 OLE对象。
With ActivePresentation.Slides(1).Shapes(3)
    If .Type = msoEmbeddedOLEObject Or _
            .Type = msoLinkedOLEObject Then
        .OLEFormat.DoVerb
    End If
End With
本示例对活动演示文稿中第一张幻灯片的第三个形状执行默认动词“Open”,其中第三个形状是支持动词“Open”的 OLE对象。
With ActivePresentation.Slides(1).Shapes(3)
    If .Type = msoEmbeddedOLEObject Or _
            .Type = msoLinkedOLEObject Then
        For Each sVerb In .OLEFormat.ObjectVerbs
            nCount = nCount + 1
            If sVerb = "Open" Then
                .OLEFormat.DoVerb nCount
                Exit For
            End If
        Next
    End If
End With
DrawLine方法
在指定幻灯片放映视图中画一条线。
expression.DrawLine(BeginX, BeginY, EndX, EndY, Height)
expression  必选。该表达式返回一个 SlideShowView对象。
BeginX,BeginY  必选。Single 类型。线的起点相对于幻灯片左上角的位置(以磅为单位)。
EndX, EndY  必选。Single 类型。线的终点相对于幻灯片左上角的位置(以磅为单位)。
VBA示例
本示例在第一个幻灯片放映窗口中画一条线。
SlideShowWindows(1).View.DrawLine 5, 5, 250, 250

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-12-13 12:21 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
Duplicate方法
在方法应用于 Shape 和 ShapeRange对象时复制方法。
创建指定的 Shape 或 ShapeRange对象的副本,在最初指定了形状或形状范围之后立即向 Shapes集合中添加新的形状或形状范围,然后返回新的 Shape 或 ShapeRange对象。
expression.Duplicate
expression  必选。该表达式返回上述对象之一。
在方法应用于 Slide 和 SlideRange对象时复制方法。
创建指定的 Slide 或 SlideRange对象的副本,在最初指定了幻灯片或幻灯片范围之后立即向 Slides集合中添加新的幻灯片或幻灯片范围,然后返回代表一个副本幻灯片或多个副本幻灯片的 Slide 或 SlideRange对象。
expression.Duplicate
expression  必选。该表达式返回上述对象之一。
VBA示例
当方法应用于 Shape 和 ShapeRange对象时。
本示例在活动演示文稿的末尾添加一张新的空白幻灯片,在新幻灯片中添加一个钻石形状,复制该钻石形状,然后设置该副本的属性。第一个钻石形状将具有当前配色方案的默认填充色,第二个钻石形状将偏离第一个形状并具有默认的阴影色。
Set mySlides = ActivePresentation.Slides
Set newSlide = mySlides.Add(mySlides.Count + 1, ppLayoutBlank)
Set firstObj = newSlide.Shapes _
    .AddShape(msoShapeDiamond, 10, 10, 250, 350)
With firstObj.Duplicate
    .Left = 150
    .Fill.ForeColor.SchemeColor = ppShadow
End With
当方法应用于 Slide 和 SlideRange对象时
本示例创建活动演示文稿中第一张幻灯片的一个副本,然后设置新幻灯片的背景阴影和标题文本。新幻灯片将作为演示文稿的第二张幻灯片。
Set newSlide = ActivePresentation.Slides(1).Duplicate
With newSlide
    .Background.Fill.PresetGradient msoGradientVertical, _
        1, msoGradientGold
    .Shapes.Title.TextFrame.TextRange _
        .Text = "Second Quarter Earnings"
End With
EndConnect方法
将指定连接符的终点连到指定形状上。如果该连接符的终点已经连接到另一个形状,则断开原连接;如果该连接符终点没有位于指定的连接位置,此方法将它移到该位置,并调整连接符的位置和大小。使用 BeginConnect方法将连接符的起点连到形状上。
expression.EndConnect(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
EndDisconnect方法
将指定的连接符终点与所连接的形状断开。该方法不改变该连接符的大小或位置。该连接符终点仍然在连接位置上,但已不再相连。使用BeginDisconnect方法将连接符的起点与形状断开。
expression.EndDisconnect
expression  必选。该表达式返回一个 ConnectorFormat对象。
VBA示例
本示例向当前演示文稿的第一张幻灯片中添加两个矩形框,并用连接符连接它们,且自动地把连接符的路径修改为最短路径,然后断开连接符与矩形框之间的连接。
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, 0, 0).ConnectorFormat
    .BeginConnect firstRect, 1
    .EndConnect secondRect, 1
    .Parent.RerouteConnections
    .BeginDisconnect
    .EndDisconnect
End With

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-12-13 12:22 | 显示全部楼层
EndNamedShow方法
从放映自定义或命名的幻灯片放映切换到放映整个演示文稿(自定义放映是整个演示文稿的子集)。当幻灯片放映从当前幻灯片继续时,下一张显示的幻灯片将是整个演示文稿中的下一张幻灯片,而不是自定义幻灯片放映中的下一张。
expression.EndNamedShow
expression  必选。该表达式返回一个 SlideShowView对象。
VBA示例
如果第一个幻灯片放映窗口中正在执行自定义幻灯片放映,本示例将该幻灯片放映重新定义为包含演示文稿中所有的幻灯片(自定义放映是从整个演示文稿中选出的)。
SlideShowWindows(1).View.EndNamedShow
EndReview方法
终止文件审阅,该文件为使用SendForReview方法发送以进行审阅或自动放置在审阅流程中的文件。
expression.EndReview
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例终止对当前演示文稿的审阅。执行后,本过程将显示一条消息询问是否结束审阅。本示例假设当前演示文稿正处于审阅流程中。
Sub EndPPTRev()
    ActivePresentation.EndReview
End Sub
EraseDrawing方法
使用DrawLine方法或绘图笔工具擦除在灯片放映中所绘的线条。
expression.EraseDrawing
expression  必选。该表达式返回一个 SlideShowView对象。
VBA示例
本示例擦除第一个幻灯片放映窗口中所有用 DrawLine方法或绘图笔所绘的线条。
SlideShowWindows(1).View.EraseDrawing
Exit方法
结束指定的幻灯片放映。
expression.Exit
expression  必选。该表达式返回一个 SlideShowView对象。
VBA示例
本示例结束第一个幻灯片放映窗口中的幻灯片放映。
SlideShowWindows(1).View.Exit

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-12-13 12:22 | 显示全部楼层
Export方法
应用于 Slide 和 SlideRange对象的 Export方法。
使用指定的图形筛选器导出一张幻灯片或幻灯片范围,并将导出的文件以指定的文件名保存。
expression.Export(FileName, FilterName, ScaleWidth, ScaleHeight)
expression  必选。该表达式返回上述对象之一。
FileName  必选。String 类型。将导出并保存到磁盘的文件的名称。可以包括完整路径;如果不包括完整路径,Microsoft PowerPoint 在当前文件夹中创建一个文件。
FilterName  必选。String 类型。要导出幻灯片的图形格式。指定的图形格式必须已在 Windows 注册表中注册一个输出筛选器。可以指定注册的文件扩展名或筛选器名称。PowerPoint 首先在注册表中搜索匹配的文件扩展名。如果没有找到与指定字符串匹配的扩展名,PowerPoint 将查找匹配的筛选器名称。
ScaleWidth  可选。Long 类型。导出的幻灯片的宽度(以像素为单位)。
ScaleHeight  可选。Long 类型。导出的幻灯片的高度(以像素为单位)。
说明
导出一个演示文稿不会将演示文稿的Saved属性值设为 True。
PowerPoint 使用指定的图形筛选器保存每张单独的幻灯片。导出并保存到磁盘的幻灯片的名称由 PowerPoint 决定。通常情况下,这些文件保存为 Slide1.wmf、Slide2.wmf 等。保存文件的路径在 FileName参数中指定。
应用于 Presentation对象的 Export方法。
使用指定的图形筛选器导出演示文稿中的每张幻灯片,并将导出的文件保存在指定的文件夹中。
expression.Export(Path, FilterName, ScaleWidth, ScaleHeight)
expression  必选。该表达式返回一个Presentation对象。
Path  必选。String 类型。保存导出幻灯片的文件夹所在路径。可以包括完整路径;如果不包括完整路径,Microsoft PowerPoint 在当前文件夹中为导出的幻灯片创建一个子文件夹。
FilterName  必选。String 类型。要导出的幻灯片的图形格式。指定的图形格式必须在 Windows 注册表有注册的输出筛选器。可以指定注册的扩展名或筛选器名称。PowerPoint 首先在注册表中搜索匹配的扩展名。如果没有找到与指定字符串匹配的扩展名,PowerPoint 将查找匹配的筛选器名称。
ScaleWidth  可选。Long 类型。导出的幻灯片的宽度(以像素为单位)。
ScaleHeight  可选。Long 类型。导出的幻灯片的高度(以像素为单位)。
说明
导出一个演示文稿不会将演示文稿的Saved属性值设为 True。
PowerPoint 使用指定的图形筛选器保存演示文稿中每张单独的幻灯片。导出并保存到磁盘的幻灯片的名称由 PowerPoint 决定。通常情况下,这些文件保存为 Slide1.wmf、Slide2.wmf 等。保存文件的路径在 Path参数中指定。
VBA示例
应用于 Presentation对象。
本示例将当前演示文稿保存为 Microsoft PowerPoint 演示文稿,然后将其中的每个幻灯片导出为可移植网络图形 (PNG) 文件并保存在 Current Work 文件夹中。本示例还将每个导出的幻灯片的高度和宽度均设为 100 像素。
With ActivePresentation
    .SaveAs FileName:="c:\Current Work\Annual Sales", _
        FileFormat:=ppSaveAsPresentation
    .Export Path:="c:\Current Work", FilterName:="png", _
        ScaleWidth:=100, ScaleHeight:=100
End With
应用于 Slide对象。
本示例将当前演示文稿中第三张幻灯片以 JPEG 图形格式导出到磁盘上。该幻灯片将保存为 Slide 3 of Annual Sales.jpg。
With Application.ActivePresentation.Slides(3)
    .Export "c:\my documents\Graphic Format\" & _
        "Slide 3 of Annual Sales", "JPG"
End With

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-12-14 08:34 | 显示全部楼层

Find方法
在一个文本范围内查找指定的文本,并返回TextRange对象,该对象代表找到该文本的第一个文本范围。如果找不到指定的文本,则返回 Nothing。
expression.Find(FindWhat, After, MatchCase,WholeWords)
expression 必选。该表达式返回一个 TextRange对象。
FindWhat 必选。String 类型。要搜索的文本。
After 可选。Long 类型。指定文本范围内的特定字符位置,在该字符后搜索 FindWhat 的下一次匹配。例如,如果要从文本范围的第五个字符后开始搜索,可指定 After 为 4。如果忽略此参数,则将文本范围的第一个字符作为搜索的起点。
MatchCase 可选。MsoTriState 类型。属性值为 MsoTrue 时,搜索区分大小写字符。
  
MsoTriState 可以是下列 MsoTriState 类型常数之一。
  
  
msoCTrue
  
  
msoFalse 默认值。
  
  
msoTriStateMixed
  
  
msoTriStateToggle
  
  
msoTrue 搜索匹配 FindWhat参数中的字母大小写.
  
WholeWords  可选。MsoTriState 类型。属性值为 MsoTrue 时,搜索仅查找完整单词,而非较长单词的一部分。
  
MsoTriState 可以是下列 MsoTriState 类型常数之一。
  
  
msoCTrue
  
  
msoFalse 默认值。
  
  
msoTriStateMixed
  
  
msoTriStateToggle
  
  
msoTrue 搜索仅查找完整单词,而非较长单词的一部分。
  
VBA示例
本示例在当前演示文稿中查找所有“CompanyX”字符串,并将其格式设为加粗。
ForEach sld In Application.ActivePresentation.Slides
    For Each shp In sld.Shapes
        If shp.HasTextFrame Then
            Set txtRng =shp.TextFrame.TextRange
            Set foundText =txtRng.Find(FindWhat:="CompanyX")
            Do While Not (foundText Is Nothing)
                With foundText
                    .Font.Bold = True
                    Set foundText = _
                       txtRng.Find(FindWhat:="CompanyX", _
                        After:=.Start + .Length- 1)
                End With
          Loop
        End If
    Next
Next
FindBySlideID方法
返回一个Slide对象,该对象代表具有指定标识符的幻灯片。每张幻灯片在创建时自动分配唯一的幻灯片标识符,请使用SlideID属性返回幻灯片的标识符。
expression.FindBySlideID(SlideID)
expression 必选。该表达式返回一个 Slides集合。
SlideID 必选。Long 类型。要返回幻灯片的标识符。PowerPoint 在创建幻灯片时分配该值。
说明
与SlideIndex属性不同,在演示文稿中添加或重新排列幻灯片时,Slide对象的 SlideID属性不会改变。因此,与对幻灯片的索引号使用Item方法相比,对幻灯片标识符使用 FindBySlideID方法是从 Slides集合返回指定 Slide对象的更可靠方法。
VBA示例
本示例示范如何恢复 Slide对象的唯一标识符,并使用该标识符从 Slides集合返回该 Slide对象。
Setgslides = ActivePresentation.Slides
'Getslide ID
graphSlideID= gslides.Add(2, ppLayoutChart).SlideID
gslides.FindBySlideID(graphSlideID)_
    .SlideShowTransition.EntryEffect = _
    ppEffectCoverLeft      'Use ID to return specific slide

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-12-14 08:34 | 显示全部楼层
FindFirstAnimationFor方法
返回Effect对象,该对象代表给定形状的第一个动画。
expression.FindFirstAnimationFor(Shape)
expression 必选。该表达式返回“应用于”列表中的对象之一。
Shape 必选。Shape对象。要查找其第一个动画的形状。
VBA示例
以下示例查找并删除第一张幻灯片上第一个形状的第一个动画。本示例假设指定形状至少具有一个动画效果。
SubFindFirstAnimation()
    Dim sldFirst As Slide
    Dim shpFirst As Shape
    Dim effFirst As Effect
    Set sldFirst = ActivePresentation.Slides(1)
    Set shpFirst =sldFirst.Shapes(1)
    Set effFirst =sldFirst.TimeLine.MainSequence _
        .FindFirstAnimationFor(Shape:=shpFirst)
    effFirst.Delete
EndSub
FindFirstAnimationForClick方法
返回Effect对象,该对象代表按指定的单击次数启动的第一个动画。
expression.FindFirstAnimationForClick(Click)
expression 必选。该表达式返回“应用于”列表中的对象之一。
Click 必选。Long 类型。指定的单击次数。
VBA示例
以下示例在第一张幻灯片上查找第一次单击时启动的第一个动画,并将其动画效果更改为弹跳。
SubFindFirstAnimationClick()
    Dim sldFirst As Slide
    Dim effClick As Effect
    Set sldFirst = ActivePresentation.Slides(1)
    Set effClick =sldFirst.TimeLine.MainSequence _
        .FindFirstAnimationForClick(Click:=1)
    effClick.EffectType = msoAnimEffectBounce
EndSub

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-12-14 08:35 | 显示全部楼层
First方法
设置指定的幻灯片放映视图,显示演示文稿的第一张幻灯片。
expression.First
expression 必选。该表达式返回一个 SlideShowView对象。
说明
如果使用 First方法在幻灯片放映过程中从一张幻灯片切换到另一张幻灯片,返回原幻灯片时,它的动画继续从被中断处开始放映。
VBA示例
本示例设置第一个幻灯片放映窗口以显示演示文稿的第一张幻灯片。
SlideShowWindows(1).View.First
FitToPage方法
调整指定文档窗口的大小,以适应当前显示的信息。
expression.FitToPage
expression 必选。该表达式返回一个 DocumentWindow对象。
VBA示例
本示例退出当前的幻灯片演示,将当前窗体的视图设置为幻灯片视图,放大倍数为百分之二十五,并调整窗体的大小以适应所显示的幻灯片。
Application.SlideShowWindows(1).View.Exit
WithApplication.ActiveWindow
    .ViewType = ppViewSlide
    .View.Zoom = 25
    .FitToPage
EndWith
Flip方法
绕水平或垂直轴翻转指定的形状。
expression.Flip(FlipCmd)
expression 必选。该表达式返回一个 Shape 或 ShapeRange对象。
FlipCmd 必选。MsoFlipCmd 类型。指定该形状是水平翻转还是垂直翻转。
  
MsoFlipCmd 可以是下列 MsoFlipCmd 类型常数之一。
  
  
msoFlipHorizontal
  
  
msoFlipVertical
  
VBA示例
本示例将一个三角形添加到myDocument,复制该三角形,再垂直翻转复制的三角形并使之变红。
SetmyDocument = ActivePresentation.Slides(1)
WithmyDocument.Shapes _
        .AddShape(msoShapeRightTriangle, 10,10, 50, 50).Duplicate
    .Fill.ForeColor.RGB = RGB(255, 0, 0)
    .Flip msoFlipVertical
EndWith

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-12-14 08:36 | 显示全部楼层
Follow方法
在新的 Web 浏览器窗口中显示与指定超链接相关联的 HTML 文档。
expression.Follow
expression 必选。一个返回 Hyperlink对象的表达式。
VBA示例
本示例在一个新的 Web 浏览器实例中加载与第一张幻灯片的第一个超链接相关联的文档。
ActivePresentation.Slides(1).Hyperlinks(1).Follow
FollowHyperlink方法
如果缓存文档已被下载,本方法将其显示出来。否则,该方法将识别超链接,下载目标文档并将其显示在适当的应用程序中。
expression.FollowHyperlink(Address,SubAddress, NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo)
expression 必选。该表达式返回一个 Presentation对象。
Address 必选。String 类型。目标文档的地址。
SubAddress 可选。String 类型。在目标文档中的位置。此参数默认为空字符串。
NewWindow 可选。Boolean 类型。值为 True 时,在新窗口中打开目标应用程序。默认值为 False。
AddHistory 可选。Boolean 类型。值为 True 时,将该链接添加到当天的历史记录文件夹中。
ExtraInfo 可选,String 类型。指定 HTTP 信息的字符串或字节数组。此参数可用于指定如图象的坐标或窗体的内容等,还可用于指定一个 FAT 文件名。Methord参数将判断如何处理这些附加信息。
Method 可选。MsoExtraInfoMethod 类型。指定张贴或添加 ExtraInfo的方法。
  
MsoExtraInfoMethod 可以是下列  MsoExtraInfoMethod 类型常数之一。
  
  
msoMethodGet默认。ExtraInfo 是添加到该地址的一个 String。
  
  
msoMethodPost ExtraInfo 作为一个 String 或字节数组张贴。
  
HeaderInfo 可选,String 类型。指定 HTTP 所需标题信息的字符串。默认值为一个空字符串。可以通过使用下列语法:"string1" & vbCr & "string2" 将几个标题行组合为一个单个字符串。所指定的字符串自动转换为 ANSI 字符。注意,HeaderInfo参数可能会覆盖默认的 HTTP 标题字段。
VBA示例
本示例在一新窗口中下载 www.gohere.com 上的文档并将其加入 History 文件夹。
ActivePresentation.FollowHyperlink_
    Address:="http://www.gohere.com",_
    NewWindow:=True, AddHistory:=True
GotoNamedShow方法
在其他幻灯片放映过程中切换到指定的自定义或命名幻灯片放映。当幻灯片放映从当前幻灯片继续时,显示的下一张幻灯片将是指定自定义幻灯片放映中的下一张幻灯片,而不是当前幻灯片放映中的下一张。
expression.GotoNamedShow(SlideShowName)
expression 必选。该表达式返回一个 SlideShowView对象。
SlideShowName  必选。String 类型。要切换到的自定义幻灯片放映名称。
VBA示例
本示例将第一个幻灯片放映窗口中正在运行的幻灯片放映重新定义为仅包含自定义幻灯片放映“Quick Show”中的幻灯片。
SlideShowWindows(1).View.GotoNamedShow"Quick Show"
GotoSlide方法
应用于 View对象的 GotoSlide方法。
切换到指定幻灯片。
expression.GotoSlide(Index)
expression 必选。该表达式返回一个 View对象。
Index 必选。Integer 类型。要切换到的幻灯片编号。
应用于SlideShowView对象的 GotoSlide方法。
在幻灯片放映期间切换到指定幻灯片。可指定是否要重运行动画效果。
expression.GotoSlide(Index, ResetSlide)
expression 必选。该表达式返回一个 SlideShowView对象。
Index 必选。Integer 类型。要切换到的幻灯片编号。
ResetSlide 可选。MsoTriState 类型。如果在幻灯片放映期间将 ResetSlide 设置为 msoFalse,当从一张幻灯片切换到另一张幻灯片,再返回第一张幻灯片时,动画将从中断位置重新播放。如果将 ResetSlide 设置为 msoTrue,当从一张幻灯片切换到另一张幻灯片,再返回第一张幻灯片时,将重新播放整个动画。默认值为 msoTrue。
  
MsoTriState 可以是下列 MsoTriState 类型常数之一。
  
  
msoCTrue
  
  
msoFalse
  
  
msoTriStateMixed
  
  
msoTriStateToggle
  
  
msoTrue 默认。
  
VBA示例
本示例在第一个幻灯片放映窗口中从当前幻灯片切换到第三张幻灯片。如果在幻灯片放映过程中切换回当前幻灯片,将重新播放整个动画。
WithSlideShowWindows(1).View
    .GotoSlide 3
EndWith
本示例在第一个幻灯片放映窗口中从当前幻灯片切换到第三张幻灯片。如果在幻灯片放映过程中切换回当前幻灯片,动画将从中断位置重新播放。
WithSlideShowWindows(1).View
    .GotoSlide 3, msoFalse
EndWith

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 18:53 , Processed in 0.071176 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表