VBA excel增量

Question

嗨，大家好，我正在做一個簡單的excel遊戲，我只需要笑臉圖像作爲無盡的亞軍類遊戲增加。一旦按下播放按鈕，我就會向上移動，但我希望它繼續移動。有任何想法嗎 ？

這裏是我到目前爲止的代碼：

Sub Play() 

' 
' 

Play Macro 

' 

' 
    ActiveSheet.Shapes.Range(Array("Smiley Face 1028")).Select 
    Selection.ShapeRange.IncrementTop -20.8333070866 

End Sub 

Answer 1

你需要把它移到與某種計時器的循環。看到這個例子

Sub Play() 
    Dim shp As Shape 
    Dim r As Double 

    Set shp = ActiveSheet.Shapes("Smiley Face 1028") 
    r = shp.Top 

    Do 
     r = shp.Top 
     If r <= 1 Then Exit Do 
     shp.IncrementTop -1 
     Wait 0.5 '<~~ Wait for 30 seconds 
    Loop 

    MsgBox "Animation Over. :) !!!" 
End Sub 

Private Sub Wait(ByVal nSec As Double) 
    nSec = nSec + Timer 
    While nSec > Timer 
     DoEvents 
    Wend 
End Sub