将Excel图表作为图片导出到PowerPoint

Question

我有一个excel工作簿，每张工作表有一个图表和多个工作表，我试图将所有图表作为图片导出到PowerPoints中。问题是我的当前代码无法工作。我的代码出现错误:

>

简报按预期打开

将复制我在运行前选择的活动工作表的图表

复制的图表粘贴在PowerPoint中

PowerPoint创建下一张幻灯片

现在问题再次复制同一工作表中的同一图表！我希望代码移动到下一张工作表，选择上面的图表，并在下一张幻灯片中复制过去！

SubTEST_ExportChartsToPowerPoint_SingleWorkbook（）'Declare PowerPoint Object Variables Dim pptApp AsPowerPoint.ApplicationDim pptPres AsPowerPoint.PresentationDim pptSlide AsPowerPoint.SlideDim SldIndex As intger'Declare Excel Object Variables Dim Chr t As ChartObject'Dim Chr t As ChartArea Dim WrkSht As Worktable

 'Create a new instance of PowerPoint
 Set pptApp = New PowerPoint.Application
     pptApp.Visible = True

 'Create a new Presentation within the PowerPoint Application
 Set pptPres = pptApp.Presentations.Add

 'Create an index handler for the slide creation
 SldIndex = 1

 'Loop through all of the worksheets in the active work book
 For Each WrkSht In Worksheets
     'WrkSht.Select

     ActiveChart.ChartArea.Select
     ActiveChart.ChartArea.Copy

     'Create a new slide, set the layout to blank, and paste the chart on the slide
     Set pptSlide = pptPres.Slides.Add(SldIndex, ppLayoutBlank)
     pptSlide.Shapes.Paste

     'Increment our slide index
     SldIndex = SldIndex + 1

 Next WrkSht

端接头

Answer 1

问题在于如何参考图表。看看你的循环：

'Loop through all of the worksheets in the active work book
    For Each WrkSht In Worksheets
        'WrkSht.Select
    
        ActiveChart.ChartArea.Select
        ActiveChart.ChartArea.Copy
    
        'Create a new slide, set the layout to blank, and paste the chart on the slide
        Set pptSlide = pptPres.Slides.Add(SldIndex, ppLayoutBlank)
        pptSlide.Shapes.Paste
    
        'Increment our slide index
        SldIndex = SldIndex + 1
    
     Next WrkSht

即使您循环遍历所有工作表，您也只能引用ActiveChart。您需要在循环中引用工作表上的图表。默认情况下，ActiveChart引用活动工作表上的图表。这就是为什么为每张幻灯片复制相同的图表，因为引用永远不会更改。所以您需要更改对循环中当前工作表的引用。

更改以下行

ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy

到

WrkSht.ChartObjects(1).Chart.ChartArea.Copy

此代码正确地引用了图表。还请注意，您不需要使用＜code＞。选择图表区的方法。