回答受付が終了しました

仕事作業を効率化したいので

PowerPoint4閲覧

回答(1件)

0

前週のスライドの位置や、コピーしたスライドをどこに置くのか不明ですので、とりあえず、最終ページのスライドをコピーして末尾に置く記述です。 Sub Test() Dim cnt As Long cnt = ActivePresentation.Slides.Count ActivePresentation.Slides(cnt).Duplicate End Sub