これは簡単に実現できるかもしれませんが、どのようにすれば見通せるかわかりません。
MS PowerPointを使用してプレゼンテーションを作成するとき、スライドからスライドへ(たとえば、スライド3からスライド45へ)移動する必要があります。これまでのところ、スライドソーターを使用して必要なスライドに到達しました。
同様の要件で、MS WordにはGo to page
のオプションがあり、Ctrl+G
キーボードショートカットを使用して呼び出すことができます。
MS powerpointでスライドを編集しているときに特定のスライドに移動するための同様のショートカットはありますか?
更新
以下の回答とインターネット検索から、編集モードでは特定のスライドに移動できないことがわかります(Wordのページに移動するのと同じです) )。
この機能を実装するために、次のマクロを作成しました。
'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
これを実装するより良い/効率的な方法はありますか?
プレゼンテーションモード:
Slide number+Enter、または
Right-click スライドをクリックし、ショートカットメニューの[スライドに移動]を選択して、リストからスライドをタイトルまたはスライド番号で選択します。
編集モード:
同じ問題に遭遇しました。たとえば、スライド60に移動するための私の解決策は、プレゼンテーションモードに入り、その後すぐに編集モードに戻ることです:<F5> 60 <Enter> <Esc>
。いくつかのキーストロークがありますが、十分に速く、私にとってはうまく機能しています。
F5:プレゼンテーションモード
60:目的のスライド番号
入力:スライドに移動
Esc:スライドに表示されている編集モードに戻ります
@Prasanna、あなたのコードに感謝します、それは私にとってはうまくいきませんでしたが、私を始めました。
このバージョンは私にとってはうまくいきます。キーボードコマンド(ホットキー)を割り当てる方法を知っているといいのですが。
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
このリンクは、PowerPointを編集するとき、およびプレゼンテーション自体の間に機能するようになりました
それがその方法です。同じプレゼンテーションの特定のスライドに移動するには、スライドでハイパーリンクを設定するWordを選択します。左側の選択バー[リンク先]で、[このドキュメントに配置]を選択します。これにより、右側にスライド番号が表示されます。あなたが行きたいものを選択してください。完璧に動作します!