사각형그리기Ⅰ

Step 1: 매크로 기록으로 사각형 그리기

(1) Visual Basic 도구모음 나타내기

Visual Basic 도구모음을 나타나게 합니다.

아이엑셀러

(2) 매크로 기록 시작하기

"도구-매크로-새 매크로 기록" 메뉴를 선택하거나 "매크로 기록" 아이콘을 클릭합니다.

아이엑셀러

(3) 매크로 이름 지정하기

"매크로 기록" 대화상자에서 "매크로 이름" 부분에 "사각형그리기"라고 입력하고 확인 버튼을 누릅니다.

아이엑셀러

(4) 사각형 그리고 색칠하기

아래와 같이 적당한 크기의 사각형을 하나 그리고 빨간색을 칠합니다. 혹시 "사각형은 어떻게 그리나요?" 하는 분은 없으시겠지요?('도형-기본 도형'에서 그리면 되지요)

(5) 기록 중지하기

"도구-매크로-기록 중지" 메뉴를 선택하거나 기록 중지 아이콘을 누릅니다.

아이엑셀러

(6) VB Editor에서 확인하기

이제 VB Editor(Visual Basic Editor)로 가 봅니다.

아이엑셀러

(6) 어라? 금방 작업한 거라곤 빨간 사각형을 하나 그렸을 뿐인데 웬 얄궂은 문자들이 잔뜩 기록이 되어 있지요?

위와 같이 Sub OOO() ~ End Sub와 같은 것을 "프로시저"라고 부릅니다. 위의 파일은 한 개의 프로시저로 이루어진 모듈시트인 것이지요.

코드 앞에 작은 따옴표(')가 표시되어 있으면 그것은 주석표시로서 그 부분은 실행에서 제외됩니다. 그런데 아무리 컴퓨터라고는 하지만 "권현욱이(가) XXXXXX에 기록한 매크로"라고 반말을 하니까 기분이 나빠지는데… 어쩌겠습니까? 감정이 있어 그런게 아니고 원래 만들어 질 때부터 그리되어 있었는걸… 우리가 참아야지요.

Sub 사각형그리기()
'
' 사각형그리기 Macro
' 권현욱이(가) 2000-03-23에 기록한 매크로
'
    '① 현재 시트에 사각형 도형을 추가하고 선택
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 78#, 554.25, 84#, 81.75). _
        Select
    '② 사각형 내부를 색상 10(빨간색)으로 채움
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
    '③
    Selection.ShapeRange.Fill.Visible = msoTrue
    '④
    Selection.ShapeRange.Fill.Solid
End Sub

① Activesheet.Shapes.AddShape(msoShapeRectangle,…).select 위 문장을 풀이하면... 현재 시트에.도형을.추가하고(사각형,왼쪽에서의 거리,위에서의 거리,사각형폭, 사각형높이).선택하라 뭐 이렇게 되겠지요. 문장이 길어질 경우 문장의 끝에 "(공백1간)_"라고 해 주면 그 두 줄은 하나의 문장으로 인식이 됩니다.

② 선택된것.채우기.전면색상.색상=10, 즉 빨간색으로 사각형 내부를 채우라는 명령입니다. ③, ④번 행은 없어도 실행에는 지장이 없습니다.

(7) 매크로 실행하기

이제 빨간 사각형을 그리고 싶다면 시트내 어디에서나 "도구-매크로-매크로" 또는 아래 아이콘을 눌러 "사각형그리기"를 선택, 실행하면 됩니다.

아이엑셀러

Step 2: 응용해 보기

이상에서 설명드린 사항을 약간 응용해서 아래와 같은 것을 만들어 보았습니다.

Sub MakeRectangles1()
    Dim intX As Integer
    Dim intY As Integer
    Dim rngAdd As Range
    Set rngAdd = ActiveSheet.Range("b115")

    For intX = 20 To 120 Step 10
        For intY = 20 To 120 Step 10
            ActiveSheet.Rectangles.Add(rngAdd.Left + intY, _
                rngAdd.Top + intX, 8, 8).Select
            Selection.Interior.ColorIndex = Int(Rnd * 56) + 1
        Next intY
    Next intX
    ActiveSheet.Buttons.Add(Range("e115").Left, Range("e115").Top, _
        Range("e115").Width * 2, Range("e115").Height).Select
    With Selection
        .Caption = "사각형 지우기"
        .Characters.Font.Size = 9
        .OnAction = "DelRec"
    End With
    Range("e115").Select

    MsgBox "사각형을 " & ActiveSheet.Rectangles.Count & "개 그렸습니다" _
        & vbCrLf & """사각형 지우기""" & "버튼을 누르면 지웁니다.", , "//LPRINCE"
End Sub

Sub DelRec()
    Dim btn As Button

    ActiveSheet.Rectangles.Delete
    For Each btn In ActiveSheet.Buttons
        If btn.Caption = "사각형 지우기" Then btn.Delete
    Next btn
End Sub

실행해 보셨나요? 어떻습니까? 재미있지요? 이 부분에 대한 코드는 다음 강좌에서부터 하나씩 설명드리지요.

마무리

오늘은 여기까지…

정리 — 매크로 기록과 코드 해석 요약

자주 묻는 질문 (FAQ)

마치며

응용 예제의 코드는 다음 강좌부터 하나씩 설명드립니다.