2010-12-10 130 views

回答

1
PowerPoint.SlideShowWindow.Presentation.SlideShowWindow.View.CurrentShowPosition 
0

Presentation pres = Globals.ThisAddIn.Application.ActivePresentation;

 foreach (Slide s in pres.Slides) 
     { 

      MessageBox.Show(s.SlideIndex); 
     } 

幻燈片標題我不知道,但

0

捕獲事件SlideShowNextSlideWn變量,得到了幻燈片的索引/標題。這裏有一個VBA例如:

Private Sub app_SlideShowNextSlide(ByVal Wn As SlideShowWindow) 
Dim s As Slide 
s = Wn.View.Slide 
Dim slideTitle As String 


If s.Layout <> ppLayoutBlank Then 
    If s.Shapes.HasTitle Then 
     slideTitle = s.Shapes.Title 
    Else 
     slideTitle = "(nothing)" 
    End If 
End If 

Dim sIndex As Integer 
sIndex = s.SlideIndex 

End Sub