메인 컨텐츠로 가기

 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 - Over로 단어 경험을 향상시키세요 100 놀라운 기능!

🤖 Kutools AI 도우미: AI로 글쓰기를 변화시키세요 - 콘텐츠 생성  /  텍스트 다시 쓰기  /  문서 요약  /  정보 문의 문서 기반, 모두 Word 내에서

📘 문서 숙달: 페이지 분할  /  문서 병합  /  다양한 형식으로 선택 항목 내보내기(PDF/TXT/DOC/HTML...)  /  PDF로 일괄 변환  /  페이지를 이미지로 내보내기  /  한 번에 여러 파일 인쇄...

컨텐츠 편집: 일괄 찾기 및 바꾸기 여러 파일에 걸쳐  /  모든 사진 크기 조정  /  테이블 행과 열 바꾸기  /  표를 텍스트로 변환...

🧹 손쉬운 청소: 쓸어버리다 추가 공간  /  섹션 나누기  /  모든 헤더  /  텍스트 상자  /  하이퍼 링크  / 더 많은 제거 도구를 보려면 다음 페이지를 방문하세요. 그룹 제거...

광고 삽입물: 삽입 천 단위 구분 기호  /  확인란  /  라디오 버튼  /  QR 코드  /  바코드  /  대각선 표  /  방정식 캡션  /  이미지 캡션  /  테이블 캡션  /  여러 장의 사진  / 더 자세히 알아보세요. 그룹 삽입...

🔍 정밀한 선택: 핀포인트 특정 페이지  /  테이블  /  모양  /  제목 단락  / 탐색 기능 향상 배우기 기능 선택...

스타 강화: 어떤 위치로든 빠르게 이동  /  반복되는 텍스트 자동 삽입  /  문서 창 간을 원활하게 전환합니다.  /  11 변환 도구...

👉 이러한 기능을 사용해 보고 싶으신가요? Word 용 Kutools는 다음을 제공합니다. 60 일 무료 사용, 제한 없음! 🚀
 
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Molto bello e utile! Non mi è chiara solo un a cosa, nel Codice VBA con criterio aumento/diminuisco le dimensioni delle immagini? Percentuale/rapporto? pixel? cm?
GRAZIE!
This comment was minimized by the moderator on the site
Hello, Grasselli
The unit size is pond in the above VBA code.
Thank you!
This comment was minimized by the moderator on the site
thanks for help ... it is very interesting ... big job ... good luck
This comment was minimized by the moderator on the site
Hi, hello
I'm Soda, I'm here to say that, I really learn a lot with your website and information that you give.
Thanks for that :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations