在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****