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 ) .
không bít thì thôi bầy đặc chỉ tầm bậ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!
không bít thì thôi bầy đặc chỉ tầm bậy!
Code có 1 ít vấn đề mình đã chỉnh lại , các bạn quan tâm thì test nhéBạn xem file này nha. Chúc bạn thành công
Code có 1 ít vấn đề mình đã chỉnh lại , các bạn quan tâm thì test nhé
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 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
With cht.Parent
.Width = Target.Width
.Height = Target.Height
End With
With cht.Parent
.Width = cht.ChartArea.Width
.Height = cht.ChartArea.Height
End With
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2