Chuyển file excel thành file ảnh

Liên hệ QC

letuongqt

Thành viên hoạt động
Tham gia
26/3/08
Bài viết
141
Được thích
24
Nhờ các bạn chỉ giúp có phần mềm nào dùng để chuyển flie excel thành định dạng file ảnh . Không biết đường link nào tải về được , mong được chỉ giúp - Rất cảm ơn (tải total excel converter nhưng không thể tải được ) .
 
Mình tải cho bạn bản Total Excel Converter 1.1 nhưng vẫn chưa tìm được key. Bạn chịu khó tìm trên Google nha!
Thân.
 

File đính kèm

  • TotalExcelConverter 1.1.part1.rar
    1 MB · Đọc: 279
  • TotalExcelConverter 1.1.part2.rar
    1 MB · Đọc: 169
  • TotalExcelConverter 1.1.part3.rar
    1 MB · Đọc: 155
  • TotalExcelConverter 1.1.part4.rar
    569.9 KB · Đọc: 147
Nhờ các bạn chỉ giúp có phần mềm nào dùng để chuyển flie excel thành định dạng file ảnh . Không biết đường link nào tải về được , mong được chỉ giúp - Rất cảm ơn (tải total excel converter nhưng không thể tải được ) .

Một phần mềm rất nổi tiếng : Fine Print

Tạo hình ảnh chỉ là một tính năng phụ trợ trong phần mềm này

Thân!
 
Không biết chuyển từng sheet chứ, nếu vậy trong excel cũng có thể chuyển sheet thành file ảnh chứ cần gì dùng trình ngoài
 
Bạn Yeudoi hướng dẫn mình chi tiết cách chuyển sheet thành file ảnh trong excel nhé! Cám ơn bạn trước!!!
 
Bạn xem file này nha. Chúc bạn thành công
 

File đính kèm

  • Picture SaveAs-(Hay).rar
    341.3 KB · Đọc: 992
Mình thấy dùng em FinePrint này khá là tiện ích, ngoài chức năng tạo file ảnh , còn có vài chức năng khác khá là hay!
 
Code có 1 ít vấn đề mình đã chỉnh lại , các bạn quan tâm thì test nhé /-*+/

Trước giờ tôi hay viết kiểu này:
Mã:
Private Sub Object2JPG(ByVal Target As Object, ByVal FileName As String)
  Dim cht As Chart, wks As Worksheet
  On Error GoTo ErrHandler
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  Set wks = Worksheets.Add
  If UCase(Right(FileName, 4)) <> ".JPG" Then FileName = FileName & ".jpg"
  Target.CopyPicture xlScreen, xlPicture
  Set cht = Charts.Add
  Set cht = cht.Location(xlLocationAsObject, wks.Name)
  cht.Paste
  With cht.Parent
    .Width = Target.Width
    .Height = Target.Height
  End With
  cht.Export FileName, "jpg"
  wks.Delete: Exit Sub
ErrHandler:
  wks.Delete
  MsgBox Err.Description
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
End Sub
Sub Object2JPG dùng để chuyển bất kỳ object nào thành file trên ổ đĩa. Để áp dụng, chỉ cần khai báo Target và FileName như sau:
Mã:
Sub Main()
  Dim Target As Range, FileName As String
  [COLOR=#ff0000]Set Target = Sheet1.Range("A1:K25")[/COLOR]
  [COLOR=#0000cd]FileName = ThisWorkbook.Path & "\tmp.jpg"[/COLOR]
  [B]Object2JPG [COLOR=#ff0000]Target[/COLOR], [COLOR=#0000cd]FileName[/COLOR][/B]
  MsgBox "Done!"
End Sub
Công việc của người dùng chỉ là khai báo 2 đối số cho đúng, còn cái Sub Object2JPG kia viết gì cũng không cần hiểu và không cần quan tâm
-----------------
Nếu ai dùng Excel 2003 thì hãy sửa chỗ này:
Mã:
With cht.Parent
  .Width = Target.Width
  .Height = Target.Height
End With
thành:
Mã:
With cht.Parent
  .Width = cht.ChartArea.Width
  .Height = cht.ChartArea.Height
End With
 
Web KT
Back
Top Bottom