学习幻灯片对象 (PowerPoint)

ning84

幻灯片对象 (PowerPoint) | Microsoft Learn  https://learn.microsoft.com/zh-c ... i/PowerPoint.Slides



幻灯片对象 (PowerPoint)

• 项目
• 2023/04/07
• 6 个参与者
  

[size=0.875em]反馈

本文内容

• [color=var(--theme-hyperlink)]备注
• [color=var(--theme-hyperlink)]示例
• [color=var(--theme-hyperlink)]另请参阅
  

指定演示文稿中所有 [color=var(--theme-hyperlink)]Slide 对象的集合。

备注

如果您的Visual Studio解决方案包括 Microsoft.Office.Interop.PowerPoint的引用，此集合将映射到以下类型︰

• Microsoft.Office.Interop.PowerPoint.Slides.GetEnumerator（用于枚举 Slide 对象。）
  

下面的示例展示了如何执行下列操作：

• 创建一张幻灯片并将其添加到集合中
• 返回通过名称、索引号或幻灯片 ID 号指定的单张幻灯片
• 返回演示文稿中幻灯片的子集
• 同时将一种属性或方法应用到演示文稿中的所有幻灯片
  
  

示例

[color=var(--theme-hyperlink)]Slides 属性可用于返回 Slides 集合。 使用 [color=var(--theme-hyperlink)]Add 方法创建新幻灯片并将其添加到集合。 下例将新幻灯片添加到活动演示文稿。

[backcolor=var(--theme-code-header)][size=0.8]VB复制[color=var(--theme-success-invert) !important][backcolor=var(--theme-success-base) !important][size=1.125]

ActivePresentation.Slides.Add 2, ppLayoutBlank

使用 幻灯片 (索引) ，其中 index 是幻灯片名称或索引号，或者使用 Slide.FindBySlideID (索引) （其中 index 是幻灯片 ID 号）返回单个 Slide 对象。 下面的示例展示了如何设置活动演示文稿中第一张幻灯片的版式。

[backcolor=var(--theme-code-header)][size=0.8]VB复制[color=var(--theme-success-invert) !important][backcolor=var(--theme-success-base) !important][size=1.125]

ActivePresentation.Slides(1).Layout = ppLayoutTitle

下面的示例展示了如何设置活动演示文稿中“大图表”幻灯片的版式。 请注意，自动为幻灯片指定在幻灯片创建时生成的名称，格式为“幻灯片n”（其中 n 为整数）。 若要为幻灯片指定更有意义的名称，请使用 [color=var(--theme-hyperlink)]Name 属性。

[backcolor=var(--theme-code-header)][size=0.8]VB复制[color=var(--theme-success-invert) !important][backcolor=var(--theme-success-base) !important][size=1.125]

ActivePresentation.Slides("Big Chart").Layout = ppLayoutTitle

使用 Slide.Range (索引) ，其中 index 是幻灯片索引号或名称、幻灯片索引号数组或幻灯片名称数组，可返回一个 [color=var(--theme-hyperlink)]SlideRange 对象，该对象代表 幻灯片 集合的子集。 下面的示例设置活动演示文稿中第一和三张幻灯片的背景填充。

[backcolor=var(--theme-code-header)][size=0.8]VB复制[color=var(--theme-success-invert) !important][backcolor=var(--theme-success-base) !important][size=1.125]

With ActivePresentation.Slides.Range(Array(1, 3))     .FollowMasterBackground = False     .Background.Fill.PresetGradient msoGradientHorizontal, _         1, msoGradientLateSunset End With

如果想要同时对演示文稿中的所有幻灯片执行同一操作（例如删除所有幻灯片或为所有幻灯片设置属性），请使用没有自变量的 Slides.Range 来创建在 Slides 集合中包含所有幻灯片的 SlideRange 集合，然后将相应的属性或方法应用到 SlideRange 集合中。 下例设置活动演示文稿中全部幻灯片的背景填充。

[backcolor=var(--theme-code-header)][size=0.8]VB复制[color=var(--theme-success-invert) !important][backcolor=var(--theme-success-base) !important][size=1.125]

With ActivePresentation.Slides.Range     .FollowMasterBackground = False     .Background.Fill.PresetGradient msoGradientHorizontal, _         1, msoGradientLateSunset End With

1. Sub ff()
   
2.     Dim Sld As Slide, Slds As Slides
   
3.         
   
4.         Set Slds = Application.ActivePresentation.Slides
   
5.         Debug.Print Slds.Count
   
6.         
   
7.         For ii = 1 To 20
   
8.             Set Sld = Slds.Add(Index:=ii, Layout:=ppLayoutBlank)
   
9.         Next ii
   
10. End Sub

复制代码

ning84

学习学习，再学习。

1. Sub tmp()
   
2.    Dim Shp As Shape
   
3.    Dim Shps As Shapes
   
4.        Set Shps = Sheet1.Shapes
   
5.        For ii = Shps.Count To 1 Step -1
   
6.              Set Shp = Shps(ii)
   
7.              Debug.Print Shp.Name, Shp.Type
   
8.              Shp.Delete
   
9.        Next ii
   
10. End Sub
    

复制代码

ning84

学习Dictionary

1. '''
   
2. Sub l()
   
3.     Dim Pres As PowerPoint.Presentation
   
4.         Set Pres = RetuPpt
   
5.         With Pres
   
6.            Debug.Print .FullName, .Name
   
7.         End With
   
8.         Stop
   
9. End Sub
   
10. 
    
11. Function RetuPpt() As PowerPoint.Presentation
    
12.    
    
13.     Dim Dict As New Scripting.Dictionary
    
14.         Set Dict = New Scripting.Dictionary
    
15.     Dim Ppt As PowerPoint.Application, Shp, Slds 'As Slides
    
16.     Dim Pres As Presentation
    
17.          Set Ppt = New PowerPoint.Application
    
18.          Ppt.Visible = msoTrue
    
19.         '''
    
20.          For Each Pres In Ppt.Presentations
    
21.                   Set Dict(Pres.Name) = Pres
    
22.          Next Pres
    
23.          Set RetuPpt = Dict.Items(0)
    
24. End Function

复制代码