Note: The other languages of the website are Google-translated. Back to English

 Word 문서에 같은 크기의 여러 그림을 삽입하는 방법은 무엇입니까?

일반적으로 Word 문서에 원본 크기로 여러 이미지를 한 번에 삽입 할 수 있습니다. 때로는 삽입 할 때 이러한 이미지를 동일한 크기로 정렬해야합니다. 이 기사에서는 Word 문서에 같은 크기의 여러 그림을 삽입하는 방법에 대해 설명합니다.

VBA 코드를 사용하여 Word 문서에 동일한 크기의 여러 그림 삽입

Kutools for Word를 사용하여 특정 이미지를 기반으로 모든 그림을 동일한 크기로 조정


VBA 코드를 사용하여 Word 문서에 동일한 크기의 여러 그림 삽입

다음 vba 코드는 여러 사진을 삽입하고 한 번에 지정된 크기로 크기를 조정하는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여 넣습니다.

VBA 코드 : 동일한 크기의 여러 그림 삽입 :

Sub InsertSpecificNumberOfPictureForEachPage()
    Dim xDlg As FileDialog
    Dim xFilePath As String
    Dim xFileName As String
    Dim xMsbBoxRtn As Long
    Dim xPicSize As String
    Dim xShape As InlineShape
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFilePath = xDlg.SelectedItems(1) & "\"
    Else
        Exit Sub
    End If
    xFileName = Dir(xFilePath & "*.*", vbNormal)
    While xFileName <> ""
        If Not (Right(xFileName, 4) = ".png" Or Right(xFileName, 4) = ".bmp" _
        Or Right(xFileName, 4) = ".jpg" Or Right(xFileName, 4) = ".ico") Then
            GoTo LblCtn
        End If
        With Selection
            .InlineShapes.AddPicture xFilePath & xFileName, False, True
            .TypeParagraph
            .Collapse wdCollapsEnd
            .TypeText Left(xFileName, InStrRev(xFileName, ".") - 1)
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .TypeParagraph
        End With
LblCtn:
        xFileName = Dir()
    Wend
    ActiveDocument.InlineShapes(1).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    xMsbBoxRtn = MsgBox("Do you want to resize all pictures?", vbYesNo, "Kutools for Word")
    If xMsbBoxRtn = 6 Then
        xPicSize = InputBox("Input the height and width of the picture, separated by comma", "Kutools for Word", "")
    End If
    For Each xShape In ActiveDocument.InlineShapes
      xShape.Height = Split(xPicSize, ",")(0)
      xShape.Width = Split(xPicSize, ",")(1)
    Next xShape
End Sub

3. 그런 다음 F5 이 코드를 실행하는 키, 검색 창이 표시되면 삽입하려는 이미지가 포함 된 폴더를 선택하십시오. 스크린 샷을 참조하십시오.

동일한 크기의 문서 삽입 이미지 1

4. 그런 다음 OK 버튼을 클릭하면 사진 크기를 조정할 것인지 알려주는 프롬프트 상자가 나타납니다. 스크린 샷을 참조하십시오.

동일한 크기의 문서 삽입 이미지 2

5. 딸깍 하는 소리 가능을 클릭하고 텍스트 상자에 쉼표로 구분 된 높이와 너비의 크기 번호를 입력합니다. 스크린 샷을 참조하십시오.

동일한 크기의 문서 삽입 이미지 3

6. 그런 다음 OK, 삽입 된 모든 이미지가 동일한 크기로 재 배열되었습니다. 스크린 샷을 참조하십시오.

동일한 크기의 문서 삽입 이미지 4

주의 사항: 단위 크기는 VBA 코드에서 연못입니다.


Kutools for Word를 사용하여 특정 이미지를 기반으로 모든 그림을 동일한 크기로 조정

Word 문서에 여러 그림이있는 경우 Word 용 Kutools이미지 크기 조정 유틸리티를 사용하면 모든 이미지의 크기를 특정 이미지와 동일하게 빠르게 조정할 수 있습니다.

Word 용 Kutools : 100 개 이상의 편리한 Word 추가 기능으로 60 일 동안 제한없이 무료로 사용해 볼 수 있습니다.. 

설치 후 Word 용 Kutools, 다음과 같이하십시오.

1. 하나의 사진을 원하는 크기로 조정 한 다음 선택하고 쿠툴즈 플러스 > 크기 조정 > 선택 항목으로 이미지 크기 조정, 스크린 샷 참조 :

2. 이 워드 문서의 모든 이미지는 선택한 이미지와 동일하게 즉시 크기가 조정되었습니다. 스크린 샷을 참조하십시오.

지금 Word 및 무료 평가판 용 Kutools를 다운로드하려면 클릭하십시오!


추천 단어 생산 도구

 

Word 용 Kutools-Word 용 100 개 이상의 고급 기능으로 50 % 시간 절약

  • 복잡하고 반복되는 작업은 몇 초 만에 한 번 처리 할 수 ​​있습니다.
  • 여러 폴더의 이미지를 한 번에 Word 문서에 삽입합니다.
  • 폴더에있는 여러 Word 파일을 원하는 순서대로 하나로 병합하고 결합합니다.
  • 제목, 섹션 나누기 또는 기타 기준에 따라 현재 문서를 별도의 문서로 분할합니다.
  • Doc과 Docx, Docx와 PDF, 일반적인 변환 및 선택을위한 도구 모음 등의 파일 변환 ...
코멘트 (4)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 안녕하세요
저는 Soda입니다. 귀하의 웹사이트와 귀하가 제공하는 정보를 통해 정말 많은 것을 배우고 있습니다.
감사합니다 :)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
도움을 주셔서 감사합니다 ... 매우 흥미롭습니다 ... 큰 일 ... 행운을 빕니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Molto bello e util! Non mi è chiara solo un a cosa, nel Codice VBA con criterio aumento/diminuisco le dimensioni delle immagini? 백분위/관계? 픽셀? 센티미터?
그레이 지!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, Grasselli
단위 크기는 위의 VBA 코드에서 연못입니다.
감사합니다!
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치