彰化一整天的論壇

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

【轉貼】Add Slides and Text to a Slide

[複製鏈接]
發表於 2017-9-14 14:42:15 | 顯示全部樓層 |閱讀模式
  1. Option Explicit

  2. Sub AddSlides()
  3.      
  4.     Dim Pre             As Presentation
  5.     Dim Sld             As Slide
  6.      
  7.     Set Pre = ActivePresentation
  8.     Set Sld = Pre.Slides.Add(Index:=Pre.Slides.Count + 1, Layout:=ppLayoutText)
  9.     Sld.Shapes(1).TextFrame.TextRange = "Title of Slide"
  10.     Sld.Shapes(2).TextFrame.TextRange = "Line 1" & vbNewLine & _
  11.     "Line 2" & vbNewLine & _
  12.     "Line 3" & vbNewLine & _
  13.     "Line 4" & vbNewLine
  14.      
  15. End Sub
複製代碼

http://www.vbaexpress.com/kb/getarticle.php?kb_id=177
回復

使用道具 舉報

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

本版積分規則

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

GMT+8, 2018-5-22 19:49 , Processed in 0.027039 second(s), 12 queries , Apc On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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