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 - 100가지의 뛰어난 기능으로 Word 경험을 한 단계 높여보세요!
🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / Super Polish (서식 유지) / Super Translate (서식 유지) / AI Redaction / AI Proofread...
📘 문서 마스터하기: 페이지 분할 / 문서 병합 / 다양한 형식(PDF/TXT/DOC/HTML 등)으로 선택 영역 솔루션 내보내기 / PDF로 일괄 변환...
✏ 텍스트 편집: 여러 파일에서 일괄 찾기 및 바꾸기 / 모든 그림 크기 조정 / 표 행과 열 전환 / 표를 텍스트로 변환...
🧹 손쉬운 정리: 여분의 공백 / 구역 나누기 / 텍스트 상자 / 하이퍼링크를 깔끔하게 제거하세요. 더 많은 제거 도구는 '제거' 그룹에서 확인할 수 있습니다...
➕ 창의적 삽입: 천 단위 구분 기호 삽입 / 체크 박스 삽입 / 라디오 버튼 삽입 / QR 코드 / 바코드 / 여러 그림 삽입 / 더 많은 기능은 삽입 그룹에서 찾아보세요...
🔍 정밀 선택: 특정 페이지 / 표 / 도형 / 제목 단락을 정확히 선택하세요. 더 다양한 선택 기능으로 탐색을 더욱 향상하세요...
⭐ 특별 기능: 원하는 범위로 빠르게 탐색 / 반복 텍스트 자동 삽입 / 문서 창 간 토글 /11 가지 변환 도구...
🌍 40개 이상의 언어 지원: Kutools를 원하는 언어로 사용할 수 있습니다 – 영어, 스페인어, 독일어, 프랑스어, 중국어 등40개 이상의 언어를 지원합니다!
✨ Kutools for Office – 한 번의 설치로5가지 강력한 도구 제공!
Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint가 포함되어 있습니다
📦5가지 도구를 한 번에 이용 | 🔗 Microsoft Office와 무결점 통합 | ⚡ 즉시 저장 시간 절약 및 생산성 향상
최고의 오피스 생산성 도구
Kutools for Word - 100+ Word용 도구
- 🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / Super Polish / Super Translate / AI Redaction / AI Proofread
- 📘 문서 마스터하기: 페이지 분할 / 문서 병합 / PDF로 일괄 변환
- ✏ 텍스트 편집: 일괄 찾기 및 바꾸기 / 모든 그림 크기 조정
- 🧹 손쉬운 정리: 여분의 공백 제거 / 구역 나누기 제거
- ➕ 창의적 삽입: 천 단위 구분 기호 삽입 / 체크 박스 삽입 / QR 코드 생성
- 🌍 40개 이상의 언어 지원: Kutools는 여러분의 언어를 지원합니다 –40개 이상의 언어 가능!