Question

我有一个插入工作表的宏，然后将4个图表插入到该工作表中。这些图表的大小和位置使得它们具有该工作表中四分之一的屏幕。

现在我想弄清楚如何让用户双击其中一个图表，它会将图表放大到工作表的完整大小。当他们再次双击时，它将恢复到其四分之一大小。

我最大的绊脚石是如何处理和有问题的图表上的双击事件。我已经能够使它在工作表上工作。但这些图表似乎很棘手，因为它们最初并不存在。定位和尺寸是容易的。网上有关于类似问题的帮助，但他们假设您的图表是图表而不是工作表。

任何建议都将不胜感激。

Answer 1

您可以为每个图表编写代码。我们假设您的图表为Chart1, Chart2, Chart3, Chart4。您可以编写一个Sub来修改图表的大小，然后调用每个BeforeDoubleClick事件。

Private Sub Chart1_BeforeDoubleClick(ByVal ElementID As Long, _ 
 ByVal Arg1 As Long, ByVal Arg2 As Long, Cancel As Boolean) 
    Call ChartSize (Chart1)
end Sub

希望它有所帮助。

Answer 2

单击即可轻松完成并更改窗口缩放而不是图表大小。你可以修改如上双击。您可能需要更改缩放值。如果您已经设置了图表，则可以使用单元格参考进行定位;您需要这些来取消选择图表，以便下次用户单击代码时再次运行。否则，他们必须在再次选择之前手动点击图表。

模块内部：

(Year(Now())-1)

双击工作表

2 个答案: