[發問] vba裡的暫停

Topgunguy

各位版友大家好，我想請教一個關於vba暫停的問題，
請見附件 t1.zip t1.zip (249.84 KB)

下載次數: 4

2012-3-24 10:35

在TXFA這一頁的儲存格上雙擊會跳出圖表，兩秒後圖表會被刪除。

我想改成雙擊跳出圖表後，暫停，點一下左鍵才刪掉圖表，
請問這個暫停與按左鍵該怎麼寫呢？

感謝~


目前程式碼如下
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     Dim i As Integer
    i = Val(Target.Row)
   
    Range("B" & i - 3 & ":E" & i + 3).Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlStockOHLC
    ActiveChart.SetSourceData Source:=Worksheets("txpic").Range("B" & i - 3 & ":E" & i + 3)
   
    ActiveChart.Legend.Select
    ActiveChart.ChartArea.Select
    Application.ScreenUpdating = True
   
    Application.Wait Now + TimeValue("00:00:02")
    'Stop
    'Application.Stop
    'pause
   
   
    ActiveChart.Parent.Delete
   
End Sub