PPT VBA 업잔 파일 2026 버전으로 업그레이드

' 기존 코드 예시
Set sShp = ActiveWindow.Selection.ShapeRange
txt_HFont.Value = sShp.TextFrame.TextRange.Font.NameFarEast

Private Sub CommandButton1_Click()
Private Sub CommandButton2_Click()

1. Alt + F11로 VBA 에디터 열기
2. 모듈/폼 코드 전체 선택 (Ctrl+A)
3. 복사 (Ctrl+C)
4. Claude에 붙여넣기

Set sShp = ActiveWindow.Selection.ShapeRange
txt_HFont.Value = sShp.TextFrame.TextRange.Font.NameFarEast

On Error GoTo E_Handler

' 선택 항목 확인
If ActiveWindow.Selection.Type <> ppSelectionShapes Then
    MsgBox "도형을 먼저 선택해 주세요.", vbExclamation, "알림"
    Exit Sub
End If

Set sShp = ActiveWindow.Selection.ShapeRange

If sShp.Count = 0 Then
    MsgBox "도형을 먼저 선택해 주세요.", vbExclamation, "알림"
    Exit Sub
End If

' ... 작업 수행

Exit Sub

E_Handler:
    MsgBox "오류가 발생했습니다." & vbCrLf & _
           "Error: " & Err.Description, vbCritical, "오류"

Private Sub CommandButton1_Click()
Private Sub CommandButton2_Click()
Dim SW, SH, Dia As Integer

Private Sub cmd_GetRefColor_Click()
Private Sub cmd_ApplyProperties_Click()
Dim slideWidth As Long, slideHeight As Long, diameter As Long

' 문서 내 폰트 자동 수집
Private Sub CollectDocumentFonts()
    Dim dictFonts As Object
    Set dictFonts = CreateObject("Scripting.Dictionary")
    
    For Each oSlide In ActivePresentation.Slides
        For Each oShape In oSlide.Shapes
            If oShape.HasTextFrame = msoTrue Then
                fontName = oShape.TextFrame.TextRange.Font.NameFarEast
                If fontName <> "" And Not dictFonts.Exists(fontName) Then
                    dictFonts.Add fontName, Nothing
                End If
            End If
        Next oShape
    Next oSlide
    
    ' 콤보박스에 추가
    For Each fontKey In dictFonts.Keys
        cbo_HFont.AddItem fontKey
    Next fontKey
End Sub

' 참조 도형: 찾을 기준 (채우기 색상만)
' 대상 도형: 적용할 스타일 (채우기 + 윤곽선)

If Shp.Fill.ForeColor.RGB = refColor Then
    ' 채우기 변경
    Shp.Fill.ForeColor.RGB = tarColor
    
    ' 윤곽선도 변경 (옵션)
    If applyLine Then
        Shp.Line.ForeColor.RGB = tarLineColor
    End If
End If

If currentRatio > targetRatio Then
    ' 가로가 더 넓음 → 좌우 크롭
    fillHeight = targetHeight
    fillWidth = fillHeight * currentRatio
    cropH = (fillWidth - targetWidth) / 2
    
    Shp.PictureFormat.CropLeft = cropH
    Shp.PictureFormat.CropRight = cropH
Else
    ' 세로가 더 높음 → 상하 크롭
    fillWidth = targetWidth
    fillHeight = fillWidth / currentRatio
    cropV = (fillHeight - targetHeight) / 2
    
    Shp.PictureFormat.CropTop = cropV
    Shp.PictureFormat.CropBottom = cropV
End If

' AI가 제안한 코드 (오류 발생)
Case msoLineRound  ' ← 이런 상수는 존재하지 않음!
    GetLineStyleName = "둥근점"

' 올바른 코드
Case msoLineRoundDot  ' ← 정확한 상수명
    GetLineStyleName = "둥근점"

' 이미지의 LockAspectRatio는 기본적으로 True
' 하나의 값만 변경하면 자동으로 비율 유지
Shp.Width = 800  ' Height는 자동으로 조정됨

파워포인트 VBA를 만들고 리본 메뉴에 해당 기능의 버튼을 추가했어. 각 기능별로 아이콘을 만들고 싶으니 다음의 8가지 기능들에 해당하는 각각의 64 by 64 사이즈 아이콘 이미지를 그려줘. 작은 아이콘으로 사용할 것이기 때문에 크기가 작아도 의미가 통하게 단순화된 심벌로 만들어줘. 1. icon 1 : 자동 페이지 번호 생성 - 정해진 규칙에 딸라 슬라이드에 메인 슬라이드/보조 슬라이드 구분에 따라 페이지 번호 매기는 기능 
2. icon 2 : 제목 위치 통일 - 슬라이드의 제목 글상자 위치가 제각각 일때 같은 위치로 통일해 주는 기능 
3. icon 3 : 폰트 통일 - 슬라이드 안에 여러 폰트가 사용되었을때 같은 폰트로 통일시켜주는 기능 
4. icon 4 : 찾아 강조 - 슬라이드 안에 있는 특정 단어를 찾아서 굵게/밑줄/기울임체 등으로 키워드를 강조하는 기능 
5. icon 5 : 위치/크기 복분 - 특정 이미지의 위치와 크기 정보를 복사했다가 지정 이미지에 적용하는 기능 
6. icon 6 : 이미지 편집 - 여러 이미지를 한번에 둥글게 자르거나 둥근 사각형 모양으로 자르거나 슬라이드 좌우 균일한 간경으로 자동 배치하는 기능 
7. icon 7 : 색깔통일 - 슬라이드 내에 있는 특정 색깔의 도형을 모두 원하는 색으로 한번에 변경하는 기능 
8. icon 8 : 순서도 편집 - 순서도가 그려져 있을때 내가 원하는 형태로 수정 보완하는 편의 기능. 선을 굵게/연하게하는 기능, 직선 화살표를 꺽은선 화살표로 바꾸는 기능 등의 소소한 기능 지원이 됨

' 속성 가져오기 완료
MsgBox "속성을 가져왔습니다." & vbCrLf & _
       "Left: " & txtL.Value & vbCrLf & _
       "Top: " & txtT.Value & vbCrLf & ...

' 폰트 설정 완료  
MsgBox "참조 도형 속성이 설정되었습니다." & vbCrLf & ...

' 색상 변경 전 확인
MsgBox "색상을 일괄 변경하시겠습니까?" & vbCrLf & ...

□ 에러 처리가 되어 있는가?
□ 변수명이 명확한가?
□ 사용자 입력값을 검증하는가?
□ 확인 메시지가 적절한가? (너무 많지 않은가?)
□ 처리 결과를 피드백하는가?
□ 빈 핸들러가 없는가?
□ 주석이 필요한 곳에 있는가?

1. 컨트롤 이름과 타입 명확히 정리
2. 중요 속성 리스트업
3. 레이아웃 스케치 요청
4. 직접 구현 후 테스트

1. AI에게 코드 요청
2. 코드 이해 및 검토
3. 작은 기능부터 테스트
4. 에러 발견 시 즉시 수정
5. 전체 통합 테스트