파워포인트 그림 크기 일괄 변경 매크로 #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.