Czy istnieje bezpośredni sposób na uzyskanie indeksu slajdu w prezentacji programu PowerPoint?

Question

Próbuję programowo skopiować slajd w prezentacji programu PowerPoint i wkleić go zaraz po oryginale.

Moja pierwsza myśl polegała na uzyskaniu indeksu starego slajdu i dodaniu kopii do pożądanego nowego indeksu, ale nie mogę znaleźć prostego sposobu na odzyskanie tego indeksu. Spodziewałem się mieć coś takiego jak Slides.IndexOf(Slide slide), ale nie mogłem znaleźć czegoś takiego. W końcu napisałem bardzo staromodny kod, który wydaje się działać, ale jestem ciekawy, czy istnieje lepszy sposób na zrobienie tego.

var slide = (PowerPoint.Slide)powerpoint.ActiveWindow.View.Slide; 
var slideIndex = 0; 
for (int index = 1; index <= presentation.Slides.Count; index++) 
{ 
    if (presentation.Slides[index] == slide) 
    { 
     slideIndex = index; 
     break; 
    } 
} 

To jest C#/VSTO, ale każde wejście, które może narazić mnie na właściwą drogę jest doceniane, czy to VBA lub VB!

Answer 1

Tak, czego potrzebujesz to Duplicate, który zwraca SlideRange. Oto przykład w VBA:

Sub DuplicateSlide() 
    Dim ap As Presentation 
    Set ap = ActivePresentation 
    Dim sl As SlideRange 
    Set sl = ap.Slides(2).Duplicate 
End Sub 

Aby prostu indeks slajdu, można użyć tego:

Sub GetSlideIndex() 
    Dim ap As Presentation 
    Set ap = ActivePresentation 
    Set sl = ap.Slides(2) 
    Debug.Print sl.SlideIndex 
End Sub