Özel Slayt Gösterisini Butonla Kapatma

[excelse04]

Merhaba, hazırlamış olduğum powerpoint sunumunda slayt içerisinde bulunan simgelere tıklayarak özel slayt olarak ayarlanmış ilgili slayt açılmakta. Açılan slaytta da aynı şekilde simgeler ile farklı özel slaytlara geçiş yapılabiliyor. Ancak sunumdan tamamen çıkmak istediğim zaman esc tuşuna basıyorum ve açmış olduğum özel salytları tek tek kapatıyor ve ilk slaytta esc tuşuna basınca sunum kapanıyor. Bu sorunu nasıl çözebilirim? Bir buton eklemesi yaparak ve bulunduğum slaytta o butona basarak sunumdan tamamen nasıl çıkabilirim yardımcı olur musunuz?

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub kod()
Dim ss As SlideShowWindow
For Each ss In SlideShowWindows
    ss.View.Exit
Next
End Sub

 

[excelse04]

Merhaba,
Deneyiniz...

Sub kod()
Dim ss As SlideShowWindow
For Each ss In SlideShowWindows
    ss.View.Exit
Next
End Sub

Denedim ancak butona bastığımda maalesef yine önceki slayta geçiş yapıyor ve sunum devam ediyor.

 

[ÖmerBey]

Bir de aşağıdaki haliyle dener misiniz?

Sub kod()
Dim ss As SlideShowWindow
Dim ana As String
ana = "AnaDosya.ppt" 'Kodun çalışacağı dosyanızn adı
For Each ss In SlideShowWindows
    If ss.Presentation.Name <> ana Then
        ss.View.Exit
    End If
Next
End Sub

.
İşe yaramazsa alternatif:

Sub kod2()
Dim sunu As Presentation
Dim ana As String
ana = "AnaDosya.ppt"

For Each sunu In Presentations
    If sunu.Name <> ana Then sunu.Close
Next
End Sub

Daha kısa olarak Application.Quit kodu da kullanılabilir, ancak bu kod tüm uygulamayı kapatır.
İyi çalışmalar...

 

[excelse04]

Bir de aşağıdaki haliyle dener misiniz?

Sub kod()
Dim ss As SlideShowWindow
Dim ana As String
ana = "AnaDosya.ppt" 'Kodun çalışacağı dosyanızn adı
For Each ss In SlideShowWindows
    If ss.Presentation.Name <> ana Then
        ss.View.Exit
    End If
Next
End Sub

.
İşe yaramazsa alternatif:

Sub kod2()
Dim sunu As Presentation
Dim ana As String
ana = "AnaDosya.ppt"

For Each sunu In Presentations
    If sunu.Name <> ana Then sunu.Close
Next
End Sub

Daha kısa olarak Application.Quit kodu da kullanılabilir, ancak bu kod tüm uygulamayı kapatır.
İyi çalışmalar...

İlk yazmış olduğunuz kodu denedim ancak yine bir önceki slayta geri dönüşü sağlıyor.
Alternatif kodunuz aslında işe yaradı. Sunum gösterisinden çıktı ve sunumu kapattı, powerpoint açık şekilde bekliyor.

Application.Quit kodu powerpointi kapatıyor dediğiniz gibi. Alternatif kodda sunum gösterisinden çıktıktan sonra bir de açılan sunumu tekrar başlatma şansımız olsaydı keşke

Çok teşekkür ederim, size de iyi çalışmalar

 

[ÖmerBey]

Alternatif kodda sunum gösterisinden çıktıktan sonra bir de açılan sunumu tekrar başlatma şansımız olsaydı keşke

Kod içindeki ana = "AnaDosya.ppt" satırını makroyu çalıştırdığınız dosya ismine göre düzenlerseniz o dosya kapanmayacaktır.

 

[excelse04]

Kod içindeki ana = "AnaDosya.ppt" satırını makroyu çalıştırdığınız dosya ismine göre düzenlerseniz o dosya kapanmayacaktır.

Hem ppt hemde pptx dosya uzantısı şeklinde denedim ancak yine de sunum kapanıyor.

 

[excelse04]

Chatgpt yardımı ile istediğim koda nihayet ulaşabildim.
Olur da bir gün biri yine böyle bir çözüm arar diye kodu buraya bırakıyorum;

Private Sub CommandButton1_Click()
Dim ss As SlideShowWindow
    While SlideShowWindows.Count > 0
        For Each ss In SlideShowWindows
            ss.View.Exit
        Next ss
    Wend
End Sub