2

我想：

从 VBA Excel 在 PowerPoint 中创建图表 将数据源链接到我在 Excel 文件中的范围 或者用我的数据替换 PowerPoint 存储数据源的工作表

我是VBA的初学者（尝试学习一周）

我这样做：

Dim ChartDataRange As Excel.Range
Dim myWorksheet As Worksheet
Set ChartDataRange = Excel.Range("Chart_Data_Range")
Dim ChartRelativePerfBox As PowerPoint.Shape

'Now open PowerPoint
Dim pptApp As New PowerPoint.Application

'Keep it visible because we need to see it and be able to save it
pptApp.Visible = True

'Tell VBA that FinancialSlide is a PowerPoint presentation
Dim FinancialSlide As PowerPoint.Presentation

'Add new presentation
Set FinancialSlide = pptApp.Presentations.Add

'Tell VBA that firstslide is a PowerPoint slide
Dim Slide1 As PowerPoint.Slide

'Create the first slide
Set Slide1 = FinancialSlide.Slides.Add(1,PowerPoint.PpSlideLayout.ppLayoutBlank)

Set ChartRelativePerfBox = Slide1.Shapes.AddChart( _
    Type:=xlLine, _
    Left:=Application.CentimetersToPoints(12.95), _
    Top:=Application.CentimetersToPoints(12.6), _
    Width:=Application.CentimetersToPoints(11.45), _
    Height:=Application.CentimetersToPoints(5.5))
Set myWorksheet = ChartRelativePerfBox.Chart.ChartData.Workbook.Worksheet(1)

'Replace data source in the worksheet by desired data
Application.DisplayAlerts = False
'Copy desired data
ChartDataRange.Copy
'Paste them in the chart worksheet
myWorksheet.Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)
'Delete extra columns in worksheet
myWorksheet.Columns("D:E").Select
Selection.Delete
'Resize to used range
myWorksheet.ListObjects("Table1").Resize myWorksheet.UsedRange
Application.DisplayAlerts = True

我尝试使用：

Set ChartRelativePerfBox.SetSourceData( _
Source:= ChartDataRange, _
PlotBy:= xlLine)

但它不起作用。有什么猜测吗？

我以前的代码有效，但速度太慢了..

4

1 回答 1

0

作为在 VBA 中执行此操作的解决方法，您是否考虑过使用从 excel 到 powerpoint 的链接对象？

您可以在工作簿中创建图表，然后通过执行以下操作复制图表并将其粘贴到 powerpoint 中：

  1. Powerpoint -> 主页功能区 -> 剪贴板。
  2. 单击下拉箭头-> 粘贴特殊。
  3. 点击“粘贴链接”。
  4. 单击确定。

您现在将有一个链接到工作簿中的图表的图表。每当您手动刷新图表（右键单击 -> 更新链接）或打开 PowerPoint 演示文稿时，这将更新。

文档可在办公室网站上找到。

于 2015-07-08T10:23:06.173 回答