Set oSld = Slds(Sld.Name)不成立？

ning84

总以为Set oSld = Slds(“幻灯片名称”)

结果出错

1. Private Sub Why()
   
2.    Dim Pres As PowerPoint.Presentation
   
3.    
   
4.    Dim Sld As Slide, Slds, oSld As Slide
   
5.        Set Slds = Application.ActivePresentation.Slides
   
6.        For Each Sld In Slds
   
7.              Debug.Print Sld.Name
   
8.              Set oSld = Slds(Sld.Name)
   
9.              Stop
   
10.             
    
11.        Next Sld
    
12. End Sub
    

复制代码

解决方法，绝对胡扯。

1. Private Sub Why()
   
2.    Dim Pres As PowerPoint.Presentation
   
3.    Dim Str
   
4.    Str = "IMG_20250320_084944.jpg"
   
5.    Dim Sld As Slide, Slds, oSld As Slide
   
6.        Set Slds = Application.ActivePresentation.Slides
   
7.        For Each Sld In Slds
   
8.              If Sld.Name = Str Then
   
9.                  Exit For
   
10.              End If
    
11.        Next Sld
    
12.        Debug.Print Sld.Name
    
13. End Sub

复制代码

lss001

'声明对象的重要性,见以下红色部分
Private Sub pptSlides()
   Dim Sld As Slide, Slds As Slides, oSld As Slide
       Set Slds =ActivePresentation.Slides
       For Each Sld In Slds
             Debug.Print Sld.Name
             Set oSld = Slds(Sld.Name)
             Stop

       Next
End Sub

朝露孤烟

反正投影片数一般也不多，干脆就这样写。