Jak uzyskać obiekt SlideIndex widocznego slajdu w programie Powerpoint, gdy SelectionType = ppSelectionNone

Question

Mam kod, który wymaga ode mnie informacji, na którym SlideIndex powinien działać (np. Gdzie wstawić nowy slajd, gdzie wstawić obiekt ChartObject itp. .). Około 99% czasu, można skutecznie uzyskaniem SlideIndex przez:

Dim w as Long 'slide index variable 
w = ActivePresentation.Windows(1).Selection.SlideRange(1).SlideIndex 

Inne 0,1% w czasie, gdy ActivePresentation.Windows(1).SelectionType = ppSelectionNone, będzie to się nie uda, ponieważ (zrozumiałe) nie można uzyskać z następujących SlideIndex wybór, ponieważ nie ma wyboru. Może się tak zdarzyć, jeśli użytkownik nieumyślnie "wybrał" przestrzeń między dwoma slajdami w panelu Schemat.

Co chciałbym zrobić, najlepiej jest uzyskać własność suwaka, który jest widoczny w panelu Slajdy SlideIndex:

Obecnie mam jakiś kod, który sprawdza, czy SelectionType jest ppSelectionNone, więc może uwięzić warunek, po prostu nie wymyśliłem sposobu zidentyfikowania slajdu w panelu slajdów.

Function GetMySlide() 
Dim w as Long 
    If Not ActivePresentation.Windows(1).Selection.Type = ppSelectionNone Then 

     w = ActivePresentation.Windows(1).Selection.SlideRange(1).SlideIndex 
     Set GetMySlide = ActivePresentation.Slides(w) 

    Else: 

     MsgBox "No slide is currently selected. Please select a slide in the Outline pane in order to proceed.", vbInformation 
     Set GetMySlide = Nothing 
     Exit Function 
    End If 
End Function 

Aktualizacja

Moje rozwiązanie tymczasowe jest użycie zmiennej publicznej lastUsedSlide próbując śledzić ostatnio wybranego slajdu. Mogę włączyć to zdarzenie WindowSelectionChange, ale miałem nadzieję, że będzie prostsze rozwiązanie. Gdybym myślał, że ta metoda będzie działała, to zawsze używałbym go, ale potencjalnie wprowadza nieprzewidziane błędy, ponieważ lastUsedSlide nie jest niezawodnym proxy dla what_slide_i_am_currently_looking_at.

Answer 1

David, być może można użyć dodatkowo Activate metoda Window.Pane obiekt tak:

'new code: 
ActivePresentation.Windows(1).Panes(2).Activate 
'your code 
Dim w as Long 'slide index variable 
w = ActivePresentation.Windows(1).Selection.SlideRange(1).SlideIndex 

Jednak proszę przeczytać trochę więcej o Pane.ViewType właściwości, które mogą być pomocne. W moim prostym teście zarówno Panes(2) jak i Panes(3) działa, ale możesz mieć inny kontekst wywoływania twojego sub.

Answer 2

Potencjał obejście, tutaj:

http://eileenslounge.com/viewtopic.php?f=30&t=1667

If ActiveWindow.Selection.Type = ppSelectionNone Then 
    Select Case ActiveWindow.ViewType 
    Case ppViewNormal 
     ActiveWindow.ViewType = ppViewSlide 
     ActiveWindow.ViewType = ppViewNormal 
    Case ppViewSlideSorter 
     ActiveWindow.ViewType = ppViewSlide 
     ActiveWindow.ViewType = ppViewSlideSorter 
    Case Else 
     ' ? 
    End Select 
End If 
' A slide should be selected now 

nie szczególnie dbać o to, estetycznie, ale wydaje się działać, rodzaj. Jedynie normalnie, jeśli wybór znajduje się pomiędzy slajdami, zmusza to wybór do pierwszego z tych dwóch slajdów, gdy myślę, że drugi byłby bardziej intuicyjny. Mogę zmodyfikować mój kod, aby to uwzględnić, ale nadal nie jest idealny.