excel - 如何解锁图表并禁止切割？

Question

我有一个包含多个图表和表格的 Excel 工作表，工作表受到保护，所有图表都被锁定。

我想让用户可以复制图表。
通过右键单击并选择复制或在单击或双击图表时触发宏。

我尝试过使用图表的锁定属性和 ActiveChart.ProtectSelection但如果图表未锁定或可选择，用户仍然可以将图表从工作表上剪下来。

为图表分配一个宏也不能解决问题，因为我还没有找到一种方法来找出点击了哪个图表(如果可能的话，我会避免为每个图表编写一个单独的子......)。

我试过使用 Chart1_BeforeDoubleClick事件，但我无法让它工作(它只在图表工作表中工作吗？)

谢谢!

Answer 1

您可以在该图表上分配一个子例程:

Private Sub Chart1_Click()
    ActiveSheet.ChartObjects(1).CopyPicture
    MsgBox "Chart copied."
End Sub

由于您要在多个图表上使用它，因此您需要先识别图表的名称:

Sub Chart_Click()

    Dim chartName As String

    chartName = ActiveSheet.Shapes(Application.Caller).Name
    ActiveSheet.ChartObjects(chartName).CopyPicture
    MsgBox "Chart copied."

End Sub