Note: The other languages of the website are Google-translated. Back to English

 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

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


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:

doc chèn hình ảnh có cùng kích thước 1

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:

doc chèn hình ảnh có cùng kích thước 2

5. Nhấp chuột 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:

doc chèn hình ảnh có cùng kích thước 3

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:

doc chèn hình ảnh có cùng kích thước 4

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 Word được đề xuất

 

Kutools cho Word - Hơn 100 tính năng nâng cao cho Word, tiết kiệm 50% thời gian của bạn

  • Các hoạt động phức tạp và lặp đi lặp lại có thể được thực hiện xử lý một lần trong vài giây.
  • Chèn nhiều hình ảnh trên các thư mục vào tài liệu Word cùng một lúc.
  • Hợp nhất và kết hợp nhiều tệp Word trên các thư mục thành một với thứ tự mong muốn của bạn.
  • Chia tài liệu hiện tại thành các tài liệu riêng biệt theo tiêu đề, ngắt phần hoặc các tiêu chí khác.
  • Chuyển đổi tệp giữa Doc và Docx, Docx và PDF, bộ sưu tập các công cụ để chuyển đổi và lựa chọn phổ biến, v.v.
Nhận xét (4)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào
Tôi là Soda, tôi ở đây để nói điều đó, tôi thực sự học được rất nhiều điều với trang web của bạn và thông tin mà bạn cung cấp.
Cảm ơn vì điều đó :)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
cảm ơn sự giúp đỡ ... nó rất thú vị ... công việc lớn ... chúc may mắn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Molto bello e utile! Non mi è chiara solo un a cosa, nel Codice VBA con tiêu chí aumento / diminuisco lemensioni delle immagini? Tỷ lệ phần trăm / mối quan hệ? pixel? cm?
GRAZIE!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Grasselli
Kích thước đơn vị là ao trong mã VBA ở trên.
Cảm ơn bạn!
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL