我编写了以下代码,用于将名为“Sheet1”的Excel工作表中的“Chart1”导出到创建的powerpoint实例中的新幻灯片:
Sub ChartsToPowerPoint()
Dim pptApp As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation
Dim pptSlide As PowerPoint.Slide
Dim pptSlideCount As Integer
Dim ws As Worksheet
Dim intChNum As Integer
Dim objCh As Object
'Open PowerPoint and create a new presentation.
Set pptApp = New PowerPoint.Application
Set pptPres = pptApp.Presentations.Add
'Set the chart and copy it to a new ppt slide
Set objChart = Worksheets("Sheet1").ChartObjects("Chart 1").Chart
objChart.ChartArea.Copy
Set pptSlide = pptPres.Slides.Add(pptSlideCount + 1, ppLayoutBlank)
pptSlide.Shapes.PasteSpecial ppPasteJPG
'Format the picture size/position.
For j = 1 To pptSlide.Shapes.Count
With pptSlide.Shapes(j)
If .Type = msoPicture Then
.Top = 87
.Left = 33
.Height = 422
.Width = 646
End If
End With
Next j
pptApp.Visible = True
Set pptSlide = Nothing
Set pptPres = Nothing
Set pptApp = Nothing
End Sub
我不使用 .Chart.Export
方法的原因是因为使用Excel 2007 SP3时输出质量很差 .
我接下来要做的是将复制的图像从PowerPoint保存为.png,然后关闭powerpoint演示文稿而不保存更改 .
请协助 .
2 回答
别介意我搞清楚了:
我想出了如何提高Charts.Export输出的质量 . 图像的大小与图表工作表的缩放相关联 .