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개 이상의 놀라운 기능으로 워드 경험을 한 단계 업그레이드하세요!
? Kutools AI 기능: AI 도우미 / 실시간 어시스턴트 / 슈퍼 폴리시 (형식 유지) / 슈퍼 번역 (형식 유지) / AI 수정 / AI 교정...
? 문서 마스터: 페이지 분할 / 문서 병합 / 다양한 형식으로 선택 영역 내보내기 (PDF/TXT/DOC/HTML...) / 일괄 PDF로 변환...
✏ 콘텐츠 편집: 여러 파일에서 일괄 찾기 및 바꾸기 / 모든 그림 크기 조정 / 표 행과 열 전환 / 표를 텍스트로 변환...
? 손쉬운 정리: 여분의 공백 / 구역 나누기 / 텍스트 상자 / 하이퍼링크 제거 / 더 많은 제거 도구는 제거 그룹으로 이동...
➕ 창의적인 삽입: 천 단위 구분 기호 삽입 / 체크 박스 / 라디오 버튼 / QR 코드 / 바코드 / 여러 그림 / 삽입 그룹에서 더 알아보기...
? 정확한 선택: 특정 페이지 / 표 / 도형 / 제목 단락 / 더 많은 선택 기능으로 탐색 강화...
⭐ 주요 개선사항: 원하는 위치로 이동 / 반복되는 텍스트 자동 삽입 / 문서 창 간 전환 / 11가지 변환 도구...
최고의 오피스 생산성 도구
Kutools for Word - 100+ Word용 도구
- ? Kutools AI 기능: AI 도우미 / 실시간 어시스턴트 / 슈퍼 폴리시 / 슈퍼 번역 / AI 수정 / AI 교정
- ? 문서 마스터: 페이지 분할 / 문서 병합 / 일괄 PDF로 변환
- ✏ 콘텐츠 편집: 일괄 찾기 및 바꾸기 / 모든 그림 크기 조정
- ? 손쉬운 정리: 여분의 공백 제거 / 구역 나누기 제거
- ➕ 창의적인 삽입: 천 단위 구분 기호 삽입 / 체크 박스 삽입 / QR 코드 생성