如何将图片从excel添加到powerpoint幻灯片
如何将图片从excel添加到powerpoint幻灯片
提问于 2015-07-27 04:32:22
我已经设置了一个宏，它将Excel电子表格中的一些图表保存为图片(作为更大过程的一部分)，并需要一些代码将这些图片(每张幻灯片一张)粘贴到幻灯片中。
目前，我已经成功地打开了一个带有4张空白幻灯片的powerpoint演示文稿，甚至没有成功地导入1张图片。
我一直在使用像shape.addpicture这样的方法(“C：\Users\restofpathname”)，但没有设法使它们工作。
回答 1
Stack Overflow用户
回答已采纳
发布于 2015-07-27 23:06:06
这是允许我在powerpoint中放一张图片的代码，来自excel。下面的代码可以工作，此链接也很有用
Dim applPP As PowerPoint.Application, prsntPP As PowerPoint.Presentation, TitlePage As PowerPoint.Slide
Set applPP = New PowerPoint.Application
applPP.Visible = True
Set prsntPP = applPP.Presentations.Add
Set TitlePage = prsntPP.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
prsntPP.SaveAs ("C:\Users\...")
Dim oSlide As PowerPoint.Slide
Dim oPicture As PowerPoint.Shape
Set oSlide = prsntPP.Slides(1)
Set oPicture = oSlide.Shapes.AddPicture("C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg", _
msoFalse, msoTrue, 1, 2, 3, 4)
oPicture.ScaleHeight 0.9, msoTrue
oPicture.ScaleWidth 0.9, msoTrue
With prsntPP.PageSetup
oPicture.Left = (.SlideWidth \ 2) - (oPicture.Width \ 2)
oPicture.Top = (.SlideHeight \ 2) - (oPicture.Height \ 2)
End With页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/31653192
复制相关文章
相似问题
腾讯云开发者
