在Powerpoint中使用VBA调整Excel图表大小

我知道这个问题之前已经被问过，但由于我不是VBA专家，我似乎无法得到任何解决scheme为我的特殊情况工作，所以我希望有人可以帮助。

我有一些VBA代码，从Excel中复制select，打开一个基于模板的新的PowerPoint演示文稿，然后将数据粘贴到PowerPoint幻灯片的两个。

我现在要做的唯一事情就是在图表的大小和位置一旦到达的时候就操纵它。 我需要添加下面的代码才能实现这个目标？

'Opens a new PowerPoint presentation based on template and pastes data into Slide 2 of Powerpoint from Excel Dim PPapp As PowerPoint.Application, PPpres As PowerPoint.Presentation, PPslide As PowerPoint.Slide Dim XLws As Worksheet Set XLws = ActiveSheet Set PPapp = New PowerPoint.Application Set PPpres = PPapp.Presentations.Open("C:\Users\Colin\Dropbox (Edge45)\Edge45 Team Folder\Edge45 Company Documents\Templates\Powerpoint Templates\Edge45 Audit Template Macro.potm", Untitled:=msoTrue) PPapp.Visible = True Set PPslide = PPpres.Slides(2) XLws.Range("A1:D16").Copy PPslide.Shapes.PasteSpecial DataType:=ppPasteHTML, Link:=msoFalse Application.CutCopyMode = False 

Answer 1

定义一个Shape对象并播放：

 'Opens a new PowerPoint presentation based on template and pastes data into Slide 2 of Powerpoint from Excel Dim PPapp As PowerPoint.Application, PPpres As PowerPoint.Presentation, PPslide As PowerPoint.Slide, PPShape As Object Dim XLws As Worksheet Set XLws = ActiveSheet Set PPapp = New PowerPoint.Application Set PPpres = PPapp.Presentations.Open("C:\Users\Colin\Dropbox (Edge45)\Edge45 Team Folder\Edge45 Company Documents\Templates\Powerpoint Templates\Edge45 Audit Template Macro.potm", Untitled:=msoTrue) PPapp.Visible = True Set PPslide = PPpres.Slides(2) XLws.Range("A1:D16").Copy Set PPShape = PPslide.Shapes.PasteSpecial(DataType:=ppPasteHTML, Link:=msoFalse) Application.CutCopyMode = False With PPShape .Top = 10 .Height = 100 .Left = 10 .Width = 100 End With