Excel에서 도형을 반복적으로 깜박이게 하는 방법은 무엇입니까?

워크시트에서 도형을 지속적으로 깜박이게 하고 싶다면, 이 문서가 그 방법을 보여줄 것입니다.

VBA 코드를 사용하여 도형을 반복적으로 깜박이게 하기

VBA 코드를 사용하여 도형을 반복적으로 깜박이게 하기

워크시트에서 깜박이는 도형 효과를 만들려면, 다음과 같이 해주세요.

1. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭하세요. 그런 다음 VBA 코드를 복사하여 코드 창에 붙여넣으세요.

VBA 코드: 워크시트에서 도형을 반복적으로 깜박이게 하기

Dim NextTime As Date
Dim xColor As Long
Sub Flash()
    NextTime = Now + TimeValue("00:00:01")
    With ActiveSheet.Shapes("new").Fill.ForeColor
        If xColor = 0 Then
            xColor = .SchemeColor
        End If
         .SchemeColor = Int(Rnd() * 55 + 1)
    End With
    Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
    Application.OnTime NextTime, "Flash", schedule:=False
    ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor
    xColor = 0
End Sub

참고:

3. Alt + Q 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 종료합니다.

4. 아래 스크린샷과 같이 개발 도구 > 삽입 > 버튼 (양식 컨트롤)을 클릭하여 워크시트에 버튼을 삽입합니다.

5. 나타나는 매크로 할당 대화 상자에서 매크로 이름 상자에서 Flash를 선택하고 확인 버튼을 클릭합니다.

6. 필요에 따라 버튼의 표시 텍스트를 변경하세요. 이 경우, 아래 스크린샷과 같이 표시 텍스트를 '깜박임 시작'으로 변경합니다.

7. 위의 4단계와 5단계를 반복하여 새 버튼을 삽입하고 StopIt 매크로를 이 버튼에 할당합니다.

8. 이 새 버튼의 표시 텍스트를 변경하세요.

그러면 서로 다른 매크로가 할당된 두 개의 버튼이 워크시트에 삽입된 것을 볼 수 있습니다. 스크린샷 참조:

이제부터 Start blinking(깜박임 시작) 버튼을 클릭하면 도형이 다양한 색상으로 깜박이기 시작합니다. 깜박임을 멈추고 싶다면, Stop blinking(깜박임 중지) 버튼을 클릭하세요.

관련 문서:

• Excel에서 특정 셀의 텍스트를 깜박이게 하는 방법은 무엇입니까?