Có cách nào trực tiếp để lấy chỉ mục của trang chiếu trong bản trình bày PowerPoint không?

Question

Tôi đang cố gắng sao chép một bản trình bày trong bản trình bày PowerPoint theo chương trình và dán ngay sau bản gốc.

Suy nghĩ đầu tiên của tôi là lấy chỉ mục của trang trình bày cũ và thêm bản sao vào chỉ mục mới mong muốn, nhưng dường như tôi không thể tìm được chỉ mục đơn giản để lấy chỉ mục đó. Tôi dự kiến ​​sẽ có một cái gì đó như Slides.IndexOf(Slide slide), nhưng không thể tìm thấy bất cứ điều gì như thế. Tôi đã kết thúc viết mã theo trường rất cũ, có vẻ như hiệu quả, nhưng tôi tò mò muốn biết có cách nào tốt hơn để làm điều này không.

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; 
    } 
} 

Đây là C#/VSTO, nhưng mọi đầu vào có thể đưa tôi vào đúng đường dẫn đều được đánh giá cao, có thể là VBA hoặc VB!

Answer 1

Có, những gì bạn muốn là Duplicate trả về SlideRange. Dưới đây là một ví dụ trong VBA:

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

Để chỉ nhận được chỉ số của slide, bạn có thể sử dụng này:

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