Trong bài viết này, chúng tôi sẽ giới thiệu cho bạn 3 cách để thay đổi ảnh nội tuyến thành ảnh nổi trong tài liệu Word của bạn.
Như bạn có thể đã biết, bất cứ khi nào chúng ta chèn ảnh vào tài liệu Word, nó sẽ mặc định có kiểu gói “Tương ứng với văn bản”. Theo cách này, hình ảnh được coi là một ký tự lớn, khiến chúng ta khó di chuyển nó xung quanh chỉ bằng cách nhấp và kéo. Theo đó, chúng ta cần chuyển những hình ảnh nội tuyến này thành hình ảnh nổi để dễ dàng điều chỉnh vị trí của chúng.
Như mọi khi, chúng tôi có 3 phương pháp để bạn chọn.
Phương pháp 1: Thay đổi kiểu gói của một ảnh theo cách thủ công
- Đầu tiên, nhấp chuột phải vào ảnh và di chuyển con trỏ qua tùy chọn “Wrap Text” trên menu ngữ cảnh.
- Tiếp theo, chọn bất kỳ kiểu nào khác ngoài kiểu “Tương ứng với văn bản”. Sau đó, bạn sẽ có thể kéo hình ảnh đến bất cứ nơi nào bạn muốn.
Phương pháp 2: Thay đổi kiểu mặc định
Như đã đề cập ở trên, kiểu gói mặc định được đặt là “Dòng với văn bản”. Tuy nhiên, bạn có thể sửa đổi cấu hình trước khi chèn ảnh bằng các bước sau.
- Trước tiên, hãy nhấp vào tab “Tệp”, sau đó nhấp vào lệnh “Tùy chọn” để mở hộp thoại “Tùy chọn Word”.
- Tiếp theo, nhấp vào “Nâng cao” ở cột bên trái.
- Cuộn đến phần “Cắt, sao chép và dán” và tìm tùy chọn “Chèn/dán ảnh dưới dạng”.
- Nhấp vào nút thả xuống để chọn kiểu gói.
- Cuối cùng nhưng không kém phần quan trọng, hãy nhấp vào “OK” để lưu cài đặt mới.
Tất cả các hình ảnh được chèn trong tương lai sẽ có kiểu gói nổi.
Phương pháp 3: Thay đổi kiểu gói nhiều ảnh qua VBA
- Trước tiên, hãy nhấn tổ hợp phím “Alt + F11” để mở trình soạn thảo VBA.
- Tiếp theo, đi đến dự án “Bình thường” bằng cách nhấp vào “Bình thường”.
- Sau đó nhấp vào tab “Chèn” trên thanh menu và chọn “Mô-đun” trên menu thả xuống.
- Bây giờ hãy nhấp đúp vào mô-đun mới để hiển thị không gian mã hóa ở bên phải trình chỉnh sửa.
- Dán macro dưới đây:
Sub ChangeInLineWithTextPicToFloatingPic()
Dim objDoc As Document
Dim objInLineShape As InlineShape
Dim objShape As Shape
Set objDoc = ActiveDocument
With objDoc
For Each objInLineShape In .InlineShapes
objInLineShape.ConvertToShape
Next objInLineShape
For Each objShape In .Shapes
objShape.Select
Selection.ShapeRange.WrapFormat.Type = wdWrapBehind
Next objShape
End With
End Sub
- Cuối cùng, nhấp vào “Chạy” hoặc nhấn “F5”.
Lưu ý:
Macro này sẽ thay đổi tất cả ảnh nội tuyến trong tài liệu đang hoạt động thành ảnh nổi và đặt chúng theo kiểu “Đằng sau Văn bản”. Trong trường hợp bạn cần định dạng chúng theo kiểu khác, chỉ cần thay đổi hằng số trong dòng mã “Selection.ShapeRange.WrapFormat.Type = wdWrapBehind”. Để liệt kê chi tiết, bạn có thể truy cập liên kết này: https://docs.microsoft.com/en-us/office/vba/api/Word.WdWrapType
Vấn đề sao lưu
Như đã nói, một cân phòng bệnh có giá trị một cân chữa bệnh. Mặc dù chúng ta có thể tìm cách cứu các tập tin sau từ tham nhũngNhưng dường như lúc nào cũng quá muộn. Giải pháp lý tưởng nhất, dĩ nhiên, là thực hiện các biện pháp phòng ngừa, chẳng hạn như sao lưu dữ liệu. Khi có bản sao lưu trong tay, bạn sẽ cảm thấy thoải mái hơn khi thực hiện các thao tác mà không lo mất dữ liệu.
Giới thiệu tác giả:
Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm xls hỏng và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm