Sửa lỗi export ảnh trong excel ra thư mục

[AnhNQT]

Em có file như đính kèm và mục đích là khi chạy Module1 ở máy khác sẽ lưu ảnh lại, sau đó code ở Module2 sẽ lấy ảnh được lưu trước đó để hiển thị trên file .kml.
Tuy nhiên lại đang lỗi ở "pic.Export". Nhờ mọi người xem giúp lỗi trên hoặc có thể sửa luôn code ở Module2 tại đường dẫn ảnh "D:\logo.png" mà không cần lấy ảnh từ Module 1 thì càng tốt ạ!
Em cảm ơn!

Sub SaveImageAsFile()
  Dim picName As String
  Dim saveFolder As String
  Dim pic As Shape
  picName = "logo"
  saveFolder = "D:\"
  Set pic = ActiveSheet.Shapes("Picture")
  pic.Export Filename:=saveFolder & picName & ".png", FilterName:="PNG"
End Sub

 

[Tình nghĩa giang hồ]

Code trên là một đoạn VBA (Visual Basic for Applications) trong Microsoft Excel, nó chạy trong một macro để lưu một hình ảnh có tên là "Picture" trong sheet hiện tại dưới dạng tệp .png tại đường dẫn "D:\logo.png".

Để sửa lỗi "pic.Export", bạn cần kiểm tra xem có hình ảnh có tên là "Picture" trong sheet hiện tại hay không. Nếu không có, bạn cần tìm hình ảnh đúng hoặc thêm hình mới vào sheet để chạy macro.

 

[cantl]

Hôm nọ định mò để sửa thử cho tác giả nhưng mà VBA của mình thì pic lại không có method Export. Chắc lỗi bản quyền nên chịu.