使用 python (win32com.client) 将图像插入到 powerpoint 幻灯片中

Question

我的任务是在幻灯片中插入数百张图像并调整其大小。 我需要使用与我们公司使用的其他幻灯片类似的特定源格式。

我一直在使用 activepython 的 win32com API，并且已经弄清楚如何打开文件并创建空白幻灯片。

我的问题是我将如何插入图像并将其大小调整为我需要的任何大小（图像将是每个页面上唯一的东西）。另外，我尝试使用我公司的主题作为背景和标题页，但这并不像将图像放在页面上并重新调整大小那么重要。

任何帮助将不胜感激，谢谢！

Answer 1

我从 Xavier 提到的页面中得到了这个：

Pict1 = Slide1.Shapes.AddPicture(FileName=pictName, LinkToFile=False, SaveWithDocument=True, Left=100, Top=100, Width=200, Height=200)

如果你的原始图像是正方形的，那么这将起作用；否则，就会扭曲它们。

最好将宽度和高度指定为 -1。然后 PPT 将以“自然”大小插入它们（无论 PPT 可能决定什么......对于当前目的来说并不重要）。然后，您可以读取形状的大小以确定其纵横比，并确保在更改大小时保持不变，或者您可以将形状的 .LockAspectRatio 属性设置为 true 并调整高度或宽度，另一个将自动调整以保持纵横比比率。

Answer 2

您应该按照所述使用 Shapes.AddPicture 这里（此 损坏的链接）：

from tkinter import *
import tkinter.filedialog as tkFileDialog
import win32com.client # middleman/translator/messanger between windows and python
import win32com.gen_py.MSO as MSO # contains constants refering to Microsoft Office Objects
import win32com.gen_py.MSPPT as MSPPT # contains constants refering to Microsoft Office Power Point Objects
g = globals() # a dictonary of global vlaues, that will be the constants of the two previous imports
for c in dir(MSO.constants): g[c] = getattr(MSO.constants, c) # globally define these
for c in dir(MSPPT.constants): g[c] = getattr(MSPPT.constants, c)
Application = win32com.client.Dispatch("PowerPoint.Application")
Application.Visible = True # shows what's happening, not required, but helpful for now
Presentation = Application.Presentations.Add() # adds a new presentation
Slide1 = Presentation.Slides.Add(1, ppLayoutBlank) # new slide, at beginning
TenptStr = Slide1.Shapes.AddShape(msoShape10pointStar, 100, 100, 200, 200)
pictName = tkFileDialog.askopenfilename(title="Please Select the Image you wish to load")
print(pictName)
Pict1 = Slide1.Shapes.AddPicture(FileName=pictName, LinkToFile=False, SaveWithDocument=True, Left=100, Top=100, Width=200, Height=200)

请注意，“选择文件”选项会生成一个文件路径用“/”而不是“”，您可能需要用后者替换前者。

Answer 3

首先，我会在使用 PIL python 图像库插入之前先调整它们的大小。总的来说，处理任何办公室图像处理对我来说都是很糟糕的，所以我不推荐它。

其次，在 PowerPoint 帮助或在线中找到的 VBA 中的对象模型示例通常足以让您从记忆中获得很长的内容，

插入非常容易 -

ppt.slide.ImageFromFile("path")

但是确切的位置我不记得了，恐怕我这里没有ppt可以尝试。如果以后有机会我会发布一些参考资料

祝文档好运

Answer 4

我同意已接受的答案。我想指出的是，我需要在 FileName 字符串前面加上“r”前缀，以将反斜杠视为文字字符。通过用双反斜杠替换单反斜杠来转义反斜杠也可以。 @vestland 这可能会有帮助