[파워포인트 매크로] 이미지 크기 조절 매크로

개요

파워포인트에서, 스크린샷을 찍은 이미지를 몇 백개를 넣어야 할 때. 크기 줄이는 것 까지도 참겠지만, 위치가 제멋대로 들어가서 열받을 수가 있다. 다음과 같은 소스로 매크로를 만들어서 사용하면 유용하다.

첫번째 것(viewsize)은 이미지의 크기와 위치를 보는 방법. 여기서 나온 값들을 메모해두었다가 두번째 것 (resize) 에서 해당 값을 적어주고 테스트 해보면 된다.

완전, 일괄적으로 적용하는 매크로는 아니고, 단축키로 지정해서, 이미지 하나하나 클릭하면서 사용하면 된다. 이 정도만 사용해도 작업상의 효율이 눈에 띄게 올라간다. 강추천.

매크로 코드

Attribute VB_Name = "Module1"
Sub viewsize()
    MsgBox (ActiveWindow.Selection.ShapeRange.ActionSettings.Application)
    MsgBox (ActiveWindow.Selection.ShapeRange.Width)
    MsgBox (ActiveWindow.Selection.ShapeRange.Height)
    MsgBox (ActiveWindow.Selection.ShapeRange.Left)
    MsgBox (ActiveWindow.Selection.ShapeRange.Top)
End Sub

Sub resize()
    ActiveWindow.Selection.ShapeRange.LockAspectRatio = msoFalse
    ActiveWindow.Selection.ShapeRange.Width = 510.2362
    ActiveWindow.Selection.ShapeRange.Height = 396.8504
    ActiveWindow.Selection.ShapeRange.Left = 31.1811
    ActiveWindow.Selection.ShapeRange.Top = 113.3858
End Sub