重新定位Excel图表时，我将它们添加到同一PowerPoint幻灯片中

Question

我正在使用Python3和Win32COM软件包从Excel文件自动复制图表并将其粘贴到PowerPoint演示文稿中。除非调整尺寸，否则图表并不能全部适合一个幻灯片，因此我将其宽度缩小为0.85。但是，我不确定如何将它们粘贴到特定的位置，因此它们都互相粘贴在彼此之间。我想我已经在Visual Basic中找到了一个解决方案（此处： https://www.mrexcel.com/board/board/threads/vba-positioning-chart-chart-chart-in-powerpoint-copy-pasting-copy-pasting-from-excel.1107603/ 和此处： vba：复制 +从excel中选择 +粘贴的图表到PowerPoint ），但我不知道任何VBA，所以不确定如何将其转换为Python。感谢您的帮助！

import os
import win32com.client as client
from win32com.client import constants        

xl = client.gencache.EnsureDispatch('Excel.Application')
ppt = client.gencache.EnsureDispatch('PowerPoint.Application')

wb = xl.Workbooks.Open(os.path.abspath("desiredFile.xlsx"))
prs = ppt.Presentations.Open(os.path.abspath("sample00.pptx"))

sheet = wb.Sheets('TheSheetINeed')


Slide = prs.Slides.Add(prs.Slides.Count,constants.ppLayoutBlank)

for ch in sheet.ChartObjects():
 ch.Activate()
 ch.Copy()
    
 Slide.Shapes.PasteSpecial(constants.ppPasteShape).ScaleWidth(.85,0)
#Here is where I need help
    
prs.Save()
prs.Close()   
wb.Close(False)

ppt.Quit()
xl.Quit()

Answer 1

我不知道Python3如何声明变量或以其他方式工作，但我会尝试如下所示。相反，

Slide.Shapes.PasteSpecial(constants.ppPasteShape).ScaleWidth(.85,0)

我会尝试

shp = Slide.Shapes.PasteSpecial(constants.ppPasteShape).ScaleWidth(.85,0)
shp.Left = LeftValue
shp.Top = TopValue

其中 shp 是代表粘贴形状的变量。