ppt vba 如何获取当前幻灯片索引编号

碧海驼铃

ppt vba 获取当前幻灯片索引编号

paciguard

发错地方了吧.....

lv_king_2017

Public Sub ShowSlideIndex()
    Dim i As Long

    i = SlideShowWindows.Count
    If i <> 0 Then
        MsgBox "正在放映第 " & SlideShowWindows(1).View.Slide.SlideIndex & " 张幻灯片。"
    Else
        MsgBox "当前未放映任何幻灯片！"
        ActivePresentation.Close
    End If
   
End Sub

ning84

lv_king_2017 发表于 2017-5-3 13:36
Public Sub ShowSlideIndex()
    Dim i As Long

1. Function OpenPresAndSlide(FileName)
   
2.     Dim Ppt As PowerPoint.Application
   
3.         Set Ppt = New PowerPoint.Application
   
4.         Ppt.Visible = msoCTrue
   
5.     Dim Pres As Presentation
   
6.     Dim Sld As Slide
   
7.         For kk = 1 To Ppt.Presentations.Count
   
8. Debug.Print Ppt.Presentations.Item(kk).fullName = FileName
   
9.             If UCase(Ppt.Presentations.Item(kk).fullName) = UCase(FileName) Then
   
10.                 Debug.Print Ppt.Presentations.Item(kk).fullName
    
11.                 Set Pres = Ppt.Presentations(kk)
    
12.             Else
    
13.                 Set Pres = Ppt.Presentations.Open(FileName)
    
14.             End If
    
15.         Next kk
    
16.         Set OpenPresAndSlide = Ppt.ActiveWindow.View.Slide
    
17. End Function

复制代码