通过

Chart.Copy 方法 (Project)

复制图表。

语法

表达式。复制

expression：一个表示 Chart 对象的变量。

返回值

Variant

示例

以下示例复制图表，然后将图表作为图片粘贴到活动报表上。

Sub CopyAndPasteChart()
    Dim chartShape As Shape
    Dim reportName As String
    Dim duplicateChart As Chart
    
    reportName = "Simple scalar chart"
    Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
    
    chartShape.Chart.Copy
    Application.PasteAsPicture
End Sub

另请参阅

Chart 对象CopyPicture 方法

支持和反馈

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