모눈 눈금 만들기 - 아래한글 또는 VBA 이용

일단 아래한글워드에서 만들기

 

1.편집 용지(F7) 머리말/꼬리말, 위/아래, 좌/우 여백 0으로

 

​

2. 표만들기

​

3. 만들어진 표의 첫번째 셀에 들어가서 F5키를 두 번 누르고 End 키 그리고 PgDn 키로 모든 셀 선택 후

글자크기를 6pt이하로 설정

​

4. 모든 셀이 선택된 상태에서 표/셀 속성으로 들어감.

​

4-1. 표 속성에 표 바깥 여백 0으로

4-2. 표 속성의 모든 셀의 안 여백을 0으로

​

4-3 마지막으로 셀 속성에서 셀크기 다시 적용, 안 여백 0으로 설정

4-4. 설정 완료. 끝에서 백스페이스 한 번 눌러서 1페이지로 완성

​

첨부파일로 첨부합니다.

모눈.hwp

0.07MB

 

* * * * * * * * * * * * * * * *

​

파워포인트에서는 표로 만들 수 있겠지만 표는 처리속도가 매우 느립니다. 한번에 75행을 넘어서 만들지도 못해서 10행를 추가로 복사해서 아래에 붙여넣어야 합니다.

​

파워포인트에서 선을 그을 수 있는데 반복과정을 VBA로 처리해서 자동으로 모눈 눈금을 만들어볼 수도 있습니다.

​

(Alt-F11누르고 삽입-모듈 추가하고 아래 코드를 넣고 F5로 실행하면 자동으로 가로/세로 선을 만들어 줍니다.)

아래 0.35 를 다른 숫자로 바꿔서 다른 크기의 모눈을 만들 수도 있습니다.

Sub DrawGrid()

    Dim Col As Integer, Row As Integer
    Dim SW As Single, SH As Single
    Dim BoxW As Single, BoxH As Single
    
    '슬라이드 사이즈 설정
    With ActivePresentation.PageSetup
        .SlideSize = ppSlideSizeCustom
        
        '프린트 여백 없는 A4 사이즈
        .SlideWidth = 21 * 28.346
        .SlideHeight = 29.7 * 28.346
    
        '화면 가로 세로 크기
        SW = .SlideWidth
        SH = .SlideHeight
    End With
    
    Col = SW / (0.35 * 28.346)
    Row = SH / (0.35 * 28.346)
    
    '박스 하나의 가로 세로 크기
    BoxW = SW / Col
    BoxH = SH / Row
    Debug.Print Col, Row, BoxW, BoxH
    
    k = 0
    With ActiveWindow.View.Slide.Shapes
        
        '세로줄 긋기
        For i = 0 To Col
            With .AddLine(BoxW * i, 0, BoxW * i, SH)
                .Name = "Line_V" & i
                .Line.Weight = 0.5              '선 두께
                .Line.ForeColor.RGB = rgbGray   '선 색상 rgbGray, RGB(125,125,125) 등
                If i = 0 Then .Select True Else .Select False '그룹으로 합치기 위해
            End With

            k = k + 1
        Next i
        
        '가로줄 긋기
        For i = 0 To Row
            With .AddLine(0, BoxH * i, SW, BoxH * i)
                .Name = "Line_H" & i
                .Line.Weight = 0.5
                .Line.ForeColor.RGB = rgbGray
                .Select False
            End With
            
            k = k + 1
        Next i

    End With
    
    
    '선택된 가로, 세로선들을 그룹으로 묶기
    ActiveWindow.Selection.ShapeRange.Group.Name = "Line_Group"

End Sub

혹시 인쇄를 한다면 파워포인트는 프린터 여백을 좀 더 두기 때문에 PDF로 저장해서 출력하는 것이 좀 더 크게 출력할 수 있습니다. 프린터는 여백을 두기 때문에 A4에 꽉차게 인쇄하기는 어렵습니다.

 

모눈.emf

0.64MB

모눈.pdf

0.01MB

DrawGrid1.pptm

0.06MB