그림 크기 조정 자동화를 위한 워드 VBA 코드

그림 크기 조정 자동화를 위한 워드 VBA 코드

많은 사람들이 워드에서 이미지를 삽입하고, 크기를 조정하는 작업에 시간을 낭비하고 있습니다. 하지만 워드 VBA 코드를 사용하면 이 작업을 자동화할 수 있습니다. 이번 포스트에서는 워드 VBA를 사용하여 이미지 크기 조정을 자동화하는 방법에 대해 알아보겠습니다.

1. 워드 VBA 코드 작성

먼저, 워드 VBA 코드를 작성해야 합니다. 아래의 코드는 워드 문서에 있는 모든 이미지를 자동으로 선택하고, 원하는 크기로 조정하는 코드입니다.

Sub ResizeImages()
    Dim iShape As InlineShape

    For Each iShape In ActiveDocument.InlineShapes
        With iShape
            .LockAspectRatio = msoFalse
            .Width = 200  ' 원하는 가로 크기로 변경
            .Height = 150  ' 원하는 세로 크기로 변경
        End With
    Next iShape
End Sub

2. 코드 실행

위의 코드를 워드에 붙여넣고 실행하면 워드 문서에 있는 모든 이미지의 크기가 자동으로 조정됩니다. Width와 Height 부분에는 원하는 크기를 입력하면 됩니다.

3. 코드 저장

만약 자주 사용하는 이 코드를 편리하게 사용하기 위해 워드에 저장하고 싶다면, 다음과 같이 저장할 수 있습니다.

1. Alt + F11을 눌러 VBA 창을 엽니다.
2. Modules를 누르고, 오른쪽 클릭하여 Insert를 선택한 다음, Module을 클릭합니다.
3. 새로운 모듈이 생성되면, 그 안에 코드를 붙여넣습니다.
4. 모듈을 닫고, VBA 창을 닫습니다.

4. 단축키 설정

코드를 저장한 후에는 해당 코드를 빠르게 실행할 수 있는 단축키를 설정할 수 있습니다.

1. Alt + F8을 눌러 매크로 창을 엽니다.
2. ResizeImages 매크로를 선택한 다음, 옵션을 클릭합니다.
3. 단축키 필드를 클릭하고, 단축키를 입력한 다음, 확인을 클릭합니다.

이제 설정한 단축키를 누르면 이미지 크기 조정이 자동으로 실행됩니다.

마치며

이번 포스트에서는 워드 VBA 코드를 사용하여 이미지 크기 조정을 자동화하는 방법에 대해 알아보았습니다. 워드 작업 시, 반복되는 이미지 크기 조정 작업을 자동화하여 시간을 절약할 수 있습니다. VBA 코드를 활용하여 더 효율적인 작업을 할 수 있게 되었기를 바랍니다.