パワーポイントのスライドを逆順に並べ替え - OKWAVE

以下のようなマクロを実行する ---------------------------------------------------------------- Sub 逆順() Dim count As Long Dim i As Long count = ActivePresentation.Slides.count For i = count - 1 To 1 Step -1 ActivePresentation.Slides(i).MoveTo toPos:=count Next End Sub ---------------------------------------------------------------- ALT+F11 でＶＢＥ画面にして 挿入から標準モジュールを挿入して 上のマクロを貼り付けてパワーポイント画面から実行

[kazuph1986]

すごい！簡単にできた！もう二度とやらないと思うけど！