Excel 更新 PowerPoint 演示文稿

罗德里戈·克罗恩

我有一个演示文稿,我必须每周更新。我更新的信息是我从 Excel 数据透视表生成的一堆图像(从 Excel 复制并直接粘贴到 PowerPoint 上)。今天我可以这样做:

Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True

Set PPTPrez = 
objPPT.Presentations.Open("\\network_folder\presentation.pptm")   
Set pSlide = PPTPrez.Slides(2)
If pSlide.Shapes.Count <> 0 Then
ActiveWorkbook.Sheets("Pivot1").Range("A8:Z18").CopyPicture
pSlide.Shapes.Paste  
EndIf

它工作完美......但我需要更多的控制和精确度......我需要选择幻灯片上的当前图像,将其删除并将新图像粘贴到同一位置......有些幻灯片有3张或更多图片...我不知道如何正确地告诉 VBA 什么图像是什么,并选择具有该图像正确信息的数据透视表...我什至不知道这是否可能......但是另一个我试过的解决方案是如何在幻灯片上指定图片的位置和尺寸...我可以在更新之前,删除所有图片...在这种情况下,如何指定尺寸和定位?

谢谢!!!

Ps.: 对不起我的英语不好

技术爱好者

此示例(基于您的代码)可能会为您指明正确的方向。您需要知道 powerpoint 形状名称(您可以通过 VBA 或功能区 Home-Select-Selection Pane 获得。

Option Explicit

Public Sub UpdateShapes()

    Dim vPowerPoint As PowerPoint.Application
    Dim vPresentation As Presentation
    Dim vSlide As Slide

    Dim vShapeName As String
    Dim vShape, vNewShape

    Set vPowerPoint = New PowerPoint.Application
    vPowerPoint.Visible = True

    ' Open the powerpoint presentation
    Set vPresentation = vPowerPoint.Presentations.Open("\\network_folder\presentation.pptm")

    ' Set slide to be worked on
    Set vSlide = vPresentation.Slides(2)

    ' Set shape to (for this example) "Picture 3"
    vShapeName = "Picture 3"
    Set vShape = vSlide.Shapes(vShapeName)

    ' Copy and paste new shape (picture) of range specified
    ThisWorkbook.Sheets("Sheet1").Range("A6:B9").CopyPicture
    Set vNewShape = vSlide.Shapes.Paste

    ' Align size and position of new shape to that of old shape
    With vNewShape
        .Width = vShape.Width
        .Height = vShape.Height
        .Left = vShape.Left
        .Top = vShape.Top
    End With

    ' Delete original shape, rename new shape to original so code works next replace cycle
    vSlide.Shapes(vShapeName).Delete
    vNewShape.Name = vShapeName

End Sub

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

使用OpenXML将PowerPoint演示文稿另存为PDF

来自分类Dev

打开PowerPoint演示文稿并隐藏窗口

来自分类Dev

在PowerPoint演示文稿中以编程方式编辑文本

来自分类Dev

以编程方式生成的PowerPoint演示文稿打破了PowerPoint 2013

来自分类Dev

获取PowerPoint演示文稿的当前缩放

来自分类Dev

回形针:如何上载Powerpoint演示文稿文件

来自分类Dev

Excel VBA无法在Office 2016中将SaveAs嵌入式PowerPoint演示文稿保存

来自分类Dev

使用PowerPoint VBA从Kiosk演示文稿类型更改为Speaker演示文稿类型

来自分类Dev

在已经打开的情况下设置PowerPoint演示文稿(从Excel)

来自分类Dev

如何查看和编辑无法正确呈现的PowerPoint演示文稿?

来自分类Dev

如何在Ubuntu中查看带注释的Powerpoint演示文稿?

来自分类Dev

从Word VBA编辑PowerPoint演示文稿页脚

来自分类Dev

从Access VBA打开PowerPoint演示文稿的特定幻灯片

来自分类Dev

如何在PowerPoint演示文稿中包含子点

来自分类Dev

如何从PowerPoint演示文稿中提取所有图像?

来自分类Dev

如何查看和编辑无法正确呈现的PowerPoint演示文稿?

来自分类Dev

在PowerPoint演示文稿上更改拼写检查语言

来自分类Dev

设置Powerpoint演示文稿的语言

来自分类Dev

录制PowerPoint演示文稿时如何获得演示者视图?

来自分类Dev

如何在Ubuntu中查看带注释的Powerpoint演示文稿?

来自分类Dev

嵌入其他PowerPoint演示文稿中的幻灯片

来自分类Dev

如何在Excel VBA中获取打开的PowerPoint演示文稿的处理程序

来自分类Dev

删除Powerpoint演示文稿中的命名对象

来自分类Dev

循环播放Powerpoint演示文稿的选定部分

来自分类Dev

使用VBA和Excel生成Powerpoint演示文稿

来自分类Dev

回形针:如何上载Powerpoint演示文稿文件

来自分类Dev

在Excel中如何在不切换焦点的情况下更改活动的PowerPoint演示文稿?

来自分类Dev

更新PowerPoint演示文稿中的链接时,如何更新链接图像的长宽比?

来自分类Dev

如何将多个 Excel 图表粘贴到 PowerPoint 演示文稿中?

Related 相关文章

  1. 1

    使用OpenXML将PowerPoint演示文稿另存为PDF

  2. 2

    打开PowerPoint演示文稿并隐藏窗口

  3. 3

    在PowerPoint演示文稿中以编程方式编辑文本

  4. 4

    以编程方式生成的PowerPoint演示文稿打破了PowerPoint 2013

  5. 5

    获取PowerPoint演示文稿的当前缩放

  6. 6

    回形针:如何上载Powerpoint演示文稿文件

  7. 7

    Excel VBA无法在Office 2016中将SaveAs嵌入式PowerPoint演示文稿保存

  8. 8

    使用PowerPoint VBA从Kiosk演示文稿类型更改为Speaker演示文稿类型

  9. 9

    在已经打开的情况下设置PowerPoint演示文稿(从Excel)

  10. 10

    如何查看和编辑无法正确呈现的PowerPoint演示文稿?

  11. 11

    如何在Ubuntu中查看带注释的Powerpoint演示文稿?

  12. 12

    从Word VBA编辑PowerPoint演示文稿页脚

  13. 13

    从Access VBA打开PowerPoint演示文稿的特定幻灯片

  14. 14

    如何在PowerPoint演示文稿中包含子点

  15. 15

    如何从PowerPoint演示文稿中提取所有图像?

  16. 16

    如何查看和编辑无法正确呈现的PowerPoint演示文稿?

  17. 17

    在PowerPoint演示文稿上更改拼写检查语言

  18. 18

    设置Powerpoint演示文稿的语言

  19. 19

    录制PowerPoint演示文稿时如何获得演示者视图?

  20. 20

    如何在Ubuntu中查看带注释的Powerpoint演示文稿?

  21. 21

    嵌入其他PowerPoint演示文稿中的幻灯片

  22. 22

    如何在Excel VBA中获取打开的PowerPoint演示文稿的处理程序

  23. 23

    删除Powerpoint演示文稿中的命名对象

  24. 24

    循环播放Powerpoint演示文稿的选定部分

  25. 25

    使用VBA和Excel生成Powerpoint演示文稿

  26. 26

    回形针:如何上载Powerpoint演示文稿文件

  27. 27

    在Excel中如何在不切换焦点的情况下更改活动的PowerPoint演示文稿?

  28. 28

    更新PowerPoint演示文稿中的链接时,如何更新链接图像的长宽比?

  29. 29

    如何将多个 Excel 图表粘贴到 PowerPoint 演示文稿中?

热门标签

归档