Slaytları oluştururken powerpoint'te belirli bir slayta git


6

Bunu başarmak çok basit olabilir, ama bunu nasıl göreceğimi bilmiyorum.
MS powerpoint kullanarak sunumlar oluştururken slayttan slayda gitmem gerekiyor (slayt 3'ten slayt 45'e kadar). Şimdiye kadar slayt sıralayıcısı kullanarak gerekli slayta ulaştım.

Benzer bir gereksinim için, MS Word'ün klavye kısayolu Go to pagekullanılarak çağrılabilen seçeneği vardır Ctrl+G.

MS powerpoint'te slayt düzenlerken belirli bir slayta gitmek için benzer bir kısayol var mı?

Güncelleme

Aşağıdaki cevaptan ve internet aramasından Düzenleme modunda birinin belirli bir slayda gidemeyeceğini biliyorum (biri Word'de bir sayfaya gidecektir).

Bu işlevselliği uygulamak için aşağıdaki makroyu yazdım.

'Go to a particular slide when in edit mode
Sub go_to_slide()
Dim S As Integer
Dim total_slides As Integer
total_slides = ActivePresentation.Slides.Count
S = InputBox("Enter slide number", "Go To Slide")
If (S <= 0) Then
MsgBox ("Enter slide number greater than zero")
ElseIf (S > total_slides) Then
MsgBox ("Enter slide number less than the total slides")
ElseIf (S <= total_slides) Then
ActivePresentation.Slides(S).Select
End If
End Sub

Bunu uygulamak için daha iyi / verimli bir yolu var mı?

Yanıtlar:


3

Ben de aynı konuya rastladım. Örnek 60 slayt gitmek için, benim çözüm sunum moduna girmek ve hemen ardından geri düzenleme moduna gitmektir: <F5> 60 <Enter> <Esc>. Birkaç tuşa basma işlemi ancak yeterince hızlı ve benim için iyi çalışıyor.

F5: sunum modu

60: istenen slayt numarası

Girin: slayda git

Esc: gösterilen slaytta düzenleme moduna geri dön


2

Sunumda belirli bir slayta gitmek için bir kısayol var mı?

Sunum modu:

  • Slide number+ Enterveya

  • Right-clickBir slayt seçin, kısayol menüsünden "Slayta Git" i seçin ve sonra listeden bir slaytı başlık veya slayt numarasına göre seçin .

Düzenleme modu:

  • Belirli bir slayta hızlı bir şekilde gitme işlevi yoktur.

Cevabınız için teşekkürler. Makro ile soruyu güncelledim
Prasanna

0

@Praanna, kodun için teşekkür ederim, bu benim için işe yaramadı ama beni başlattı.

Bu sürüm benim için çalışıyor. Keşke nasıl klavye komutu (kısayol tuşu) atayabileceğimi bilsem.

Sub go_to_slide() 'Go to a particular slide when in edit mode. Adapted from https://superuser.com/q/1174096/74576
    Dim slide_num As Integer
    Dim total_slides As Integer
    total_slides = ActivePresentation.Slides.Count
    slide_num = InputBox("Enter slide number between 1 and " & total_slides, "Go To Slide")
    If ((slide_num <= 0) Or (slide_num > total_slides)) Then
        go_to_slide
    ElseIf (slide_num <= total_slides) Then
        'MsgBox ("Jumping to slide #" & slide_num)
        ActiveWindow.View.GotoSlide slide_num
    End If
End Sub
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.