如何從Excel向PowerPoint幻燈片添加圖片

Question

我設置了一個宏，該宏將Excel電子表格中的某些圖表另存為圖片（作為較大過程的一部分），並且需要一些代碼將這些圖片（每張幻燈片一張）粘貼到幻燈片中。

目前，我已經成功地打開了PowerPoint演示文稿，其中包含4張空白幻燈片，甚至還沒有成功導入1張圖片。

我一直在使用諸如shape.addpicture（“ C：\\ Users \\ restofpathname”）之類的方法，但沒有設法使它們起作用

Answer 1

這是使我能夠從excel中放圖片的代碼。 下面的代碼有效，並且此鏈接也很有用

Dim applPP As PowerPoint.Application, prsntPP As PowerPoint.Presentation, TitlePage As PowerPoint.Slide

    Set applPP = New PowerPoint.Application
    applPP.Visible = True
    Set prsntPP = applPP.Presentations.Add
    Set TitlePage = prsntPP.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
    prsntPP.SaveAs ("C:\Users\...")

        Dim oSlide As PowerPoint.Slide
        Dim oPicture As PowerPoint.Shape

        Set oSlide = prsntPP.Slides(1)

        Set oPicture = oSlide.Shapes.AddPicture("C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg", _
            msoFalse, msoTrue, 1, 2, 3, 4)

        oPicture.ScaleHeight 0.9, msoTrue
        oPicture.ScaleWidth 0.9, msoTrue

        With prsntPP.PageSetup
            oPicture.Left = (.SlideWidth \ 2) - (oPicture.Width \ 2)
            oPicture.Top = (.SlideHeight \ 2) - (oPicture.Height \ 2)
        End With