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

Question

我在 excel 工作簿中每个工作表一个图表和多个工作表，我正在尝试将所有图表作为图片导出到 PowerPoints 问题是我当前的代码不起作用 我的代码错误：

1. PowerPoint 按预期打开

2. 复制我在运行之前选择的活动表的图表

3. 复制的图表粘贴到 PowerPoint 中

4. PowerPoint 创建下一张幻灯片

5. 现在再次复制来自同一张表的同一张图表的问题！我希望代码移动到下一张表，选择上面的图表，然后在下一张幻灯片中复制过去！

   子 TEST_ExportChartsToPowerPoint_SingleWorkbook() '声明 PowerPoint 对象变量 将 pptApp 调暗为 PowerPoint.Application 将 pptPres 调暗为 PowerPoint.Presentation 将 pptSlide 调暗为 PowerPoint.Slide 将 SldIndex 调暗为整数 '声明 Excel 对象变量 将 Chrt 调暗为 ChartObject '将 Chrt 调暗为 ChartArea 将 WrkSht 调暗为工作表

    '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

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

更改以下行

ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy

到

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

此代码正确引用了图表。另请注意，您不需要使用ChartArea 的.Select 方法。