Thủ thuật chèn hình ảnh trực tuyến vào Excel bằng URL

Lưu ý: Bạn hãy đọc thật kỹ bài viết trước khi thực hiện nhé ! Nếu như trong quá trình sử dụng bạn gặp bất cứ lỗi gì, ví dụ như bị lỗi link download, blog load chậm, hay là không truy cập vào được một trang nào đó trên blog... thì bạn vui lòng thông báo với mình qua trang Liên Hệ nhé. Thanks !

Trong một số bài viết  về Excel lần trước thì mình đã hướng dẫn với các bạn cách chèn ảnh hàng loạt trong file Excel và cố định trong ô, cũng như cách chèn hình ảnh vào khung Comment bằng cách sử dụng code VBA rồi.


Và để giúp các bạn có thêm nhiều lựa chọn trong khi thao tác với hình ảnh trên file Excel thì ngày hôm nay mình sẽ tiếp tục chia sẻ với bạn một thủ thuật khá đặc biệt nữa.

Vâng ! Đó chính là cách chèn hình ảnh trực tuyến vào Excel thông qua URL bằng code VBA. Hỗ trợ các bạn trong việc lên danh sách, thống kê đơn hàng, hay quản lý websile có hình ảnh minh hoạ được dễ dàng và nhanh chóng hơn.

Đọc thêm:

Cách chèn hình ảnh trực tuyến hàng loạt vào Excel

+ Bước 1: Đầu tiên để chèn hình ảnh vào file Excel thông qua URL thì bạn cần sao chép các đường link (URL) của những hình ảnh mà bạn muốn chèn trước.

Cái này thì đơn giản rồi, bạn chỉ cần truy cập vào các trang web có chứa hình ảnh mà bạn muốn lấy => và click chuột phải vào hình ảnh => chọn Sao chép địa chỉ hình ảnh => Rồi Paste vào các ô tương ứng trên Excel.

chen-hinh-anh-truc-tuyen-vao-excel (1)

+ Bước 2: Sau khi đã Sao chép đủ các URL hình ảnh vào Excel => bây giờ bạn mở tab Developer ra => chọn Visual Basic.

Hoặc là bạn nhấn tổ hợp phím ALT + F11 để mở trình soạn code VBA trong Excel cho nhanh nhé.

chen-hinh-anh-truc-tuyen-vao-excel (2)

+ Bước 3: Tại hộp thoại Microsoft Visual Basic for Applications => bạn click vào tab Insert trên thanh Menu => và chọn Module.

chen-hinh-anh-truc-tuyen-vao-excel (3)

+ Bước 4: Rồi copy đoạn mã code sau…..

Sub URLPictureInsert()
‘Updateby Extendoffice 20161116
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range(“A2:A7“)
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
.Width = 100
.Height = 100
.Top = xRg.Top + (xRg.Height – .Height) / 2
.Left = xRg.Left + (xRg.Width – .Width) / 2
End With
lab:
Set Pshp = Nothing
Range(“A2“).Select
Next
Application.ScreenUpdating = True
End Sub

…. và Paste vào hộp thoại Module. Sau đó bạn hãy sửa các thông tin mà mình đã bôi đổ bên trên cho phù hợp với file Excel của bạn:

  • Ô các chứa URL Range (“A2:A7”)
  • Column+1 tức là ô sẽ xuất ảnh liền kề ô chứa URL.
  • A2 là ô đầu tiên có chứa URL

+ Bước 5: Rồi bạn hãy nhấn nút Run để thực thi.

Ngoài ra bạn có thể thay đổi chiều dài và chiều cao hiển thị hình ảnh tại phần Width = 100Height = 100, để lấy hình vuông.

Hoặc chỉnh sửa tại HeightWidth để chỉnh sửa chiều cao và rộng cho hình ảnh.

chen-hinh-anh-truc-tuyen-vao-excel (4)

+ Bước 6: Vâng, ngay sau khi nhấn Run thì bạn sẽ có được kết quả trong file Excel rồi..

Nhưng chưa xong đâu, bây giờ để làm gọn gàng file Excel hơn thì bạn có thể click chọn cột chứa URL => chọn Hide để ẩn, hoặc Delete để xoá khỏi bảng tính nhé.

chen-hinh-anh-truc-tuyen-vao-excel (5)

Cuối cùng ta có được kết quả như hình bên dưới…

chen-hinh-anh-truc-tuyen-vao-excel (6)

Lời kết

Okay vậy là xong, mình vừa hướng dẫn với các bạn một mẹo nhỏ trong việc chèn hình ảnh trực tuyến vào Excel bằng code VBA một cách nhanh chóng và đơn giản rồi nhé.


Với cách làm này thì bạn có thể dễ dàng chèn hình ảnh hàng loạt vào Excel mà không mất công tải hình ảnh về, cũng như không mất công Resize lại kích thước ảnh..

Đến đây thì bài hướng dẫn cách chèn hình ảnh bằng URL trên file Excel của mình cũng xin được tạm dừng. Hi vọng thủ thuật này sẽ hữu ích trong công việc của các bạn.

Chúc các bạn thành công !

CTV: Lương Trung – Blogchiasekienthuc.com

Note: Bài viết này hữu ích với bạn chứ ? Đừng quên đánh giá bài viết, like và chia sẻ cho bạn bè và người thân của bạn nhé !

Administrator: Kiên Nguyễn Blog

Có một câu nói của người Nhật mà mình rất thích đó là " Người khác làm được thì mình cũng làm được ". Chính vì thế mà hãy theo đuổi đam mê, thành công sẽ theo đuổi bạn ! Nếu như bạn đang gặp khó khăn và cần sự trợ giúp thì hãy comment phía bên dưới mỗi bài viết để nhận được sự hỗ trợ từ cộng đồng Blog Chia Sẻ Kiến Thức nhé.

Một vài lưu ý trước khi comment :

Thư điện tử của bạn sẽ không được hiển thị công khai. Các trường bắt buộc được đánh dấu *
Tất cả các comment của các bạn sẽ được giải đáp trong vòng 48h (thường vào buổi tối)!
Không được sử dụng từ khóa trong ô 'Name', bạn hãy dùng tên thật hoặc Nickname của bạn !
Không dẫn link sang trang web/blog khác. Xem quy định comment tại đây. Thank All!

Leave a Reply

Your email address will not be published. Required fields are marked *

Secured By miniOrange