excel 怎么用VB做图表

在Excel中使用VB（Visual Basic）做图表，步骤简便、功能强大、灵活性高。 你可以通过编写VB代码来自动化图表的创建和格式设置，极大地提高工作效率。下面将详细介绍在Excel中使用VB创建图表的步骤和技巧。

一、准备工作

在开始之前，需要确保你的Excel启用了开发工具，并且你熟悉基本的VB编辑环境。

启用开发工具：
- 打开Excel，点击“文件” -> “选项” -> “自定义功能区”，勾选“开发工具”。
打开VB编辑器：
- 在“开发工具”选项卡中，点击“Visual Basic”按钮，打开VB编辑器。

二、创建基本图表

插入模块：
- 在VB编辑器中，右键点击“VBAProject (你的文件名)”，选择“插入” -> “模块”，插入一个新的模块。

编写代码：

在模块中输入以下代码来创建一个简单的图表。

Sub CreateChart()
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    ' 指定工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 创建图表对象
    Set chartObj = ws.ChartObjects.Add(Left:=100, Width:=375, Top:=50, Height:=225)
    ' 设置图表数据源
    chartObj.Chart.SetSourceData Source:=ws.Range("A1:B10")
    ' 设置图表类型
    chartObj.Chart.ChartType = xlColumnClustered
End Sub

三、设置图表样式和格式

修改图表标题：
- 在创建图表的代码中添加以下行来设置图表标题。
```
chartObj.Chart.HasTitle = True
chartObj.Chart.ChartTitle.Text = "销售数据"
```

设置轴标题：

添加以下代码来设置X轴和Y轴的标题。

chartObj.Chart.Axes(xlCategory, xlPrimary).HasTitle = True
chartObj.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "月份"
chartObj.Chart.Axes(xlValue, xlPrimary).HasTitle = True
chartObj.Chart.Axes(xlValue, xlPrimary).AxisTitle.Text = "销售额"

改变图表颜色和样式：

你可以通过以下代码来改变图表的颜色和样式。

chartObj.Chart.SeriesCollection(1).Interior.Color = RGB(255, 0, 0)
chartObj.Chart.SeriesCollection(1).Border.Color = RGB(0, 0, 255)

四、添加数据标签和网格线

显示数据标签：

使用以下代码来显示数据标签。

chartObj.Chart.SeriesCollection(1).HasDataLabels = True
chartObj.Chart.SeriesCollection(1).DataLabels.ShowValue = True

添加和修改网格线：

以下代码将添加并修改主要的网格线。

chartObj.Chart.Axes(xlValue).MajorGridlines.Border.Color = RGB(200, 200, 200)
chartObj.Chart.Axes(xlValue).MajorGridlines.Border.LineStyle = xlDash

五、使用循环批量创建图表

批量创建图表：

假设你有多个工作表，每个工作表都有相同结构的数据，可以使用循环来批量创建图表。

Sub CreateChartsInAllSheets()
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    For Each ws In ThisWorkbook.Worksheets
        ' 创建图表对象
        Set chartObj = ws.ChartObjects.Add(Left:=100, Width:=375, Top:=50, Height:=225)
        ' 设置图表数据源
        chartObj.Chart.SetSourceData Source:=ws.Range("A1:B10")
        ' 设置图表类型
        chartObj.Chart.ChartType = xlColumnClustered
        ' 设置图表标题
        chartObj.Chart.HasTitle = True
        chartObj.Chart.ChartTitle.Text = ws.Name & " 销售数据"
        ' 设置轴标题
        chartObj.Chart.Axes(xlCategory, xlPrimary).HasTitle = True
        chartObj.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "月份"
        chartObj.Chart.Axes(xlValue, xlPrimary).HasTitle = True
        chartObj.Chart.Axes(xlValue, xlPrimary).AxisTitle.Text = "销售额"
    Next ws
End Sub

六、动态调整图表范围

动态设置数据源范围：

如果你的数据范围不是固定的，可以使用以下代码来动态设置图表的数据源范围。

Sub CreateDynamicChart()
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    Dim lastRow As Long
    ' 指定工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 找到最后一行
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    ' 创建图表对象
    Set chartObj = ws.ChartObjects.Add(Left:=100, Width:=375, Top:=50, Height:=225)
    ' 设置图表数据源
    chartObj.Chart.SetSourceData Source:=ws.Range("A1:B" & lastRow)
    ' 设置图表类型
    chartObj.Chart.ChartType = xlLine
End Sub

七、保存和共享图表

保存图表为图片：

你可以通过以下代码将图表保存为图片文件。

Sub SaveChartAsImage()
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    ' 指定工作表和图表对象
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set chartObj = ws.ChartObjects(1)
    ' 保存图表为图片
    chartObj.Chart.Export Filename:=ThisWorkbook.Path & "ChartImage.png", FilterName:="PNG"
End Sub

嵌入图表到PowerPoint：

如果需要将图表嵌入到PowerPoint演示文稿中，可以使用以下代码。

Sub ExportChartToPowerPoint()
    Dim ppApp As Object
    Dim ppPres As Object
    Dim ppSlide As Object
    Dim chartObj As ChartObject
    Dim ws As Worksheet
    ' 创建PowerPoint应用程序
    Set ppApp = CreateObject("PowerPoint.Application")
    ppApp.Visible = True
    ' 创建演示文稿
    Set ppPres = ppApp.Presentations.Add
    ' 添加幻灯片
    Set ppSlide = ppPres.Slides.Add(1, 11) ' 11 = ppLayoutTitleOnly
    ' 指定工作表和图表对象
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set chartObj = ws.ChartObjects(1)
    ' 复制图表
    chartObj.Chart.ChartArea.Copy
    ' 粘贴图表到PowerPoint
    ppSlide.Shapes.PasteSpecial DataType:=2 ' 2 = ppPasteEnhancedMetafile
End Sub

八、调试和优化代码

调试代码：
- 使用VB编辑器中的断点和“逐步执行”功能来调试和检查代码，确保每一步都按照预期执行。
- 可以在代码中添加MsgBox函数来输出调试信息。
```
MsgBox "最后一行是: " & lastRow
```
优化代码：
- 避免使用选择和激活，直接操作对象。
- 使用变量来存储重复使用的对象引用，提高代码执行效率。

九、总结

通过上述步骤，你可以在Excel中使用VB创建功能强大的图表，并根据需求进行自定义和优化。掌握这些技巧可以大大提高你的数据可视化能力和工作效率。希望这篇文章能够帮助你更好地理解和应用VB来创建Excel图表。