Word 에서 여러 이미지를 삽입하고 이미지 크기 조정를 동일한 크기로 조정하려면 어떻게 하나요？
일반적으로 Word 문서에 여러 이미지를 한 번에 원본 크기로 삽입할 수 있습니다。 그러나 일관되고 전문적인 외관을 위해 모든 이미지의 크기를 동일하게 맞춰야 할 때도 있습니다。 각 이미지를 수동으로 크기 조정하는 것은 시간이 많이 소요됩니다。 이 가이드에서는 여러 이미지를 Word 문서에 효율적으로 삽입하고 균일한 크기로 조정하여 전문적이고 통일된 레이아웃을 만드는 방법을 안내합니다。
VBA 를 사용하여 Word 에서 여러 이미지를 삽입하고 동일한 크기로 조정하기
Kutools for Word 을 사용하여 모든 이미지를 특정 이미지와 동일한 크기로 조정하기
VBA 를 사용하여 Word 에서 여러 이미지를 삽입하고 동일한 크기로 조정하기
다음 VBA 코드를 사용하면 여러 이미지를 한 번에 삽입하고 지정한 크기로 모두 조정할 수 있습니다。 아래 단계를 따르세요：
- 다음 키를 누른 상태에서ALT + F11를 눌러Microsoft Visual Basic for Applications창을 엽니다。
- 클릭하여삽입>모듈을 선택한 후 다음 코드를모듈창에 붙여넣습니다。
- 이 코드를 실행하려면F5를 누릅니다。 그러면찾아보기창이 나타납니다。 삽입하려는 이미지가 있는 폴더를 선택하고확인을 클릭합니다。
- 이미지 크기를 조정할지 묻는 메시지가 나타납니다。예를 클릭합니다。
- 나타나는 텍스트 상자에 높이와 너비를 포인트(pt) 단위로 쉼표로 구분하여 입력한 후확인을 클릭합니다。
- 모든 이미지 삽입가 지정된 크기로 조정됩니다。
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
Kutools for Word 을 사용하여 모든 이미지를 특정 이미지와 동일한 크기로 조정하기
Word 문서에 여러 이미지가 포함된 경우 하나씩 크기를 조정하는 것이 번거로울 수 있습니다。Kutools for Word의이미지 크기 조정유틸리티를 사용하면 모든 이미지를 특정 이미지의 크기에 맞춰 빠르게 조정할 수 있습니다。
- 원하는 크기로 이미지를 하나 조정한 후 선택합니다。 그런 다음Kutools 플러스>크기 조정>선택에 따라 모든 이미지 크기 조정을 클릭합니다。
Word 문서의 모든 이미지가 즉시 선택한 이미지의 크기에 맞춰 조정됩니다。
최고의 오피스 생산성 도구
Kutools for Word- 300 개 이상의 놀라운 기능으로 Word 경험을 한층 업그레이드하세요！100놀라운 기능！
🤖KUTOOLS AI 기능:AI 도우미/실시간 어시스턴트/슈퍼 폴리시(형식 유지)/슈퍼 번역(형식 유지)/AI 수정/AI 교정...
📘문서 마스터리:페이지 분할/문서 병합/다양한 형식(PDF/TXT/DOC/HTML。。。)으로 선택 항목 내보내기/일괄 PDF 변환...
✏콘텐츠 편집:여러 파일에서 일괄 찾기 및 바꾸기/모든 그림 크기 조정/행과 열 표 전환/표를 텍스트로 변환...
🧹손쉬운 정리： 다음과 같은 요소들을 한 번에 제거하세요여분 공백/구역 나누기/텍스트 상자/하이퍼링크/ 더 많은 제거 도구는 다음 위치에서 확인하세요제거그룹。。。
➕창의적 삽입： 다음 요소 삽입천 단위 구분 기호/체크 박스/라디오 버튼/QR 코드/바코드/여러 그림/ 더 많은 기능은 다음 위치에서 확인하세요삽입그룹。。。
🔍정밀 선택： 다음 요소를 정확하게 선택하세요특정 페이지/표/도형/제목 단락/ 더 많은선택 기능으로탐색을 강화하세요기능...
⭐주요 강화 기능:임의 위치로 이동/반복 텍스트 자동 삽입/문서 간 전환 Windows/11 변환도구...
🌍40+개 언어 지원: Kutools 를 선호하는 언어로 사용하세요 – 영어， 스페인어， 독일어， 프랑스어， 중국어 등 40+개 추가 언어를 지원합니다！
Office Tab- Office 에 탭 기반 인터페이스를 도입하여 작업을 훨씬 쉽게 만듭니다
- Word, Excel, PowerPoint, Publisher, Access, Visio 및 Project 에서 탭 기반 편집 및 읽기를 활성화합니다。
- 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 생성합니다。
- 매일 수백 번의 마우스 클릭을 줄여 생산성을 50%% 향상시킵니다！
✨ Kutools for Office – 한 번의 설치로 다섯 가지 강력한 도구를 사용하세요！
포함 구성Office Tab Pro·Kutools for Excel·Kutools for Outlook·Kutools for Word·Kutools for PowerPoint
📦 하나의 스위트로 모든 5 도구 확보 | 🔗 Microsoft Office 와 원활하게 통합 | ⚡ 저장 시간하고 즉시 생산성 향상