Giúp em code xuất hàng loạt thành file JPG

[doanphuong9692]

Chào mọi người,

Em là mem mới cũng là dân nghiệp dư trong excel. Em nhờ cả nhà giúp em sửa lại code bên dưới để em có thể xuất hàng loạt dữ liệu excel thành file “.jpg” với. Em tìm hoài nhưng không biết cách sửa như thế nào hết

Sub Xuatpdf()
Dim n As Long
Dim i As Long
Dim filepdf As Variant
n = Sheet "DSVN".Range("a2").Value
For i = 3 To n + 2
Sheet1.Range("d7").Value = Sheet2.Cells(i, 16).Value

Sheet1.Select
filepdf = ThisWorkbook.Path & "\" & Range("b8") & "-" & Range("d7") & "-" & Range("d6") & "-" & Range("k1") & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf
Next i
End Sub

 

[saobekhonglac]

Chào mọi người,

Em là mem mới cũng là dân nghiệp dư trong excel. Em nhờ cả nhà giúp em sửa lại code bên dưới để em có thể xuất hàng loạt dữ liệu excel thành file “.jpg” với. Em tìm hoài nhưng không biết cách sửa như thế nào hết

Sub Xuatpdf()
Dim n As Long
Dim i As Long
Dim filepdf As Variant
n = Sheet "DSVN".Range("a2").Value
For i = 3 To n + 2
Sheet1.Range("d7").Value = Sheet2.Cells(i, 16).Value

Sheet1.Select
filepdf = ThisWorkbook.Path & "\" & Range("b8") & "-" & Range("d7") & "-" & Range("d6") & "-" & Range("k1") & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf
Next i
End Sub

PDF trên máy có sẵn các phần mềm in ra file PDF, còn JPG chắc hơi khó

 

[doanphuong9692]

PDF trên máy có sẵn các phần mềm in ra file PDF, còn JPG chắc hơi khó

Em sử dụng máy ở công ty nên không cài đặt được các phần mềm để tiện sử dụng, cũng như sử dụng các phần mềm online chị ơi. Chị biết cách thì giúp em với. Em cám ơn chị

 

[nguyenthuy13388]

Em sử dụng máy ở công ty nên không cài đặt được các phần mềm để tiện sử dụng, cũng như sử dụng các phần mềm online chị ơi. Chị biết cách thì giúp em với. Em cám ơn chị

tôi thường làm: mở file excel chứa ảnh chọn toàn bộ ảnh muốn chuyển, Ctrl+C ==> mở 1 ảnh bất kỳ tại desktop mở bằng phần mềm đọc ảnh của Microsoft, mở ở chế độ xem thumbnail view ==> Ctrl + V ==> chọn toàn bộ ảnh ==> vào file ==> export, chọn format là đuôi JPG ok ==> ra desktop nhặt hình ==> done