mọi người chỉ giúp e cách cắt dữ liệu thành file ảnh trên màn hình máy tính với ak

[duong@]

em có 1 bảng dữ liễu exel gồm 76 dòng. Làm thế nào để cắt khúc 76 dòng dữ liệu ra thành file ảnh được không ạ. file VD e đính kèm phía dưới ạ

 

[Gà Công Nghệ]

em có 1 bảng dữ liễu exel gồm 76 dòng. Làm thế nào để cắt khúc 76 dòng dữ liệu ra thành file ảnh được không ạ. file VD e đính kèm phía dưới ạ

Dùng công cụ paint hay sài zalo trên máy tính mà cắt. Do kiến thức hạn hẹp nên mình chỉ biết có vậy.

 

[snow25]

em có 1 bảng dữ liễu exel gồm 76 dòng. Làm thế nào để cắt khúc 76 dòng dữ liệu ra thành file ảnh được không ạ. file VD e đính kèm phía dưới ạ

Sao không tách ra thành PDF cho nó gọn lại còn thành file ảnh.

 

[ongke0711]

Sao không tách ra thành PDF cho nó gọn lại còn thành file ảnh.

File ảnh thì khó chỉnh sửa hơn PDF.

 

[ongke0711]

em có 1 bảng dữ liễu exel gồm 76 dòng. Làm thế nào để cắt khúc 76 dòng dữ liệu ra thành file ảnh được không ạ. file VD e đính kèm phía dưới ạ

Dùng cái thủ tục (Sub) này nhé.

Sub exportIMG(oWs As Worksheet, oRng As Range, ExportPath As String, FileName As String)

    Dim oChrtO As ChartObject
    Dim lWidth As Long, lHeight As Long
    Dim FullFilePath As String
   
    FullFilePath = ExportPath & "\" & FileName
    oRng.CopyPicture xlScreen, xlPicture
    lWidth = oRng.Width
    lHeight = oRng.Height

    Set oChrtO = oWs.ChartObjects.Add(Left:=0, Top:=0, Width:=lWidth, Height:=lHeight)

    oChrtO.Activate
    With oChrtO.Chart
        .Paste
        .Export FileName:=FullFilePath, Filtername:="JPG"
    End With

    oChrtO.Delete

End Sub

Chạy thủ tục sau để xuất ra file ảnh từng dòng.

Sub Test()
    Dim ws As Worksheet, WholeRange As Range, exportRng As Range
    Dim lrow As Long, i As Long, beginRow As Long
   
    Set ws = ActiveSheet
    beginRow = 2
    lrow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    Set WholeRange = ws.Range("A" & beginRow & ":C" & lrow)
    For i = beginRow To lrow
        Set exportRng = ws.Range("A" & i & ":C" & i)
        Call exportIMG(ws, exportRng, ThisWorkbook.Path, ws.Range("A" & i).Text & ".jpg")
    Next
   
End Sub