excelvba生成任意图表的代码

在Excel VBA中，可以使用以下代码生成任意图表：

首先，需要创建一个新的Chart对象，并将其与Excel工作表上的一个图表区域关联。代码示例如下：

Dim chartObj As ChartObject
Set chartObj = Worksheets("Sheet1").ChartObjects.Add(Left:=10, Width:=300, Top:=10, Height:=250)

接下来，可以定义生成图表的数据范围。假设要生成的图表数据位于A1到B10单元格范围内，代码示例如下：

Dim chartData As Range
Set chartData = Worksheets("Sheet1").Range("A1:B10")

然后，可以使用Chart对象的ChartType属性来指定要生成的图表类型。例如，要生成一个柱状图，可以使用以下代码：

chartObj.Chart.ChartType = xlColumnClustered

接下来，可以使用Chart对象的SetSourceData方法将数据范围与图表相关联。代码示例如下：

chartObj.Chart.SetSourceData Source:=chartData

除了上述基本设置外，还可以进一步自定义图表的样式、布局、图例等。例如，可以使用Chart对象的ChartTitle属性设置图表的标题：

chartObj.Chart.HasTitle = True
chartObj.Chart.ChartTitle.Text = "Sales Data"

最后，可以使用Chart对象的Export方法将生成的图表保存为图片或者将其复制到剪贴板。例如，可以使用以下代码将图表保存为图片文件：

chartObj.Chart.Export "C:\Chart.png", "PNG"

以上是一个简单的示例，可以根据具体需要进行进一步的设置和调整。通过使用Excel VBA中的Chart对象和相关属性、方法，可以生成各种类型的图表，并实现对图表的自定义设置和保存操作。