파워포인트에서 도형 간격을 모두 1mm로 동시에 맞추는 방법?
파워포인트에서 여러 도형의 간격을 모두 1mm로 동시에 맞추는 기본 기능은 제공되지 않습니다. 파워포인트의 '간격 동일하게' 기능은 선택한 도형들 사이의 간격을 동일한 값으로 분배해 주지만, 그 간격의 수치(예: 1mm)를 사용자가 직접 지정할 수는 없습니다.
대신, 원하는 간격(1mm)을 정확하게 구현하려면 다음과 같은 방법을 조합하여 사용해야 합니다.
1. 안내선과 눈금자를 활용한 수동 배치
가장 정밀한 방법은 눈금자와 안내선을 사용하여 도형을 하나씩 배치하는 것입니다.
- 눈금자 및 안내선 설정: 보기 탭에서 눈금자와 안내선을 체크하여 표시합니다.
- 안내선 복제: 안내선을 Ctrl 키를 누른 상태로 드래그하면 새로운 안내선이 복제됩니다. 이 기능을 사용하여 1mm 간격으로 여러 개의 안내선을 만듭니다. (눈금자의 최소 단위를 활용)
- 도형 스냅: 도형을 이동할 때 안내선에 자동으로 붙는 스마트 가이드 기능을 활성화(보기 탭)하면 정확한 위치에 배치하기 쉽습니다.
2. '간격 동일하게' 기능 사용 후 수동 조정
- 1차 정렬: 정렬할 모든 도형을 선택합니다.
- 간격 분배: 홈 탭 → 정렬 → 맞춤 → 가로 간격을 동일하게 또는 세로 간격을 동일하게를 선택하여 간격을 1차적으로 균일하게 맞춥니다.
- 수동 미세 조정: 이 상태에서 간격이 1mm가 아닐 경우, 가장 바깥쪽 도형을 움직여 전체 간격을 조정합니다. 이때 눈금자를 보면서 도형의 위치 값을 직접 입력하거나, Ctrl 키와 방향키를 이용해 미세하게 이동시키는 방법을 사용합니다.
3. VBA 매크로 활용 (고급 사용자)
정확한 간격을 반복적으로 맞춰야 한다면, VBA(Visual Basic for Applications) 매크로를 사용하는 것이 가장 효율적입니다. 간단한 코드를 작성하여 선택한 도형들의 간격을 정확히 1mm(약 2.83포인트)로 설정할 수 있습니다.
결론적으로, 파워포인트 자체 기능만으로는 모든 도형 간격을 한 번에 1mm로 설정할 수 없습니다. 따라서 안내선과 눈금자를 이용한 수동 배치 또는 VBA 매크로를 사용하는 것이 정확한 간격을 구현하는 방법입니다.
파워포인트 도형 정렬 - 깔끔히 정리해주는 맞춤 정렬 기능
VBA 매크로로 1mm 간격을 설정하는 코드 예제는 무엇인가요?파워포인트 VBA에서 선택한 도형들의 간격을 정확히 1mm로 설정하는 코드를 제공합니다. 파워포인트의 기본 단위는 포인트(pt)이므로, 1mm를 포인트로 변환해야 합니다. 1mm는 약 2.8346포인트(1pt = 0.3528mm)입니다.
VBA 매크로 코드 예제
다음은 선택한 여러 도형의 가로 간격을 정확히 1mm(2.8346pt)로 설정하는 VBA 코드입니다.
Sub SetHorizontalSpacingTo1mm()
Dim sld As Slide
Dim shpRange As ShapeRange
Dim i As Integer
Dim totalWidth As Double
Dim startLeft As Double
Dim spacing As Double
' 1mm를 포인트로 변환 (1mm = 2.8346pt)
spacing = 2.8346
' 현재 선택된 도형이 있는지 확인
If ActiveWindow.Selection.Type = ppSelectionNone Then
MsgBox "도형을 먼저 선택해주세요.", vbExclamation, "알림"
Exit Sub
End If
' 선택된 도형들을 ShapeRange로 가져오기
Set shpRange = ActiveWindow.Selection.ShapeRange
' 도형이 2개 미만이면 실행 불가
If shpRange.Count < 2 Then
MsgBox "2개 이상의 도형을 선택해주세요.", vbExclamation, "알림"
Exit Sub
End If
' 도형들을 왼쪽에서 오른쪽으로 정렬 (왼쪽 맞춤 기준)
' 먼저 가장 왼쪽 도형의 Left 값을 기준으로 삼음
startLeft = shpRange(1).Left
For i = 2 To shpRange.Count
If shpRange(i).Left < startLeft Then
startLeft = shpRange(i).Left
End If
Next i
' 각 도형의 위치를 재설정 (간격 1mm 적용)
For i = 1 To shpRange.Count
shpRange(i).Left = startLeft + (i - 1) * (shpRange(1).Width + spacing)
Next i
MsgBox "도형 간격이 1mm로 설정되었습니다.", vbInformation, "완료"
End Sub
세로 간격 설정 코드
세로 방향으로 1mm 간격을 설정하려면 다음 코드를 사용합니다.
Sub SetVerticalSpacingTo1mm()
Dim shpRange As ShapeRange
Dim i As Integer
Dim startTop As Double
Dim spacing As Double
' 1mm를 포인트로 변환
spacing = 2.8346
' 선택 확인
If ActiveWindow.Selection.Type = ppSelectionNone Then
MsgBox "도형을 먼저 선택해주세요.", vbExclamation, "알림"
Exit Sub
End If
Set shpRange = ActiveWindow.Selection.ShapeRange
If shpRange.Count < 2 Then
MsgBox "2개 이상의 도형을 선택해주세요.", vbExclamation, "알림"
Exit Sub
End If
' 가장 위쪽 도형의 Top 값 찾기
startTop = shpRange(1).Top
For i = 2 To shpRange.Count
If shpRange(i).Top < startTop Then
startTop = shpRange(i).Top
End If
Next i
' 세로 간격 1mm로 재설정
For i = 1 To shpRange.Count
shpRange(i).Top = startTop + (i - 1) * (shpRange(1).Height + spacing)
Next i
MsgBox "도형 간격이 1mm로 설정되었습니다.", vbInformation, "완료"
End Sub
코드 사용 방법
- 파워포인트에서 Alt + F11을 눌러 VBA 편집기를 엽니다.
- 메뉴에서 삽입 → 모듈을 선택하여 새 모듈을 추가합니다.
- 위 코드를 복사하여 모듈 창에 붙여넣습니다.
- VBA 편집기를 닫고, 간격을 맞출 도형들을 모두 선택합니다.
- Alt + F8을 눌러 매크로 대화상자를 열고, 원하는 매크로(SetHorizontalSpacingTo1mm 또는 SetVerticalSpacingTo1mm)를 선택한 후 실행을 클릭합니다.
주요 포인트
- 단위 변환: 파워포인트 VBA는 기본적으로 포인트(pt) 단위를 사용하므로, 1mm를 2.8346pt로 변환하여 적용했습니다.
- 도형 정렬: 이 코드는 선택된 도형들을 가장 왼쪽(또는 가장 위쪽) 도형을 기준으로 정렬한 후, 지정된 간격(1mm)으로 배치합니다.
- ShapeRange 객체: ActiveWindow.Selection.ShapeRange를 사용하여 현재 선택된 모든 도형을 하나의 범위로 처리합니다.
- 오류 처리: 도형이 선택되지 않았거나 2개 미만일 경우 사용자에게 알림 메시지를 표시합니다.
이 코드를 필요에 맞게 수정하여 간격 값을 변경하거나, 가로/세로 정렬을 조합하여 사용할 수 있습니다.