选择随机图时执行子

Question

我有一个activeX按钮，可以从每天更改的数据日志中创建月度图表。当您从特定月份选择图表时，我希望在单元格B1-B3中显示最小、最大和平均图表值。

我想，如果你有一个固定的图表，比如"chart1“，这是相当容易的，但是用户可以在几个不同的工作表上创建任意数量的图表，所以我事先不知道哪些图表是可用的。

有没有一种方法可以创建一个通用的chart_Activate侦听器，它可以调用sub，并在激活任何图表时向其发送图表的y值？

就像这样

Sub Chart_Activate() 
    yValues = <some property obtained from this listener>
    Call findMinMaxAvg(ByVal yValues) 
End Sub

Answer 1

您可以为每个图表的OnAction属性分配一个公共的Sub -命名图表，以便sub可以通过Application.Caller提取所需的信息

Sub ShowInfo()
    Debug.Print Application.Caller
End Sub