팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
회원가입
x

or

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

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

VBA 코드로 Word 문서에 같은 크기의 여러 그림 삽입

Word 용 Kutools로 특정 이미지를 기반으로 모든 그림의 크기를 같은 크기로 조정


선택한 사진을 기준으로 모든 사진의 크기를 같은 크기로 조정하십시오.

모든 이미지의 크기를 같은 크기로 변경하려면 일반적으로 크기를 하나씩 조정해야하지만 Word 용 Kutools's 이미지 크기 조정 기능을 사용하면 선택한 크기로 모든 사진을 동일한 크기로 조정할 수 있습니다. 다른 한편, 필요에 따라 특정 비율로 크기를 조정할 수도 있습니다.

doc 이미지 조정 05

Word 용 Kutools: 100 이상의 편리한 Word 추가 기능으로 60 일 동안 아무런 제한없이 사용해보십시오. 다운로드 및 무료 평가판을 다운로드하려면 클릭하십시오!


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 이 코드를 실행하기위한 키, 검색 창이 표시되면 삽입 할 이미지가있는 폴더를 선택하십시오. 스크린 샷을 참조하십시오.

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

4. 그런 다음 OK 버튼을 클릭하고 사진의 크기를 조정할지 묻는 메시지가 튀어 나옵니다. 스크린 샷을 참조하십시오.

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

5. 딸깍 하는 소리 텍스트 상자에 쉼표로 구분 된 높이 및 너비의 크기 번호를 입력하십시오 (스크린 샷 참조).

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

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

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

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


Word 용 Kutools로 특정 이미지를 기반으로 모든 그림의 크기를 같은 크기로 조정

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

Word 용 Kutools : 100 이상의 편리한 Word 추가 기능으로 60 일 동안 아무런 제한없이 시도 할 수 있습니다..

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

1. 한 장의 사진을 원하는 크기로 조절 한 다음 선택하십시오. 기업 > 이미지 크기 조정 > 선택 영역을 사용하여 이미지 크기 조절, 스크린 샷보기 :

doc 동일한 크기의 이미지 삽입 5

2. 그리고이 단어 문서의 모든 이미지는 선택한 것과 똑같은 크기로 조정되었습니다. 스크린 샷을보십시오.

doc 동일한 크기의 이미지 삽입 6

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



권장 단어 생산성 도구

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

  • 복잡하고 반복되는 작업은 1 초 단위로 처리 할 수 ​​있습니다.
  • Word 문서에 여러 이미지를 한 번에 삽입 할 수 있습니다.
  • 여러 Word 파일을 여러 폴더로 병합하고 원하는 순서로 하나로 결합하십시오.
  • 제목, 섹션 나누기 또는 기타 기준에 따라 현재 문서를 별도의 문서로 나눕니다.
  • Doc와 Docx, Docx와 PDF 사이의 파일 변환, 일반적인 변환과 선택을위한 도구 모음 등등 ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Soda · 6 months ago
    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 :)