Làm thế nào tôi có thể lấy SlideIndex của một Slide hiển thị trong Powerpoint khi SelectionType = ppSelectionNone

Question

Tôi có một số mã yêu cầu tôi biết những gì SlideIndex hoạt động trên (ví dụ: vị trí chèn trang trình bày mới, vị trí chèn ChartObject, v.v. .). Khoảng 99% thời gian, tôi thành công có thể có được SlideIndex bởi:

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

Các khác 0,1% thời gian, khi ActivePresentation.Windows(1).SelectionType = ppSelectionNone, nó sẽ thất bại, bởi vì (dễ hiểu) nó không thể có được SlideIndex của lựa chọn, bởi vì không có lựa chọn. Điều này có thể xảy ra nếu người dùng vô tình "đã chọn" khoảng trống giữa hai trang trình bày trong ngăn Phác thảo.

Những gì tôi muốn làm, lý tưởng, là có được SlideIndex tài sản của slide mà có thể nhìn thấy trong cửa sổ Slides:

Tôi hiện đang có một số mã kiểm tra liệu SelectionType là ppSelectionNone, vì vậy tôi có thể bẫy điều kiện, tôi chỉ không tìm ra cách để xác định slideIndex của Slides Pane.

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 

Cập nhật

giải pháp tạm thời của tôi là sử dụng một biến nào lastUsedSlide trong một nỗ lực để theo dõi các phần Slide thời gian gần đây được lựa chọn nhiều nhất. Tôi có thể kết hợp điều này với sự kiện WindowSelectionChange, nhưng hy vọng sẽ có một giải pháp đơn giản hơn. Nếu tôi nghĩ phương pháp này sẽ luôn hoạt động, tôi sẽ sử dụng nó, tuy nhiên, nó có khả năng giới thiệu các lỗi không lường trước được, vì lastUsedSlide không phải là proxy đáng tin cậy cho what_slide_i_am_currently_looking_at.

Answer 1

David, có thể bạn có thể sử dụng thêm phương pháp Activate cho Window.Pane đối tượng như thế này:

'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 

Tuy nhiên, xin đọc một số khoảng hơn Pane.ViewType tài sản mà có thể là hữu ích. Trong thử nghiệm đơn giản của tôi cả hai công việc Panes(2) và Panes(3) hoạt động nhưng bạn có thể có ngữ cảnh khác nhau gọi điện cho phụ của bạn.

Answer 2

workaround tiềm năng, ở đây:

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 

Tôi không đặc biệt là chăm sóc cho nó, về mặt thẩm mỹ, nhưng có vẻ như để làm việc, loại. Chỉ có điều là bình thường nếu lựa chọn là giữa các trang trình bày, lực lượng này lựa chọn đầu tiên trong hai trang trình bày đó, khi tôi nghĩ rằng thứ hai sẽ trực quan hơn. Tôi có thể sửa đổi mã của mình để giải thích cho điều này, nhưng nó vẫn không lý tưởng.