动态图表的创建通常涉及以下步骤：
准备数据源和图表
确保你的数据源已经准备好，并且图表已经创建好。数据源可以是Excel工作表中的一个区域，图表可以是工作表中的一个对象。
编写VBA代码
使用Excel的VBA（Visual Basic for Applications）编程语言来编写代码，实现图表数据的动态更新和图表类型的切换。
设置数据源
通过VBA代码，将图表的数据源设置为工作表中的某个区域。这样，当数据发生变化时，图表会自动更新。
添加条件判断
如果需要图表根据某些条件（如销售量的增减）自动变化，可以使用条件语句来实现。
调整图表格式
根据需要调整图表的格式，如坐标轴刻度、数据标签等。
插入控件
可以通过Excel的“开发工具”菜单插入控件，如滚动条，以便用户可以手动控制图表的更新。
示例1：更新图表数据源
```vba
Sub UpdateChart（）
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets（"Sheet1"）
' 更新图表数据源
ws.ChartObjects（"Chart 1"）.Chart.SetSourceData Source:=ws.Range（"A1:B10"）
End Sub
```
示例2：动态设置数据源
```vba
Sub UpdateChartData（）
Dim ws As Worksheet
Dim lastRow As Long
Set ws = ThisWorkbook.Sheets（"数据表"）
' 获取数据最后一行
lastRow = ws.Cells（ws.Rows.Count, 1）.End（xlUp）.Row
' 定义数据范围
Set dataRange = ws.Range（"A1:B" & lastRow）
' 动态设置数据源
ThisWorkbook.Sheets（"数据表"）.ChartObjects（"Chart 1"）.Chart.SetSourceData Source:=dataRange
End Sub
```
示例3：创建动态折线图
```vba
Sub CreateDynamicChart（）
Dim ws As Worksheet
Dim chartObj As ChartObject
Dim myChart As Chart
' 设置要操作的工作表
Set ws = ThisWorkbook.Sheets（"Sheet1"）
' 添加一个图表对象到工作表
Set chartObj = ws.ChartObjects.Add（Left:=100, Width:=400, Top:=50, Height:=300）
Set myChart = chartObj.Chart
' 设置图表的数据源
myChart.SetSourceData Source:=ws.Range（"A1:D" & ws.Cells（ws.Rows.Count, 1）.End（xlUp）.Row）
' 设置图表的类型，比如折线图
myChart.ChartType = xlLine
' 给图表加个标题
myChart.ChartTitle.Text = "销售额变化趋势"
End Sub
```
示例4：根据条件改变图表颜色
```vba
Sub ChangeChartColor（）
Dim ws As Worksheet
Dim chart As ChartObject
Dim lastMonthSales As Double
Dim currentMonthSales As Double
Set ws = ThisWorkbook.Sheets（"Sheet1"）
Set chart = ws.ChartObjects（"Chart 1"）.Chart
' 假设数据在A列和B列
lastMonthSales = ws.Cells（1, 1）.Value
currentMonthSales = ws.Cells（2, 1）.Value
' 根据销量变化改变图表颜色
If currentMonthSales > lastMonthSales Then
chart.ChartColor = RGB（0, 255, 0） ' 绿色
Else
chart.ChartColor = RGB（255, 0, 0） ' 红色
End If
End Sub
```
通过以上步骤和代码示例，你可以创建出能够根据需求自动更新数据和样式的动态图表。记得在实际操作中，根据你的具体数据和需求调整代码中的工作表名称、图表对象名称和数据范围。