目前在網路上google 很多方式想要修改PPT中的圖片大小
但看到的方式都是add_picture 之類的同時新增加修改
但由於我的來源是excel 所以我再複製圖片的時候無法同時修改大小
不知道有沒有方式可以選取圖檔修改呢?
import win32com.client
ExcelApp = win32com.client.Dispatch("Excel.Application")
ExcelApp.Visible = True
#Open the workbook
workbook =
ExcelApp.workbooks.Open(r"Excel raw.xlsx")
# Create a new instance of PowerPoint and make sure it's visible.
PPTApp = win32com.client.Dispatch("PowerPoint.Application")
PPTApp.Visible = True
Samplecount=int(input('Sample count :'))
PPTPresentation = PPTApp.Presentations.Open(r"PPT_Presentation.pptx")
for i in range(Samplecount):
chart1 = workbook.Worksheets(5+i).ChartObjects(2) #指定到chart
chart1.copy() #複製到剪貼簿
PPTSlide = PPTPresentation.Slides.Add(Index=i+7, Layout=12) #新增頁面
PPTSlide.Shapes.PasteSpecial(DataType=3) #貼上Chart