엑셀 VBA로 포토샵 이미지 크기 변경

매크로 설명

• 포토샵은 Action Batch로 세세한 사항까지 자동화할 수 있지만,
• VBA를 보다 풍부하게 다루어보고 공부해보기 위해 카테고리를 따로 두어 만들어 보았다.
• 본 매크로는 포토샵에서 Document가 활성화되어 있는 경우에만 작동한다.
• VBA 편집기에서 도구 -> 참조 -> Adobe Photoshop [Version] Object Library를 추가해주어야 한다.
• 포토샵 개체모델 참조: 포토샵 스크립팅 가이드 https://www.adobe.com/devnet/photoshop/scripting.html

VBA Code

Option Explicit
Sub photoshop_touching()
 
Dim appPhoto As Photoshop.Application
Dim docPhoto As Photoshop.Document
 
Set appPhoto = New Photoshop.Application '포토샵 개체 선언
 
If appPhoto Is Nothing Then
    MsgBox "error has occured, plz retry"
    Exit Sub
    Else
    appPhoto.Visible = True
End If
 
appPhoto.Preferences.RulerUnits = psPixels '포토샵의 격자단위를 픽셀(pixel)로 변경
 
Set docPhoto = appPhoto.ActiveDocument '현재 활성화된 문서를 docPhoto로 선언
 
docPhoto.ResizeImage Width:=500, _
                     Height:=500, _
                     Resolution:=300, _
                     ResampleMethod:=psBicubic '가로/세로 500px, 해상도 300, 샘플링은 Bicubic으로
 
End Sub

매크로 실행 동영상

 Copyright (2018) Ruahneuma. All Rights Reserved.