|
我在excel中用VBA代码生成PPT图表时,EXCEL数据区为A1:g6,而PPT中的图表只显示出了其默认的A1:d5,求助各位该怎么写代码来改动?
以下是我的现有代码:
Sub exceltoppt()
Dim pt As PowerPoint.Application, ps As PowerPoint.Slide, ob As PowerPoint.Shape, chartsheet As Worksheet
Dim arr1()
arr1 = Range("a1:g" & [a65536].End(xlUp).Row).Value
Set pt = CreateObject("powerpoint.application")
With pt.Presentations.Add
Set ps = .Slides.Add(Index:=1, Layout:=ppLayoutBlank)
Set ob = ps.Shapes.AddChart(51, 30, 10, 400, 500)
Set chartsheet = ob.Chart.ChartData.Workbook.Worksheets(1)
chartsheet.Cells.Clear
chartsheet.[a1].Resize(UBound(arr1), UBound(arr1, 2)) = arr1
ob.Chart.ChartData.Workbook.Close
End With
End Sub
|
|