VBA를 활용한 애니메이션 만들기

엑셀에서 애니메이션을 넣고 싶을 때는 VBA를 활용하면 되게 편하다.

VBA에서 DoEvents라는 함수를 사용하면 된다.

 

엑셀 시트

 

VBA 화면

 

VBA 애니메이션 코드

Private Sub CommandButton1_Click()
    For i = 0 To 100
        Shapes("직사각형 1").Left = i * 2
        
        DoEvents
    Next
End Sub

 

이러면 결과는 도형이 부드럽게 오른쪽으로 움직이는 것을 볼 수 있다.