彰化一整天的論壇

 找回密碼
 立即註冊
查看: 351|回復: 0

PowerPoint新增複製投影片

[複製鏈接]
發表於 2017-9-12 09:33:58 | 顯示全部樓層 |閱讀模式
本帖最後由 discuz 於 2017-9-12 09:36 編輯
  1. Sub Macro1()
  2. '
  3. ' 巨集錄製者: tsaimh  錄製日期: 2017/9/12
  4. '

  5.     ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutText).Select
  6.     ActiveWindow.Selection.SlideRange.Layout = ppLayoutObject
  7. End Sub
  8. Sub Macro2()
  9. '
  10. ' 巨集錄製者: tsaimh  錄製日期: 2017/9/12
  11. '

  12.     ActiveWindow.Selection.Copy
  13.     ActiveWindow.View.Paste
  14. End Sub
  15. Sub Macro3()
  16. '
  17. ' 巨集錄製者: tsaimh  錄製日期: 2017/9/12
  18. '
  19.     ActivePresentation.Slides(3).Select
  20.     ActiveWindow.View.Paste

  21. End Sub
複製代碼
修正過(新增一張投影片到最後)
  1. Sub Macro1()
  2. '
  3. ' 巨集錄製者: tsaimh  錄製日期: 2017/9/12
  4. '

  5.     ActivePresentation.Slides.Add(Index:=ActivePresentation.Slides.Count + 1, Layout:=ppLayoutText).Select
  6.     ActiveWindow.Selection.SlideRange.Layout = ppLayoutObject
  7. End Sub
複製代碼




回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2018-12-12 20:51 , Processed in 0.148136 second(s), 19 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表