Hướng dẫn insert picture from url excel - chèn ảnh từ url excel

Chuyển đổi URL hình ảnh thành hình ảnh thực tế bằng mã VBA

Mã VBA sau đây có thể giúp bạn nhanh chóng trích xuất các hình ảnh thực tế từ địa chỉ URL hình ảnh, vui lòng làm như sau:

1. Giữ các phím ALT + F11 để mở cửa sổ Microsoft Visual Basic cho các ứng dụng.. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

2. Nhấp vào Chèn> Mô -đun và Dán mã sau vào cửa sổ Mô -đun.. Click Insert > Module, and paste the following code in the Module Window.

Mã VBA: Chuyển đổi URL hình ảnh thành hình ảnh thực tế:

Sub URLPictureInsert()
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
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
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.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

Notes: 

• 1. Trong mã trên, A2: A5 là phạm vi của các ô chứa địa chỉ URL bạn muốn trích xuất hình ảnh, bạn nên thay đổi các tham chiếu ô theo nhu cầu của bạn.A2:A5 is the range of cells which contains the URL addresses you want to extract the images, you should change the cell references to your need.
• 2. Với mã này, bạn không thể chỉ định kích thước của hình ảnh được trích xuất theo nhu cầu của bạn.
• 3. Mã trên chỉ có thể trích xuất các hình ảnh Actural vào các ô bên cạnh cột URL của bạn, bạn không thể chỉ định ô để xuất hình ảnh.
• 4. Bạn nên có một số kiến ​​thức cơ bản về mã, nếu bất kỳ ký tự nào bị bỏ lỡ hoặc không chính xác, mã sẽ không được thực thi thành công.

3. Sau đó nhấn phím F5 để chạy mã này và tất cả các hình ảnh tương ứng đã được trích xuất từ ​​URL hình ảnh vào cột liền kề cùng một lúc và hình ảnh sẽ được đặt ở giữa các ô cụ thể của bạn, xem ảnh chụp màn hình:. Then press F5 key to run this code, and all corresponding pictures have been extracted from the image URLs to the adjacent column at once, and the images will be placed at the center of your specific cells, see screenshot:

Chuyển đổi URL hình ảnh thành hình ảnh thực tế với Kutools cho Excel

Nếu bạn không quen thuộc với mã VBA hoặc muốn khắc phục giới hạn của mã trên, Kutools cho tính năng Path Path (URL) của Excel Chèn Path Máy tính như dưới đây ảnh chụp màn hình được hiển thị. & NBSP; Bấm để tải xuống Kutools cho Excel!Kutools for Excel's Insert Pictures form Path(URL) feature can help you to quickly insert the cprresponding images based on the URL addresses or specific path in your computer as below screenshot shown. Click to download Kutools for Excel!

Lưu ý: Để áp dụng đường dẫn mẫu chèn hình ảnh (URL) này, trước tiên, bạn nên tải xuống Kutools cho Excel, sau đó áp dụng tính năng nhanh chóng và dễ dàng.:To apply this Insert Pictures form Path(URL), firstly, you should download the Kutools for Excel, and then apply the feature quickly and easily.

Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau:Kutools for Excel, please do as this:

1. Nhấp vào Kutools> Chèn> Chèn đường dẫn mẫu hình ảnh (URL), trong hộp thoại bật ra, vui lòng đặt các hoạt động sau, xem ảnh chụp màn hình:. Click Kutools > Insert > Insert Pictures form Path(URL), in the popped out dialog box, please set the following operations, see screenshots:

2. Sau đó, nhấp vào nút OK và hình ảnh sẽ được trích xuất từ ​​URL, xem ảnh chụp màn hình:. Then, click Ok button, and the pictures will be extracted from the URLs, see screenshot:

Bấm để tải xuống và thử nghiệm miễn phí Kutools cho Excel ngay bây giờ!

Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng năng suất của bạn lên 80%

• Tái sử dụng: nhanh chóng chèn các công thức phức tạp, biểu đồ & nbsp; và bất cứ điều gì bạn đã sử dụng trước đây; Mã hóa các ô bằng mật khẩu; Tạo danh sách gửi thư và gửi email ...: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
• Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Đọc bố cục (dễ dàng đọc và chỉnh sửa số lượng lớn các ô); Dán vào phạm vi được lọc ... (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Hợp nhất các ô/hàng/cột mà không mất dữ liệu; Chia nội dung tế bào; Kết hợp các hàng/cột trùng lặp ... Ngăn chặn các ô trùng lặp; So sánh phạm vi ... without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
• Chọn các hàng trùng lặp hoặc độc đáo; Chọn các hàng trống (tất cả các ô trống); Siêu tìm và mờ tìm trong nhiều sách bài tập; Chọn ngẫu nhiên ... Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Sao chép chính xác nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tham chiếu đến nhiều tờ; Chèn đạn, hộp kiểm và nhiều hơn nữa ... Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Trích xuất văn bản, thêm văn bản, xóa theo vị trí, loại bỏ không gian; Tạo và in các phần phụ phân trang; Chuyển đổi giữa nội dung ô và bình luận ..., Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
• Siêu bộ lọc (lưu và áp dụng các sơ đồ lọc cho các bảng khác); Sắp xếp nâng cao theo tháng/tuần/ngày, tần suất và nhiều hơn nữa; Bộ lọc đặc biệt của in đậm, nghiêng ... (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Kết hợp sách bài tập và bảng tính; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều tờ; Batch Chuyển đổi XLS, XLSX và PDF ...; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office/Excel 2007-2019 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ các tính năng dùng thử miễn phí 30 ngày. Đảm bảo hoàn lại tiền 60 ngày.. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.

Tab Office mang giao diện được lập bảng đến văn phòng và làm cho công việc của bạn dễ dàng hơn nhiều

• Kích hoạt chỉnh sửa và đọc theo bảng trong Word, Excel, PowerPoint, Nhà xuất bản, Truy cập, Visio và Dự án., Publisher, Access, Visio and Project.
• Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
• Tăng năng suất của bạn lên 50%và giảm hàng trăm lần nhấp chuột cho bạn mỗi ngày!

Comments(61) (61)

Chưa có xếp hạng nào. Hãy là người đầu tiên xếp hạng!