MS 워드 이미지 크기 일괄 변환 후 중앙정렬

안녕하세요.

워드를 사용하다보면 이미지 크기를 조절해야할 경우가 많은데요. 아무리 손 쉽게 크기를 조절 가능하다고 해도, 한 번에 조절 하는 기능이 있다면 편리하죠. 포토샵으로 일일이 편집을 한다고 해도, 간혹 귀찮을 때가 있으니 워드를 통해서 한 번에, 그리고 손 쉽게 변경하는 방법을 조사하던 중. 매크로 기능을 통해

한번에 변경하는 방법이 있어서 적용해 보았습니다.

찾던 중 하단의 블로거 분을 통해서 해당 매크로 소스를 찾 게되었습니다.

 

http://iamaman.tistory.com/592

  

Alt F11 을 눌러서 아래의 소스 들을 해당 칸에 입력해 주면되는데요.

Normal  - Microsoft Word 개체 - This Document 를 열어서 우측 창에 하단의 소스를 입력해 주시면되겠습니다.

 

 

 

 

하단의 문구들을 입력해 줍니다.

 

Private Function AspectHt( _

origWd As Long, origHt As Long, _

newWd As Long) As Long

If origWd <> 0 Then

AspectHt = (CSng(origHt) / CSng(origWd)) * newWd

Else

AspectHt = 0

End If

End Function

Sub Figure_Attributes()

Dim oShp As Shape

Dim oILShp As InlineShape

For Each oShp In ActiveDocument.Shapes

    With oShp

        If (.Width > CentimetersToPoints(13)) Then

            .Height = AspectHt(.Width, .Height, _

            CentimetersToPoints(13))          '원하는 숫자 입력 cm

            .Width = CentimetersToPoints(13)  '원하는 숫자 입력

        End If

        

    End With

    

    oShp.Select

    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

    

Next

For Each oILShp In ActiveDocument.InlineShapes

    With oILShp

        If (.Width > CentimetersToPoints(13)) Then

            .Height = AspectHt(.Width, .Height, _

            CentimetersToPoints(13))            '원하는 숫자 입력

            .Width = CentimetersToPoints(13)    '원하는 숫자 입력

        End If

    End With

    

    oILShp.Select

    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

    

Next

End Sub

 

 

입니다.

 

XX 위치에 원하는 크기의 숫자를 입력해 주면 되는데요, cm 로 입력해주시면 됩니다.

Px 픽셀 크기에 맞추고 싶으신 분들은 계산을 해서 입력하시면 되는데요, 1cm 는 37 픽셀 정도로 계산하시면 되겠습니다.

가장 많이 사용하는 픽셀 단위를 첨부하였습니다.

500            - 13.22916666667

640            - 16.93333333333

720            - 19.05

900            - 23.8125

1000          - 26.45833333333

1500          - 39.6875

1920          -  50.8