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

Chia sẻ bởi:hands

★★★★★

‹ Dò tìm giá trị thoả điều kiện Xin giúp đỡ về sự kiện chạy... ›

Quảng cáo

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

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.

3148