ChartData.Activate 方法 (PowerPoint)

激活与图表相关联的工作簿的第一个窗口。

语法

表达式。激活

表达 一个代表“ChartData”对象的变量。

备注

如果图表链接到某个 Microsoft Excel 工作簿，则此方法不会运行可能附加到该工作簿的任何 Auto_Activate 或 Auto_Deactivate 宏（使用 RunAutoMacros 方法可运行这些宏）。

注意

[!注释] 您必须在引用 Workbook 属性前调用此方法。

示例

注意

[!注释] 尽管下面的代码适用于 Microsoft Word，但您可以轻松地对其进行修改以将其应用于 PowerPoint。

下面的示例激活与活动文档中第一张图表关联的 Excel 工作簿。 如果 Excel 工作簿有多个窗口，该示例将激活第一个窗口。 然后该示例将单元格 B1 至 B5 的内容复制并粘贴到图表中。

With ActiveDocument.InlineShapes(1) 
    If .HasChart Then 
        .Chart.ChartData.Activate 
        .Chart.ChartData.Workbook. _ 
            Worksheets("Sheet1").Range("B1:B5").Copy 
        .Chart.Paste 
    End If 
End With 

另请参阅

ChartData 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。