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

Làm thế nào để chuyển đổi URL hình ảnh thành hình ảnh thực tế trong Excel?

doc url thành img 1

Nếu bạn có danh sách các địa chỉ URL hình ảnh trong cột A và bây giờ, bạn muốn tải xuống các hình ảnh tương ứng từ các URL và hiển thị chúng vào cột B liền kề như ảnh chụp màn hình bên trái. Trong Excel, làm cách nào bạn có thể trích xuất hình ảnh thực tế từ URL hình ảnh một cách nhanh chóng và dễ dàng?

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

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


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

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

1. Giữ ALT + F11 để mở cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

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

Ghi chú: 

  • 1. Trong đoạn mã trên, A2: A5 là dải ô chứa địa chỉ URL bạn muốn trích xuất hình ảnh, bạn nên thay đổi tham chiếu ô theo nhu cầu của mình.
  • 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. Đoạn mã trên chỉ có thể trích xuất các hình ảnh thực tế 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ị thiếu hoặc sai, mã sẽ không được thực hiện thành công.

3. Sau đó nhấn 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 sang cột liền kề cùng một lúc và các hình ảnh sẽ được đặt ở giữa các ô cụ thể của bạn, xem ảnh chụp màn hình:

doc url thành img 2


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 với mã VBA hoặc muốn khắc phục hạn chế của mã trên, Kutools cho Excel's Chèn hình ảnh biểu mẫu Đường dẫn (URL) tính năng này có thể giúp bạn nhanh chóng chèn các hình ảnh tương ứng dựa trên địa chỉ URL hoặc đường dẫn cụ thể trong máy tính của bạn như hình minh họa bên dưới. Nhấp để tải xuống Kutools cho Excel!

Chú thích:Để áp dụng điều này Chèn hình ảnh biểu mẫu Đường dẫn (URL), trước tiên, bạn nên tải xuống Kutools cho Excel, và sau đó áp dụng tính năng một cách nhanh chóng và dễ dàng.

Sau khi cài đặt Kutools cho Excel, hãy làm như sau:

1. Nhấp chuột Kutools > Chèn > Chèn hình ảnh biểu mẫu Đường dẫn (URL), trong hộp thoại hiện ra, vui lòng đặt các thao tác sau, xem ảnh chụp màn hình:

doc url thành img 3 doc url thành img 4

2. Sau đó nhấn vào Ok và các hình ảnh sẽ được trích xuất từ ​​các URL, hãy xem ảnh chụp màn hình:

doc url thành img 1

Nhấp để Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!


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 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • 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); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; 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 các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; 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 trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 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 đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và 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 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (61)
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
Bạn có thể thay đổi "tiếp tục lỗi tiếp theo" thành một cái gì đó sẽ đợi cho đến khi Google Chrome có thời gian để mở ảnh không? Tôi đã thử mã này và nó hoạt động, nhưng một số hình ảnh đang được dán một số hàng bên dưới vị trí cần thiết, vì vậy tôi giả định rằng câu lệnh "on error" không cung cấp đủ thời gian cho nó. Nếu bạn nghĩ đó có thể là điều gì đó khác hoặc có bất kỳ đề xuất nào khác, tôi sẵn sàng lắng nghe. Thanks!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đây là một sự trợ giúp tuyệt vời, ty 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 đã thử công thức, nhưng nó có vẻ không hiệu quả. Nó có phải làm gì đó với phiên bản Excel không (mặc dù vậy, tôi có phiên bản mới nhất) Tôi đánh giá cao câu trả lời của bạn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn đang nhận được vấn đề gì?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Lỗi thời gian chạy '1004': Không thể lấy thuộc tính chèn của lớp Ảnh
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này cũng không hiệu quả với tôi. Tôi có Excel 2013 và tôi chỉ cần một đoạn mã đơn giản sẽ chèn hình ảnh bên cạnh các url nằm trong một cột trong bảng tính của tôi. Mọi giải pháp tôi đã thử có sẵn qua Google Tìm kiếm hoặc YouTube đều gây ra lỗi chèn giá trị ảnh. Tôi đang làm gì sai ??? Các url được cho là KHÔNG phải là siêu liên kết? Chúng có ĐƯỢC BỔ SUNG để trở thành siêu liên kết không? Tôi có phải xác định phạm vi cột mà đầu ra đi đến không? Tôi không thể tìm thấy một bộ hướng dẫn đơn giản ở bất kỳ đâu, vui lòng giúp đỡ. Khi tôi sử dụng mã CỦA BẠN, tôi nhận được lớp "Không thể lấy thuộc tính chèn của lớp Ảnh":
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 đã gặp vấn đề tương tự và hóa ra bạn cần kiểm tra url của mình. nếu đó là HTTPS có nghĩa là nó là một kết nối an toàn và VBA sẽ không thể giải nén nó. nếu nó là một HTTP thông thường thì không có vấn đề gì
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 bạn. Nó hoạt động với tôi Làm cách nào để thay đổi / sửa đổi cú pháp để hiển thị url hình ảnh được bảo vệ bằng mật khẩu
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ất cả mọi người, tôi đã sửa đổi những mã này để nó hoạt động cho phạm vi đã chọn thay vì nhập phạm vi cụ thể, Tuy nhiên, bất cứ ai có thể gợi ý cho tôi cách sửa đổi những mã này để có hình ảnh ở trung tâm của ô. Hiện hình ảnh đang hiển thị ở góc trên cùng bên trái

URL phụPictureInsert ()

Làm mờ Pshp như hình dạng

Dim rCell As Range

On Error Resume Next

Application.ScreenUpdating = Sai

Đối với mỗi rCell trong lựa chọn

filenam = rCell ActiveSheet.Pictures.Insert (filenam) .Select

Đặt Pshp = Selection.ShapeRange.Item (1)

Với Pshp

.LockAspectRatio = msoTrue

.Chiều rộng = 100

.Chiều cao = 100

.Cắt

Kết thúc với

Các ô (rCell.Row, rCell.Column + 1) .PasteSpecial

Ứng dụng tiếp theo.ScreenUpdating = True

End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
KINH NGẠC! điều này thật tuyệt! tôi đã có 350 hàng siêu liên kết và chỉ mất 5 phút để kéo tất cả các hình ảnh!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Này, có ai có thể đính kèm một liên kết của trang tính excel với mã macro đã bật nó để tôi có thể tải xuống và thử nghiệm không, tôi mới sử dụng VB và tôi rất cần phải làm điều này.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đối với tôi, tất cả những gì hiển thị trong mỗi ô là tên của phương thức. Tất cả đều nói "Sub URLPictureInsert ()"
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hoạt động hoàn hảo nhưng bất cứ ai có thể giúp tôi thêm một cái gì đó để kiểm tra xem hình ảnh có tồn tại hay không và nếu nó không có, hãy đăng một văn bản trong ô như "Hình ảnh không khả dụng" ??
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Trong Excel 2010, tôi phải thêm các khai báo này

Dim Rng Như Phạm vi
Làm mờ ô dưới dạng phạm vi
Tên tệp mờ dưới dạng chuỗi
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Để điều này hoạt động trong Excel 2010, tôi phải thêm các khai báo này.


Dim Rng Như Phạm vi
Làm mờ ô dưới dạng phạm vi
Tên tệp mờ dưới dạng chuỗi
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có cách nào để chạy điều này để nó nằm trên một hàng thay vì một cột? Tôi đã thử chỉ đơn giản là thay đổi phạm vi và vị trí cuối cùng của hình ảnh nhưng nó chỉ tạo ra ô đầu tiên.
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, Taylor,
Có thể là mã VBA sau đây có thể giúp bạn trích xuất các hình ảnh thực trong một URL hàng:


URL phụPictureInsert ()
Làm mờ Pshp như hình dạng
On Error Resume Next
Application.ScreenUpdating = Sai
Đặt Rng = ActiveSheet.Range ("A1: E1")
Đối với mỗi ô trong Rng
filenam = ô
ActiveSheet.Pictures.Insert (filenam) .Select
Đặt Pshp = Selection.ShapeRange.Item (1)
Với Pshp
.LockAspectRatio = msoTrue
.Chiều rộng = 100
.Chiều cao = 100
.Cắt
Kết thúc với
Các ô (ô.Row + 1, ô.Column) .PasteSpecial
Sau
Application.ScreenUpdating = True
End Sub

Hãy thử nó, hy vọng nó có thể giúp bạn. Cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào các cậu,
Rất thích nó hoạt động nhưng khi tôi sao chép nó trong VBA và nhấp vào chạy, tôi chỉ nhận được văn bản này:
URL phụPictureInsert ()
Bạn có thể vui lòng giúp tôi để có được hình ảnh thu nhỏ?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn,
Khi áp dụng mã, bạn có thể thay đổi kích thước chiều rộng và chiều cao của hình ảnh để phù hợp với các ô của bạn.
Cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hoạt động tuyệt vời để kéo hình ảnh, nhưng chúng được đặt ngẫu nhiên và không nằm trong các ô mong đợi ... Excel 2016 từ Office365 ...
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, DKcrm,
Cảm ơn bạn đã bình luận, code trong bài viết này đã được cập nhật, bạn hãy thử cái mới, hy vọng nó có thể giúp ích cho bạn!
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 cho bài viết của bạn. Làm thế nào tôi có thể lấy các bức ảnh ở trung tâm của phòng giam. Với các mã hiện tại, hình ảnh sẽ hiển thị ở góc trên cùng bên trái
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, Khan,
mã VBA sau đây có thể giúp bạn giải nén hình ảnh và đặt chúng vào trung tâm của các ô, hãy thử nó.

URL phụPictureInsert ()
Làm mờ Pshp như hình dạng
Dim xRg theo phạm vi
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = Sai
Đặt Rng = ActiveSheet.Range ("A2: A6")
Đối với mỗi ô trong Rng
filenam = ô
ActiveSheet.Pictures.Insert (filenam) .Select
Đặt Pshp = Selection.ShapeRange.Item (1)
Nếu Pshp không có gì thì GoTo lab
xCol = ô. Cột + 1
Đặt xRg = Cells (cell.Row, xCol)
Với Pshp
.LockAspectRatio = msoFalse
Nếu .Width> xRg.Width Thì .Width = xRg.Width * 2/3
Nếu .Height> xRg.Height thì .Height = xRg.Height * 2/3
.Top = xRg.Top + (xRg.Height - .Height)/2
.Left = xRg.Left + (xRg.Width - .Width)/2
Kết thúc với
phòng thí nghiệm:
Đặt Pshp = Không có gì
Phạm vi ("A2"). Chọn
Sau
Application.ScreenUpdating = True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Không thể làm cho điều này hoạt động. Bạn có thể hiển thị mã đã hoàn thành cho yêu cầu này 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
Chào bạn,
Tôi muốn tải xuống các hình ảnh từ URL của (Cột A) trong một thư mục cụ thể và đổi tên các hình ảnh tương tự bằng mã / số có trong Cột B.
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, Vipin,
Để lưu hình ảnh của URL vào một thư mục và đổi tên chúng bằng tên mới trong Cột B, mã VBA sau có thể giúp bạn:

Lưu ý: Cột A chứa các địa chỉ URL và Cột B có các tên mới.

#If VBA7 Sau đó
Khai báo riêng tư Hàm PtrSafe URLDownloadToFile Lib "urlmon" Bí danh "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long)
#Khác
Khai báo riêng chức năng URLDownloadToFile Lib "urlmon" Bí danh "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#End Nếu
URL phụPictureInsert ()
Dim I dưới dạng số nguyên
Làm mờ xStr dưới dạng chuỗi
Làm mờ xFd dưới dạng FileDialog
Dim xArr, xFdItem dưới dạng biến thể
Application.ScreenUpdating = Sai
Đặt xFd = Application.FileDialog (msoFileDialogFolderPicker)
Nếu xFd.Show = -1 Thì
xFdItem = xFd.SelectedItems.Item (1)
xArr = Range ("A2: B5"). Giá trị
Đối với I = 1 Đến UBound (xArr)
Nếu xArr (I, 1) <> "" Thì
xStr = Mid (xArr (I, 1), InStrRev (xArr (I, 1), "."), Len (xArr (I, 1)))
URLDownloadToFile 0, xArr (I, 1), xFdItem & "\" & xArr (I, 2) & I & xStr, 0, 0
Cuối Nếu
Sau
Cuối Nếu
Application.ScreenUpdating = True
End Sub

Hãy thử nó, hy vọng điều này có thể giúp bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
phần đổi tên ở cột B tải lên thư mục nhưng lại thêm số đếm bên cạnh tên ảnh, làm cách nào để tôi có thể bỏ qua phần đó?

Cảm ơn bạn
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, David,
Có thể đoạn mã vba dưới đây có thể giúp bạn giải nén các hình ảnh và đổi tên chúng kèm theo số phụ tố, hãy thử. Hy vọng nó có thể giúp bạn!

#If VBA7 Sau đó
Khai báo riêng tư Hàm PtrSafe URLDownloadToFile Lib "urlmon" Bí danh "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long)
#Khác
Khai báo riêng chức năng URLDownloadToFile Lib "urlmon" Bí danh "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#End Nếu
URL phụPictureInsert ()
Dim I dưới dạng số nguyên
Làm mờ xStr dưới dạng chuỗi
Làm mờ xFd dưới dạng FileDialog
Dim xArr, xFdItem dưới dạng biến thể
Application.ScreenUpdating = Sai
Đặt xFd = Application.FileDialog (msoFileDialogFolderPicker)
Nếu xFd.Show = -1 Thì
xFdItem = xFd.SelectedItems.Item (1)
xArr = Range ("A2: B5"). Giá trị
Đối với I = 1 Đến UBound (xArr)
Nếu xArr (I, 1) <> "" Thì
xStr = Mid (xArr (I, 1), InStrRev (xArr (I, 1), "."), Len (xArr (I, 1)))
URLDownloadToFile 0, xArr (I, 1), xFdItem & "\" & xArr (I, 2) & xStr, 0, 0
Cuối Nếu
Sau
Cuối Nếu
Application.ScreenUpdating = True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chúa ơi!! Bạn vừa cung cấp một phép màu, Nó hoạt động như một sự quyến rũ. Cảm ơn bạ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
phạm vi được thiết lập, tệpnam = url và thay đổi theo từng lần vượt qua, Pshp luôn không có gì. Mọi ý tưởng
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 đang sử dụng bộ vi xử lý Intel I5, windows 7 Professional 64bit, Office 2016 64 bit. Tôi giả định rằng vấn đề là một cài đặt trong Excel. Mọi sự trợ giúp sẽ rất được trân trọng.
phạm vi được đặt, tệpnam = url và thay đổi theo mỗi lần vượt qua, Pshp luôn không có gì, URL đã được xác minh, Mọi ý tưở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 skyyang, đầu tiên cho một bài viết nhiều thông tin như vậy. Tôi có một câu hỏi, bạn có thể vui lòng giúp tôi. Sử dụng mã này của bạn, tôi chỉ muốn trích xuất một pic và muốn đặt nó vào một ô cụ thể. Có được 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
Xin chào, Shozib,
Để đặt hình ảnh vào bất kỳ ô nào khác như bạn muốn, vui lòng áp dụng mã VBA sau:

URL phụPictureInsert1 ()
'Cập nhật bởi Extendoffice 20180608
Làm mờ Pshp như hình dạng
Dim xRg theo phạm vi
Dim xCol As Long
On Error Resume Next
Đặt Rng = Application.InputBox ("Vui lòng chọn ô url :", "KuTools cho excel", Selection.Address,,,,, 8)
Nếu Rng Không Có Gì Thì Thoát Sub
Đặt xRg = Application.InputBox ("Vui lòng chọn một ô để đặt hình ảnh :", "KuTools cho excel",,,,,, 8)
Nếu xRg không có gì thì thoát Sub
Application.ScreenUpdating = Sai
Đối với I = 1 Đến Rng.Count
filenam = Rng (I)
ActiveSheet.Pictures.Insert (filenam) .Select
Đặt Pshp = Selection.ShapeRange.Item (1)
Nếu Pshp không có gì thì GoTo lab
xCol = ô. Cột + 1
Đặt xRg = xRg.Offset (I - 1, 0)
Với Pshp
.LockAspectRatio = msoFalse
.Chiều rộng = 80
.Chiều cao = 80
.Top = xRg.Top + (xRg.Height - .Height)/2
.Left = xRg.Left + (xRg.Width - .Width)/2
Kết thúc với
phòng thí nghiệm:
Đặt Pshp = Không có gì
Phạm vi ("A2"). Chọn
Sau
Application.ScreenUpdating = True
End Sub

Hãy thử nó, hy vọng nó có thể giúp bạn!
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ất cả, Macro này rất tuyệt. Tuy nhiên, nó không thực sự thêm ảnh vào tệp mà là các liên kết tạo ra ảnh mỗi khi tôi mở tệp. Vì vậy, tôi không thể nén ảnh vì chúng không thực sự nằm trong tệp. Bạn có thể vui lòng giúp tôi thực sự lưu ảnh bên trong tệp 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
Xin chào! Tôi có cùng một câu hỏi.
Có cách nào để lưu hình ảnh hiệu quả trong excel? (và không liên kết bên ngoài)
Không có bình luận nào được đăng ở đây
Tải thêm
Để 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