在excel中用VBA生成PPT图表

常常需要按照excel中的数据来在PPT中生成图表展示出来，有的方法是在excel生成好图表，再复制到ppt中，这里不采用。

这里先将excel数据读进数组，再在PPT中生成图表，将数组中的数据写进图表中的数据源里面，更改其数据源的默认区域。

Sub exctoppt()
Dim pt As PowerPoint.Application, ob As PowerPoint.Shape, chartsheet As Worksheet
Dim arr1()
sourceaddress$ = Range("a1:g" & [a65536].End(xlUp).Row).Address
arr1 = Range(sourceaddress).Value
Set pt = CreateObject("powerpoint.application")
With pt.Presentations.Add
  Set ob = .Slides.Add(Index:=1, Layout:=ppLayoutBlank).Shapes.AddChart2(2, xlLineMarkers, 51, 30, 600, 400, 0)
  Set chartsheet = ob.Chart.ChartData.Workbook.Worksheets(1)
  chartsheet.Cells.Clear
  chartsheet.[a1].Resize(UBound(arr1), UBound(arr1, 2)) = arr1
  ob.Chart.SetSourceData Source:="='sheet1'!" & sourceaddress
  ob.Chart.ChartData.Workbook.Close
End With
End Sub

这里在excel中用的VBA。需要引用microsoft powerpoint****