Sub mmm() Dim objPPTApp As PowerPoint.Application Dim objPPTPresen As PowerPoint.Presentation Dim objPPTSlide As PowerPoint.Slide Dim objPPTShape As PowerPoint.Shape ActiveChart.CopyPicture xlScreen, xlPicture, xlScreen Set objPPTApp = CreateObject("PowerPoint.Application") objPPTApp.Visible = True Set objPPTPresen = objPPTApp.Presentations.Add(msoTrue) Set objPPTSlide = objPPTPresen.Slides.Add(Index:=1, Layout:=ppLayoutBlank) objPPTSlide.Shapes.Paste Set objPPTApp = Nothing Set objPPTPresen = Nothing Set objPPTSlide = Nothing End Sub |