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

Làm cách nào để thay đổi kích thước tất cả / nhiều hình ảnh trong Word?

Khi chúng tôi sao chép hoặc nhập hình ảnh từ Internet hoặc các tệp khác, kích thước của hình ảnh có thể khác nhau. Mọi người đều biết cách thay đổi kích thước của từng bức ảnh, nhưng nếu chúng ta muốn thay đổi kích thước chúng thành cùng một kích thước cùng một lúc, chúng ta có thể làm thế nào? Hướng dẫn này sẽ chỉ cho bạn một số phương pháp thay đổi kích thước hình ảnh.

Thay đổi kích thước hình ảnh theo cách thủ công trong Word

Thay đổi kích thước hình ảnh bằng VBA

Thay đổi kích thước nhiều hình ảnh cùng một lúc với Kutools cho Word


Thay đổi kích thước hình ảnh theo cách thủ công trong Word

1. Để hiển thị các chốt định cỡ của hình ảnh bằng cách nhấp vào hình ảnh;

2. Đặt con trỏ trên một trong các chốt định cỡ của ảnh.

3. Kéo tay cầm định cỡ cho đến khi cỡ ảnh phù hợp với nhu cầu của bạn. Xem ảnh chụp màn hình:

doc điều chỉnh hình ảnh 1

Chú thích: Với phương pháp này, bạn không thể thay đổi kích thước nhiều ảnh cùng một lúc. Bạn cần thay đổi kích thước từng ảnh một cho đến khi tất cả các ảnh đều được thay đổi kích thước.


Thay đổi kích thước hình ảnh bằng VBA

Với mã VBA sau, bạn có thể thay đổi kích thước ảnh thành kích thước lý tưởng của mình. Bạn có thể thực hiện nó như sau :

Trong ví dụ này, chúng tôi thay đổi kích thước hình ảnh thành chiều cao 1.78 inch và chiều rộng 3.17 inch.

1. Vui lòng chọn một hình ảnh bạn muốn thay đổi kích thước;

2. nhấn Alt + F11 để mở Microsoft Visual Basic cho các ứng dụng cửa sổ;

3. Nhấp chuột Mô-đun từ Chèn , sao chép và dán mã VBA sau vào Mô-đun cửa sổ;

Mã VBA: Thay đổi kích thước một hình ảnh thành kích thước cụ thể:

Sub ResizePics()
Dim shp As Word.Shape
Dim ishp As Word.InlineShape
If Word.Selection.Type <> wdSelectionInlineShape And _
Word.Selection.Type <> wdSelectionShape Then
Exit Sub
End If
If Word.Selection.Type = wdSelectionInlineShape Then
Set ishp = Word.Selection.Range.InlineShapes(1)
ishp.LockAspectRatio = False
ishp.Height = InchesToPoints(1.78)
ishp.Width = InchesToPoints(3.17)
Else
If Word.Selection.Type = wdSelectionShape Then
Set shp = Word.Selection.ShapeRange(1)
shp.LockAspectRatio = False
shp.Height = InchesToPoints(1.78)
shp.Width = InchesToPoints(3.17)
End If
End If
End Sub

4. Nhấp chuột chạy nút hoặc F5 để chạy mã VBA và hình ảnh được chọn đã được thay đổi kích thước theo kích thước bạn cần.

Chú thích: Trong đoạn mã trên,  Trong shp.Height = InchesToPoints (1.78) shp.Width = InchesToPoints (3.17) là chiều cao và chiều rộng của hình ảnh, bạn có thể thay đổi kích thước để đáp ứng nhu cầu của bạn.

Với mã VBA này, bạn cũng không thể thay đổi kích thước tất cả hoặc nhiều ảnh cùng một lúc. Bạn cần phải quay lại giữa tài liệu Word và Microsoft Visual Basic cho các ứng dụng cửa sổ để chọn hình ảnh và áp dụng mã. Như vậy là quá tốn thời gian.


Thay đổi kích thước hình ảnh với Kutools cho Word

Với Kutools cho Word 's Thay đổi kích thước hình ảnh tiện ích, bạn có thể loại bỏ những thao tác phiền phức và tốn thời gian, đồng thời nhanh chóng thay đổi kích thước tất cả hình ảnh từ tài liệu của bạn.

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. 

1. Vui lòng áp dụng tiện ích này bằng cách nhấp vào Kutools Plus > Thay đổi kích thước. Xem ảnh chụp màn hình:

2. Nếu bạn muốn thay đổi kích thước tất cả các hình ảnh thành một tỷ lệ nhất định so với kích thước ban đầu của chúng, vui lòng chọn một trong sáu phần trăm từ danh sách thả xuống. Ví dụ: nếu bạn muốn thay đổi kích thước tất cả các hình ảnh thành 50% kích thước ban đầu của chúng, vui lòng chọn 50%. Sau khi nhấp 25%, bạn sẽ thấy tất cả các hình ảnh đã được tăng kích thước đến 50%. Xem ảnh chụp màn hình:

doc điều chỉnh hình ảnh 3

Nếu bạn muốn điều chỉnh tất cả hình ảnh về cùng kích thước với hình ảnh đã chọn, vui lòng chọn hình ảnh làm kích thước mô hình, sau đó nhấp vào Kutools Plus > Thay đổi kích thước > Thay đổi kích thước hình ảnh với lựa chọnvà tất cả hình ảnh sẽ được thay đổi kích thước theo cùng một kích thước dựa trên hình đã chọn, xem ảnh chụp màn hình:

doc điều chỉnh hình ảnh 4

Để biết thêm thông tin về Kutools cho Word'S Thay đổi kích thước hình ảnh tiện ích, vui lòng nhấp vào ở đây.

Nhấp để tải xuống Kutools cho Word và dùng thử miễn phí ngay bây giờ!


Demo: Thay đổi kích thước tất cả các hình ảnh cùng một lúc trong Word

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. Tải xuống 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 (7)
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
tiết kiệm tiền của bạn và chạy macro này: Credit to Dave Sub resizeimages () Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes (i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With Kết thúc Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
tiết kiệm tiền của bạn và chạy macro này: Credit to Dave Sub resizeimages () Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.C ount With .InlineShapes (i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End Với End Sub Thông minh!!! Bạn đã tiết kiệm tiền và thời gian của tôi. Cám ơn rất nhiều!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đặt mã này ở đâ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ó ai biết nếu tính năng giữ chỗ / ống nhỏ giọt / định cỡ hình ảnh tự động có sẵn trong Windows 365 không? Không biết phải xem ở đâu hoặc tìm trợ giúp về vấn đề này vì trợ giúp trò chuyện của Microsoft thật vô ích. Bất kỳ lời khuyên sẽ được đánh giá rất cao.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi cần thay đổi kích thước tất cả các hình ảnh trong tài liệu word thành cùng một chiều rộng nhưng không làm biến dạng hình ảnh. vì vậy hãy chia tỷ lệ chúng thành cùng một chiều rộng. Điều này có thể thực hiện được thông qua một macro không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nếu bạn lưu tài liệu của mình dưới dạng .docx, thì bạn sẽ có thể mở nó dưới dạng zip-archive. Sẽ có thư mục media với tất cả các hình ảnh (của tôi có hình ảnh PNG). Sau đó, bạn có thể sử dụng các chương trình như IrfanView, XnViewMP, FastStone Viewer để thực hiện chuyển đổi hàng loạt như thay đổi kích thước, giảm độ sâu màu, v.v. Đóng gói hình ảnh của bạn lại thành zip và đổi tên nó thành docx. Ví dụ: trong docx đầy ảnh chụp màn hình của tôi, tôi cần giảm số màu xuống 8, đủ cho mục đích tài liệu. Sau khi xử lý tài liệu 10MB của tôi đã trở thành tài liệu 1.8 MB, do đó, khoản tiết kiệm có thể đáng kể. Luôn lưu docx ban đầu của bạn trong trường hợp bạn muốn khôi phục ảnh sau quá trình xuống cấp / xử lý, v.v.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã lãng phí 3 giờ đồng hồ trở lên để cố gắng làm cho các macro VBA này hoạt động. Đã tặng và thử Kutools hoạt động tuyệt vời! Hãy mua nó ngay lập tức vì nó rất đáng giá 49 đô la!
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