,可以通过以下步骤实现:
Dim pptApp As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation
Dim pptSlide As PowerPoint.Slide
Set pptApp = New PowerPoint.Application
pptApp.Visible = True ' 可见性设置为True,方便调试和查看结果
Set pptPres = pptApp.Presentations.Add
Set pptSlide = pptPres.Slides.Add(1, ppLayoutBlank) ' 添加一个空白布局的幻灯片
ActiveSheet.ChartObjects("Chart1").CopyPicture Appearance:=xlScreen, Format:=xlPicture
pptSlide.Shapes.PasteSpecial(DataType:=ppPasteEnhancedMetafile).Select
With pptSlide.Shapes(pptSlide.Shapes.Count)
.Left = 100 ' 设置左边距
.Top = 100 ' 设置上边距
.Width = 400 ' 设置宽度
.Height = 300 ' 设置高度
End With
Set pptSlide = Nothing
pptPres.Close
pptApp.Quit
Set pptPres = Nothing
Set pptApp = Nothing
这样,图表就会被复制粘贴到幻灯片中,并且可以通过调整位置和大小来适应幻灯片的布局。
没有搜到相关的沙龙
领取专属 10元无门槛券
手把手带您无忧上云