VBA - 单击饼图的不同部分来运行不同的宏

VBA - 单击饼图的不同部分来运行不同的宏

vba
Sub CreatePieChart()
    Dim ws As Worksheet
    Dim rngData As Range
    Dim cht As Chart
    Dim srs As Series
    Dim i As Integer
    
    ' 设置工作表和数据范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rngData = ws.Range("A1:B5")
    
    ' 创建饼图
    Set cht = ws.Shapes.AddChart2(240, xlPie).Chart
    cht.SetSourceData rngData
    
    ' 遍历饼图的数据系列
    For i = 1 To cht.SeriesCollection.Count
        Set srs = cht.SeriesCollection(i)
        
        ' 为每个饼图部分分配宏
        Select Case srs.Name
            Case "部分1"
                srs.Points(1).ApplyDataLabels
                srs.Points(1).DataLabel.Text = "运行宏1"
                srs.Points(1).DataLabel.Font.Color = RGB(0, 0, 0)
                srs.Points(1).DataLabel.Font.Bold = True
                srs.Points(1).DataLabel.Font.Size = 12
                srs.Points(1).DataLabel.Font.Name = "Arial"
                srs.Points(1).DataLabel.Font.FontStyle = "Regular"
                srs.Points(1).DataLabel.Font.Underline = False
                srs.Points(1).DataLabel.Font.Strikethrough = False
                srs.Points(1).DataLabel.Font.Superscript = False
                srs.Points(1).DataLabel.Font.Subscript = False
                srs.Points(1).DataLabel.Font.Shadow = False
                srs.Points(1).DataLabel.Font.OutlineFont = False
                srs.Points(1).DataLabel.Font.Embedded = False
                srs.Points(1).DataLabel.Font.ColorIndex = xlAutomatic
                srs.Points(1).DataLabel.Font.ThemeColor = xlThemeColorAccent1
                
                ' 分配宏
                srs.Points(1).DataLabel.OnAction = "'运行宏1'"
                
            Case "部分2"
                srs.Points(2).ApplyDataLabels
                srs.Points(2).DataLabel.Text = "运行宏2"
                srs.Points(2).DataLabel.Font.Color = RGB(0, 0, 0)
                srs.Points(2).DataLabel.Font.Bold = True
                srs.Points(2).DataLabel.Font.Size = 12
                srs.Points(2).DataLabel.Font.Name = "Arial"
                srs.Points(2).DataLabel.Font.FontStyle = "Regular"
                srs.Points(2).DataLabel.Font.Underline = False
                srs.Points(2).DataLabel.Font.Strikethrough = False
                srs.Points(2).DataLabel.Font.Superscript = False
                srs.Points(2).DataLabel.Font.Subscript = False
                srs.Points(2).DataLabel.Font.Shadow = False
                srs.Points(2).DataLabel.Font.OutlineFont = False
                srs.Points(2).DataLabel.Font.Embedded = False
                srs.Points(2).DataLabel.Font.ColorIndex = xlAutomatic
                srs.Points(2).DataLabel.Font.ThemeColor = xlThemeColorAccent2
                
                ' 分配宏
                srs.Points(2).DataLabel.OnAction = "'运行宏2'"
        End Select
    Next i
End Sub
Sub 运行宏1()
    MsgBox "您单击了饼图的部分1"
End Sub
Sub 运行宏2()
    MsgBox "您单击了饼图的部分2"
End Sub