Xuất các biểu đồ trong excel ra các file ".jpg" trong một folder mới (2 người xem)

[vuquockhanh-54]

Chào anh chị,
Em đang cần xuất các biểu đồ trong một file excel ra ra mộ file .jpg trong một folder mới. Nhưng do số lương các biểu đồ rất nhiều. Nên em muốn viết 1 macro để xuất file ra nhanh hơn. Em đã cố record macro cho “copy as picture” để tìm code của nó nhưng nó ko record ra. Vậy có anh chị nào biết giúp em với ạ.Cảm ơn anh chị!!

 

[ndu96081631]

Chào anh chị,
Em đang cần xuất các biểu đồ trong một file excel ra ra mộ file .jpg trong một folder mới. Nhưng do số lương các biểu đồ rất nhiều. Nên em muốn viết 1 macro để xuất file ra nhanh hơn. Em đã cố record macro cho “copy as picture” để tìm code của nó nhưng nó ko record ra. Vậy có anh chị nào biết giúp em với ạ.Cảm ơn anh chị!!

Bạn đưa file mẫu lên đây tôi làm thử xem
Nói chung là bài này không khó nhưng không có file thì lấy gì mà test code?

 

[vuquockhanh-54]

Bạn đưa file mẫu lên đây tôi làm thử xem
Nói chung là bài này không khó nhưng không có file thì lấy gì mà test code?

Dạ đây ạ. Đây là 1 sheet trong rất nhiều sheet em cần xuất các biểu đồ ra ạ.Em cám ơn anh

 

[ndu96081631]

Dạ đây ạ. Đây là 1 sheet trong rất nhiều sheet em cần xuất các biểu đồ ra ạ.Em cám ơn anh

Viết 1 code tổng quát để xuất chart ra file JPG tại 1 folder nào đó

Private Sub ExportChart(ByVal Folder2Save As String)
  Dim path As String
  Dim cht As ChartObject, wks As Worksheet
  Dim n As Long
  On Error GoTo ErrHandler
  If Right(Folder2Save, 1) <> "\" Then Folder2Save = Folder2Save & "\"
  For Each wks In ThisWorkbook.Worksheets
    For Each cht In wks.ChartObjects
      path = Folder2Save & wks.Name & "-" & cht.Chart.ChartTitle.Caption & ".jpg"
      n = n + 1
      cht.Chart.Export path, "JPG"
    Next
  Next
  MsgBox n & " files hình da duoc luu"
  Exit Sub
ErrHandler:   MsgBox Err.Description
End Sub

Viết 1 code để áp dụng:

Sub Main()
  Dim Folder2Save As String
  Folder2Save = [COLOR=#ff0000]ThisWorkbook.path & "\ABC"[/COLOR]
  ExportChart Folder2Save
End Sub

Tất cả 2 code trên bạn cho vào 1 module rồi chạy sub Main
------------------------------------------------------------
Lưu ý duy nhất: Chỗ màu đỏ chính là thư mục bạn lưu file hình. Sửa nó cho phù hợp trên máy bạn

 

[vuquockhanh-54]

Em làm được rồi ạ. Cám ơn anh "ndu96081631" nhé!!!!