ランダムな順序にした目的別スライドショーを作成しておいて、そのランダムな順序の目的別スライドショーを実行することで、ランダム表示が行われるというマクロです。 ▼スライドショーでランダムにスライドを表示させるマクロ Sub ランダムにスライドを表示するスライドショー() Const ssTitle As String = "ランダムスライドショー" Dim cnt As Long Dim flg() As Boolean Dim sld() As Variant Dim num As Long Dim i As Long Dim ss As NamedSlideShow With ActivePresentation cnt = .Slides.Count ReDim flg(1 To cnt) ReDim sld(1 To cnt) Randomize For i = 1 To cnt D