Excel 中的多个图表答案

【问题标题】：Multiple charts in ExcelExcel 中的多个图表
【发布时间】：2015-06-21 19:18:51
【问题描述】：

我正在进行我的研究，我必须为每张工作表生成超过 91 个图表，我想使用宏来做到这一点。

我还是个宏的新手，但我试着写这个，但它不起作用。非常感谢您在此问题上的帮助！

我的数据集是这样的

> A1         B1     C1    D1    E1     F1    G1       H1    I1
> 
> 
> Period    Ratio       Period  Ratio       Period  ratio   
> 2000Q1    1.23        2000Q1  0.78        2000Q1  1.07    
> 2000Q2    1.43        2000Q2  1.12        2000Q2  0.76     2000Q3 1.8        
> 2000Q3    1.09        2000Q3  1.21

（在 A 列和 B 列下我有周期和比率） - 然后 C 列是空的 - 然后（在 D 和 E 列下我有周期和比率）等等。

我用空列分隔数据集。

请注意，还有其他行（我有一个更新按钮，每次单击带有（周期比率）的新行时，都会为所有列添加）- 第一行的值也从第 3 行开始

我想为每组数据创建一个图表（这里是 3 个图表）

我写的宏如下：

Sub loopChart()
Dim mychart As Chart
Dim c As Integer
Sheets("analysis").Select

c = 1
While c <> 0 #I put this condition so that the code will know that I have no more data set

    Set mychart = Charts.Add
    mychart.SetSourceData Source:=Range(cells(3, c)).CurrentRegion, PlotBy:=xlColumns
    c = c + 3
Wend

For Each mychart In Sheets("class").ChartObjects
    mychart.ChartType = xlLineMarkers
Next mychart

End Sub

我不太确定我所做的是否正确，但我在范围方面遇到了问题。我也知道这个宏会创建一个新的图表。

如何在值旁边的“分析”表上创建所有图表？

非常感谢任何人的帮助！

【问题讨论】：

it is not working 是什么意思？请添加输出图片或错误说明。根据这一点，您可能需要查看this approach 以通过 VBA 创建图表。 SetSourceData 往往会让您受制于 Excel 如何解释您想要绘制的 Range。直接定义Series 可以更轻松地构建您想要的Chart。

标签： vba excel charts range

【解决方案1】：

我的朋友。工作簿可以直接包含图表，也可以将图表集成到工作表中。这取决于你想要什么。 Excel 是一个面向对象的程序。 Range.CurrentRegion 应该可以工作，但是如果周围有任何填充的单元格，它可能会导致问题。

试试这个：

Sub loopChart()

Dim mychart As Chart
Dim myRange As range
Dim c As Integer
c = 1

While c <= 7 '1=dataSource1, 4=dataSource2, 7=dataSource3
    'set data source for the next chart
    With Worksheets("class")
        Set myRange = .range(.Cells(3, c), .Cells(6, c + 1))
    End With

    'create chart
    Sheets("analysis").Select
        ActiveSheet.Shapes.AddChart.Select

        With ActiveChart
            .ChartType = xlLineMarkers 'xlLine
            .SetSourceData Source:=myRange, PlotBy:=xlColumns  'sets source data for graph including labels
            .SetElement (msoElementLegendRight)  'including legend
            .HasTitle = True
            'dimentions & location:
            .Parent.Top = 244  'defines the coordinates of the top of the chart
            .Parent.Left = c * 100  'defines the coordinates for the left side of the chart
            .Parent.Height = 200
            .Parent.Width = 300
            .ChartTitle.Text = "Title here"
        End With

    c = c + 3
Wend

End Sub

结果：

更多案例，您可以访问 Microsoft Office 开发中心：
Creating Charts in Excel 2003 Using Visual Basic for Applications Code

【讨论】：

【解决方案2】：

如果您想要analysisWorksheet 上的所有图表，您可以在创建图表时更改Location。我还在第二个循环中更改了工作表名称以匹配工作表名称。不过，您可以将这行代码添加到第一个循环中；第二个循环不是必需的。如果您这样做，请务必在位置行上设置对 mychart 的新引用。

Sub loopChart()
Dim mychart As Chart
Dim c As Integer
Sheets("analysis").Select

c = 1
While c <> 0 #I put this condition so that the code will know that I have no more data set

    Set mychart = Charts.Add
    mychart.SetSourceData Source:=Range(cells(3, c)).CurrentRegion, PlotBy:=xlColumns
    'change location to sheet
    mychart.Location xlLocationAsObject, "analysis"
    c = c + 3
Wend

For Each mychart In Sheets("analysis").ChartObjects
    mychart.ChartType = xlLineMarkers
Next mychart

End Sub

【讨论】：