Mừng Sinh Nhật GPE 11: sáng 25/6 Hà Nội; 1/7 Huế/Đà Nẵng; Trưa 2/7 TPHCM

Chuyển file excel thành file ảnh

Thảo luận trong 'Thành viên giúp nhau' bắt đầu bởi letuongqt, 6 Tháng chín 2008.

  1. letuongqt

    letuongqt Thành viên hoạt động

    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 ) .
     
  2. hoang_B

    hoang_B Thành viên chính thứ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.
     

    Các file đính kèm:

  3. Mr Okebab

    Mr Okebab Ngon Ngất Ngây

    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!
     
  4. Po_Pikachu

    Po_Pikachu Po_pikachu@ymail.com

    Lần chỉnh sửa cuối: 14 Tháng ba 2015
  5. yeudoi

    yeudoi Moderator Staff Member

    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
     
  6. dttm2607

    dttm2607 Thành viên chính thức

    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!!!
     
  7. yeudoi

    yeudoi Moderator Staff Member

    Bạn xem file này nha. Chúc bạn thành công
     

    Các file đính kèm:

  8. vanhuudhxd

    vanhuudhxd Thành viên mới

    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!
     
  9. trangvo2205

    trangvo2205 Thành viên mới

    không bít thì thôi bầy đặc chỉ tầm bậy!
     
  10. solomon2211

    solomon2211 Thành viên tích cực

    Chú này nói năng lung tung quá đi. Đề nghị mod xoá bài này đi.
     
  11. USB1394

    USB1394 Thành viên hoạt động

    Code có 1 ít vấn đề mình đã chỉnh lại , các bạn quan tâm thì test nhé /-*+/
     

    Các file đính kèm:

  12. ndu96081631

    ndu96081631 Ăn cùng GPE, Ở cùng GPE, Sống cùng GPE Staff Member Super Moderator

    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
     

Chia sẻ trang này