私はパワーポイントをあまりにも頻繁に使用しないので、これは助けにならない場合はお詫び申し上げます。
Dim iCount As Integer
Public Sub Load()
ListBox1.Clear
ListBox1.MultiSelect = fmMultiSelectMulti
For iCount = 1 To ActivePresentation.Slides(ActivePresentation.Slides.Count).SlideNumber
ListBox1.AddItem iCount
Next iCount
End Sub
Private Sub CommandButton1_Click()
For iCount = 1 To ActivePresentation.Slides(ActivePresentation.Slides.Count).SlideNumber
ActivePresentation.Slides(iCount).SlideShowTransition.Hidden = msoFalse
Next iCount
For iCount = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iCount) Then ActivePresentation.Slides(iCount + 1).SlideShowTransition.Hidden = msoCTrue
Next iCount
End Sub
最初のスライド(開発タブから追加)にリストボックスとボタンを作成しました。サブリスト "Load"が実行されると、すべてのスライド番号がこのリストボックスに追加され、ボタンがクリックされると選択されたすべてのスライドが表示され、他のすべてのスライドは非表示になります。これは、必要に応じて反転することができます。何か助けが必要な場合は教えてください。何か変更を加えてもよろしいですか?
ありがとう、それは試しましたが、運がない、それはおそらく私が正しいことをしていないです。あなたはPPtを私に送って見せてもらえますか、私がやったことをあなたに送ってもらいたいですか? – RJPhoto
最初のスライドでListBoxとButtonを作成し、どちらのオブジェクトも名前を変更しませんでした。私はVBAエディタを開き、最初のスライドに移動し、上記のコードを追加し、 "Load"サブをクリックし、F5キーを押して実行しました。これは、パワーポイント内のすべてのスライド番号をリストボックスに入力する必要があります。 VBAエディタを閉じて、スライド1のListBoxを使用して非表示にするスライドを選択し、ボタンをクリックするとそのスライドを非表示にすることができます。 ファイルへのリンクを自由に送信してください。コードを追加することで、そのコードを把握することができます。 – Nulled
うまくやってくれてありがとう。番号をスライドの名前に変更する方法を知っていますか? 私のスライドには、ようこそ、クイズ、Aboutなどの名前があります。 – RJPhoto