VBA粘贴Excel Chart图表到当前PowerPoint幻灯片中(后期绑定)
- 作者: 丁杨55306969
- 来源: 51数据库
- 2022-08-17
Sub ChartToPresentation() ' Uses Late Binding to the PowerPoint Object Model ' No reference required to PowerPoint Object Library Dim PPApp As Object ' As PowerPoint.Application Dim PPPres As Object ' As PowerPoint.Presentation Dim PPSlide As Object ' As PowerPoint.Slide ' Make sure a chart is selected If ActiveChart Is Nothing Then MsgBox "Please select a chart and try again.", vbExclamation, _ "No Chart Selected" Else ' Reference existing instance of PowerPoint Set PPApp = GetObject(, "Powerpoint.Application") ' Reference active presentation Set PPPres = PPApp.ActivePresentation PPApp.ActiveWindow.ViewType = 1 ' 1 = ppViewSlide ' Reference active slide Set PPSlide = PPPres.Slides _ (PPApp.ActiveWindow.Selection.SlideRange.SlideIndex) ' Copy chart as a picture ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, _ Format:=xlPicture ' Paste chart PPSlide.Shapes.Paste.Select ' Align pasted chart PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True ' Clean up Set PPSlide = Nothing Set PPPres = Nothing Set PPApp = Nothing End If End Sub
推荐阅读