用Excel实现触摸屏图表，当光标滑过不同商品名称时，图表自动变化

2023-09-11 11:22:37

Excel是一款功能强大的电子表格软件，不仅可以用来处理数据，还可以用来制作各种各样的图表。其中，有一类图表叫做触摸屏图表，这种图表可以通过鼠标或手指滑动来改变显示的数据。今天，我们就来学习如何制作触摸屏图表。

步骤一：准备数据源

首先，我们需要准备一个数据源。这个数据源可以是一个Excel工作表，也可以是一个外部数据库。数据源中必须包含两个或多个字段，其中一个字段是商品名称，另一个字段是商品销量。

步骤二：输入代码

准备好了数据源之后，我们就需要在Excel中输入代码来创建触摸屏图表。

按下Alt+F11打开VBE窗口。
单击“插入”菜单，然后选择“模块”。
在模块窗口中复制并粘贴以下代码：

Sub TouchScreenChart()
    Dim ws As Worksheet
    Dim cht As ChartObject
    Dim rng As Range
    Dim i As Long

    Set ws = ActiveSheet
    Set cht = ws.ChartObjects.Add(Left:=100, Top:=100, Width:=500, Height:=300)
    Set rng = ws.Range("A1:B10")

    With cht.Chart
        .ChartType = xlXYScatter
        .HasTitle = True
        .ChartTitle.Text = "商品销量"
        .Axes(xlCategory).HasTitle = True
        .Axes(xlCategory).AxisTitle.Text = "商品名称"
        .Axes(xlValue).HasTitle = True
        .Axes(xlValue).AxisTitle.Text = "销量"

        For i = 1 To rng.Rows.Count
            .SeriesCollection.Add Source:=rng.Cells(i, 1), PlotBy:=xlValues
            .SeriesCollection(i).Name = rng.Cells(i, 2)
        Next i

        .SetElement(msoElementChartArea)[1].Select
    End With
End Sub