如果需要輸出上百張AEDT Report圖檔到PPT且不想手動複製貼上,可以在程式當中加入迴圈使其邊輸出Report 的.png檔邊插入到PPT當中。同步刪除該Report可避免AEDT的Report數量過多導致程式變慢。
import clr
clr.AddReference("Microsoft.Office.Interop.PowerPoint")
import Microsoft.Office.Interop.PowerPoint as PowerPoint
powerpoint = PowerPoint.ApplicationClass()
ppt=powerpoint.Presentations.Add()
slideCounter = 1
slide=ppt.Slides.Add(slideCounter, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)
slide.Shapes.AddPicture('d:\\demo\\eye.png', False, True, 60, 60, 650, 400)
ppt.SaveAs('d:\\demo\\test.pptx')
ppt.Close()
(圖一) 輸出之PPT檔 |
沒有留言:
張貼留言