使用VBA將圖表從Excel導出到Powerpoint

Question

所以經過一些挖掘后，我得到了一些幫助，找到一個代碼將圖表從Excel導出到Powerpoint，問題是它只是選擇一個對象。

Sub ertert()
    With New PowerPoint.Application
        With .Presentations.Add
            With .Slides.Add(1, 12)
                ActiveSheet.ChartObjects(1).CopyPicture xlPrinter, xlPicture
                .Shapes.Paste
                .Shapes(1).Select
                .Application.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
                .Application.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
            End With
        End With
    End With
End Sub

它選擇的對象是一個更大的圖表（對象本身被命名）內的圖表/ vlookup圖像結果，所以基本上它只獲得項目本身的一小部分。

問題是我在選擇項目時出錯了？ 此外，我想知道如何修改此代碼以添加到現有的Powerpoint（假設現有的Powerpoint已經打開）。

Answer 1

你究竟想做什么？

如果您只是想顯示一個基於excel工作簿內容更新的圖表，您可以簡單地復制圖表，並在兩者之間創建鏈接。 當您的演示文稿和工作簿都打開時，它將自動更新圖表而無需VBA。