回答受付が終了しました

PowerPointのスライドをスライドショーにてランダムに表示させる方法は分かるのですが、添付画像の画面左のABCDのスライドもランダムに表示された順に並べ替える方法はありますか?

画像
補足

何番目に何のスライドが表示されたかを記録したいのです

PowerPoint | Windows 1043閲覧

回答(2件)

0

一例です。 実行すると、スライド順をランダムに入れ替えると同時に、スライドショーが開始されます。 スライドショー終了後、スライド順を確認後に元の順番に戻したい場合は、メニューの[元に戻す]をクリックしてください。 Sub Test() Dim cnt As Long, i As Long, sld() As Object cnt = ActivePresentation.Slides.Count ReDim sld(cnt) For i = 1 To cnt Set sld(i) = ActivePresentation.Slides(i) Next Dim preOdr, Odr(), R As Long preOdr = "" For i = 1 To cnt preOdr = preOdr & i If i <> cnt Then preOdr = preOdr & "," Next ReDim Odr(cnt) For i = 1 To cnt R = Int(Rnd() * (cnt - i + 1)) + 1 Odr(i) = Split(preOdr, ",")(R - 1) preOdr = Replace(preOdr, Odr(i) & ",", "") sld(i).Cut ActivePresentation.Slides.Paste Odr(i) Next ActivePresentation.SlideShowSettings.Run End Sub