소프트웨어

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

스뭇 2016. 8. 19.

목차

    반응형

    안녕하세요.

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

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


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

     

    http://iamaman.tistory.com/592

      

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

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

     

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

     

     

     

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

     

    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



    반응형