代码之家 › 专栏 › 技术社区 › Preston

请参阅按程序添加的图表

excel vba

0

Preston · 技术社区 · 9 年前

我使用下面的代码插入图表。我现在如何参考上述图表?我知道我应该使用ChartObject,但如何设置?

更具体地说,我想将图表分配给一个变量,但我不确定如何做到这一点。我试过:

set myChart = ActiveSheet.Shapes.AddChart(xlLine, 500, 420, , 175)

但无济于事。

Sub InsertInfection(rngToPrint As Range, lngTopLeft As String, BottomLeft As String)
    Dim strRange As String
    Dim rngChart As Range
    Dim myChart As ChartObject

    lngStartRow = Sheets(rngToPrint.Worksheet.Name).Range(lngTopLeft).Row
    lngEndRow = Sheets(rngToPrint.Worksheet.Name).Range(BottomLeft).Row

    Sheets(rngToPrint.Worksheet.Name).Activate
    Sheets(rngToPrint.Worksheet.Name).Range("$A$" & CStr(lngStartRow) & ":$D$" & CStr(lngEndRow)).Select

    ActiveSheet.Shapes.AddChart(xlLine, 500, 420, , 175).Select

End Sub

1 回复 | 直到 8 年前

1

2

Rory 9 年前

这样地

Dim myChart as Chart
set myChart = ActiveSheet.Shapes.AddChart(xlLine, 500, 420, , 175).Chart

如果您需要参考 ChartObject myChart.Parent