파워포인트 그림 크기 일괄 변경 매크로 #1

매크로 설명

 

• 파워포인트 이미지 속성 일괄 변경 매크로이다.
• 모든 슬라이드의 삽입 이미지만 따로 크기를 변경해준다.
• 그림의 가로/세로 비율이 중요하다면 LockAspectRatio 속성을 msoTrue로 잡아주어야 한다.

매크로 실행 동영상(실행방법 포함)

 

VBA Code

 

Option Explicit Dim i As Long Dim pic As Shape Dim last_slide As Slide Sub pic_change() For i = 1 To ActivePresentation.Slides.Count For Each pic In ActivePresentation.Slides(i).Shapes If pic.Type = msoPicture Then '그림 파일이면 With pic .LockAspectRatio = msoTrue '가로/세로 비율 고정 .Height = 200 '세로 길이 설정 '.Width = ## 가로 길이는 비율에 따라 자동 설정 .Top = 0 '그림 파일의 위쪽 끝 좌표 .Left = 0 '그림 파일의 왼쪽 끝 좌표 End With End If Next pic Next i MsgBox "그림이 일괄 변경되었습니다." End Sub 

 

 

 Copyright (2018) Ruahneuma. All Rights Reserved.