vba - 创建临时 Excel 图表

Question

Sub aaGraphing()
'
' aaGraphing Macro
'

'
    Range("L948:W949,D948:D949").Select
    Range("D949").Activate
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Range( _
        "Analytics!$L$948:$W$949,Analytics!$D$948:$D$949")
End Sub

此代码创建我想要的数据图表。有没有办法使创建的图表成为临时图表，以便当您单击图表外部的任何位置时它会删除？

Answer 1

您可以使用 SelectionChange删除图表的工作表事件。下面我假设只有一个形状——图表——可能在工作表上。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Me.Shapes.Count = 1 Then
        Me.Shapes(1).Delete
    End If
End Sub

可以(我相信)动态附加此事件并将其删除。但是，我认为这有点复杂。

另一种可能是使用 Application.OnTime一段时间后将其删除。

Application.OnTime Now + TimeValue("00:00:40"), "ProcedureToDelete"

将在 40 秒后运行名为“ProcedureToDelete”的过程。在此过程中，您可能希望确保所选内容在工作表中，而不是在您将要删除的图表中。

您可以在定时过程中检查图表当前是否被选中。如果没有，删除它，否则重新设置计时器。