Làm thế nào để chèn nhiều ảnh có cùng kích thước trong tài liệu Word?
Thông thường, bạn có thể chèn nhiều hình ảnh cùng lúc vào tài liệu Word với kích thước ban đầu của chúng. Đôi khi, bạn cần sắp xếp các hình ảnh này theo cùng một kích thước khi chèn. Bài viết này, tôi sẽ nói về cách chèn nhiều hình ảnh có cùng kích thước trong tài liệu Word.
Chèn nhiều ảnh có cùng kích thước vào tài liệu Word bằng mã VBA
Chèn nhiều ảnh có cùng kích thước vào tài liệu Word bằng mã VBA
Mã vba sau có thể giúp bạn chèn nhiều ảnh và thay đổi kích thước chúng thành kích thước đã chỉ định của bạn cùng một lúc, vui lòng thực hiện như sau:
1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.
Mã VBA: chèn nhiều hình ảnh có cùng kích thước:
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. Và sau đó, nhấn F5 phím để chạy mã này, một Xem cửa sổ hiển thị, vui lòng chọn thư mục chứa hình ảnh bạn muốn chèn, xem ảnh chụp màn hình:
4. Sau đó nhấn vào OK và một hộp nhắc nhở xuất hiện để nhắc bạn nếu bạn muốn thay đổi kích thước ảnh, hãy xem ảnh chụp màn hình:
5. Nhấp chuột Cóvà nhập số kích thước của chiều cao và chiều rộng được phân tách bằng dấu phẩy vào hộp văn bản, xem ảnh chụp màn hình:
6. Và sau đó nhấp vào OK, tất cả các hình ảnh được chèn đã được sắp xếp lại theo cùng một kích thước, xem ảnh chụp màn hình:
Chú thích: kích thước đơn vị là ao trong mã VBA.
Thay đổi kích thước tất cả các hình ảnh thành cùng một kích thước dựa trên một hình ảnh cụ thể với Kutools cho Word
Nếu có nhiều ảnh trong tài liệu Word của bạn, với Kutools cho Word'S Thay đổi kích thước hình ảnh tiện ích, bạn có thể nhanh chóng thay đổi kích thước tất cả các hình ảnh giống như hình ảnh cụ thể.
| Kutools cho Word : với hơn 100 phần bổ trợ Word tiện dụng, dùng thử miễn phí không giới hạn trong 60 ngày. |
Sau khi cài đặt Kutools cho Word, hãy làm như sau:
1. Điều chỉnh một hình ảnh theo kích thước bạn muốn, sau đó chọn nó, sau đó bấm Kutools Plus > Thay đổi kích thước > Thay đổi kích thước hình ảnh với lựa chọn, xem ảnh chụp màn hình:
2. Và tất cả hình ảnh trong tài liệu từ này đã được thay đổi kích thước giống như hình đã chọn ngay lập tức, xem ảnh chụp màn hình:
Nhấp để tải xuống Kutools cho Word và dùng thử miễn phí ngay bây giờ!
Công cụ năng suất văn phòng tốt nhất
Kutools cho Word - Nâng cao trải nghiệm sử dụng từ của bạn với Over 100 Các tính năng đáng chú ý!
🤖 Trợ lý AI của Kutools: Biến đổi bài viết của bạn bằng AI - Tạo nội dung / Viết lại văn bản / Tóm tắt tài liệu / Hỏi thông tin dựa trên tài liệu, tất cả đều có trong Word
📘 Làm chủ tài liệu: Chia trang / Hợp nhất tài liệu / Lựa chọn xuất khẩu ở nhiều định dạng khác nhau (PDF/TXT/DOC/HTML...) / Chuyển đổi hàng loạt sang PDF / Xuất trang dưới dạng hình ảnh / In nhiều tập tin cùng một lúchữu ích. Cảm ơn !
✏ Chỉnh sửa nội dung: Tìm và thay thế hàng loạt trên nhiều tệp / Thay đổi kích thước tất cả hình ảnh / Hoán đổi hàng và cột của bảng / Chuyển bảng thành văn bảnhữu ích. Cảm ơn !
🧹 Dễ dàng làm sạch: Quét đi Không gian bổ sung / Phần ngắt / Tất cả các tiêu đề / Hộp văn bản / Các siêu liên kết / Để biết thêm các công cụ xóa, hãy truy cập Xóa nhómhữu ích. Cảm ơn !
➕ Phụ trang quảng cáo: Chèn Ngàn dấu phân cách / Hộp kiểm tra / Nút radio / Mã QR / Mã vạch / Bảng đường chéo / Chú thích phương trình / Hình ảnh Caption / Bảng chú thích / Nhiều Hình Ảnh / Khám phá thêm trong Chèn nhómhữu ích. Cảm ơn !
???? Lựa chọn chính xác: Xác định trang cụ thể / bảng / hình dạng / đoạn văn tiêu đề / Tăng cường điều hướng với chi tiết Chọn tính nănghữu ích. Cảm ơn !
⭐ Cải tiến sao: Điều hướng nhanh chóng đến bất kỳ vị trí nào / tự động chèn văn bản lặp đi lặp lại / chuyển đổi liền mạch giữa các cửa sổ tài liệu / 11 công cụ chuyển đổihữu ích. Cảm ơn !
