在Excel中，你可以使用VBA（Visual Basic for Applications）来编程生成图表。以下是创建图表的基本步骤和示例代码：
打开VBA编辑器
按下 `Alt + F11` 打开VBA编辑器。
插入模块
在VBA编辑器中，选择“插入” > “模块”来添加一个新的模块。
编写代码
在模块中，你可以编写VBA代码来创建图表。以下是一个简单的示例，展示如何创建一个柱状图：
```vba
Sub CreateChart（）
' 声明变量
Dim ws As Worksheet
Dim chartObj As ChartObject
Dim dataRange As Range
' 设置数据所在的工作表
Set ws = ThisWorkbook.Sheets（"Sheet1"）
' 在工作表中插入图表
Set chartObj = ws.ChartObjects.Add（Left:=100, Width:=400, Top:=100, Height:=300）
' 设置图表的数据源
chartObj.Chart.SetSourceData Source:=ws.Range（"A1:B10"） ' 数据范围：A1到B10
' 设置图表类型
chartObj.Chart.ChartType = xlColumnClustered ' 设置为柱状图
' 设置图表标题
chartObj.Chart.HasTitle = True
chartObj.Chart.ChartTitle.Text = "销售数据柱状图"
' 设置X轴和Y轴的标题
chartObj.Chart.Axes（xlCategory）.HasTitle = True
chartObj.Chart.Axes（xlCategory）.AxisTitle.Text = "月份"
chartObj.Chart.Axes（xlValue）.HasTitle = True
chartObj.Chart.Axes（xlValue）.AxisTitle.Text = "销售额 （万元）"
End Sub
```
运行代码
按下 `F5` 运行代码，或者关闭VBA编辑器并返回Excel，然后按 `Alt + F8` 选择并运行 `CreateChart` 子程序。
动态数据源
如果你希望图表能够随着数据的变化而更新，可以使用变量来动态设置数据源。以下是一个示例：
```vba
Sub UpdateChartData（）
Dim ws As Worksheet
Dim dataRange As Range
Dim chartObj As ChartObject
' 设置数据所在的工作表
Set ws = ThisWorkbook.Sheets（"Sheet1"）
' 动态设置数据区域（例如，从用户选择的单元格区域获取数据）
Set dataRange = Selection
' 如果未选择数据区域，显示警告消息并退出
If dataRange Is Nothing Then
MsgBox "请选择数据区域!", vbExclamation
ExitSub
End If
' 在工作表中插入图表（如果已有图表则删除旧的图表）
On Error Resume Next
Application.DisplayAlerts = False
ws.ChartObjects.Delete
Application.DisplayAlerts = True
' 创建新的图表对象
Set chartObj = ws.ChartObjects.Add（Left:=100, Width:=400, Top:=100, Height:=300）
' 设置图表的数据源
chartObj.Chart.SetSourceData Source:=dataRange
' 设置图表标题
chartObj.Chart.HasTitle = True
chartObj.Chart.ChartTitle.Text = "销售数据柱状图"
' 设置X轴和Y轴的标题
chartObj.Chart.Axes（xlCategory）.HasTitle = True
chartObj.Chart.Axes（xlCategory）.AxisTitle.Text = "月份"
chartObj.Chart.Axes（xlValue）.HasTitle = True
chartObj.Chart.Axes（xlValue）.AxisTitle.Text = "销售额 （万元）"
End Sub
```
设置图表位置和大小
你还可以在创建图表时设置其位置和大小，例如：
```vba
chartObj.Chart.Location Where:=xlLocationAsObject, Name:=“Sheet1”
With chartObj.Chart.Parent
.Left = 100
.Top = 100
.Width = 400
.Height = 300
End With
```
通过这些步骤和代码示例，你可以在Excel中编程生成图表，并根据需要动态更新数据源和图表设置。