AutoHotkey Community

Code: Select all

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

xl := ComObjCreate("Excel.Application")
xl.Visible := true
path = %A_ScriptDir%\A.xlsx
xl.Workbooks.Open(Path)


;xl.Worksheets("Excel_Gauge5").ChartObjects(6).Chart.Export( A_MyDocuments "\pic1.jpg" )



  xl.Application.ScreenUpdating := False
  xl.Set h1 := Sheets("Excel_Gauge5")
    Set h2 = Sheets.Add
    ruta = ThisWorkbook.Path & "\"
    archivo = ruta & h1.[D1] & ".JPEG"
    '
    rango = "P1:U22"
    '
    With h1.Range(rango)
        fi = .Cells(1, 1).Row
        ff = .Rows.Count + fi - 1
        ci = .Cells(1, 1).Column
        cf = .Columns.Count + ci - 1
        izq = .Cells(1, 1).Left
        der = h1.Cells(1, cf + 1).Left
        baj = .Cells(1, 1).Top
        arr = h1.Cells(ff + 1, 1).Top
        anc = der - izq
        alt = arr - baj
    End With
    '
    h1.Range(rango).CopyPicture
    h2.Shapes.AddChart
    With h2.ChartObjects(1)
        .Width = anc
        .Height = alt
        .Chart.Paste
        .Chart.Export archivo
        .Delete
    End With
    Application.DisplayAlerts = False
    h2.Delete
    Application.DisplayAlerts = True
    '
    MsgBox "Celdas guardadas como imagen en el archivo: " & archivo, vbInformation, Date
End Sub

Code: Select all

;[Gdip functions]
;GDI+ standard library 1.45 by tic - AutoHotkey Community
;https://autohotkey.com/boards/viewtopic.php?f=6&t=6517

q:: ;excel - copy cells and output to image file
oXl := ComObjCreate("Excel.Application")
oXl.Visible := -1 ;True
oXl.Workbooks.Add
for oCell in oXl.Range("A1:C3")
	oCell.Value := oCell.Address(0,0)
oXl.Range("A1:C3").Copy

pToken := Gdip_Startup()
pBitmap := Gdip_CreateBitmapFromClipboard()
vPath := A_Desktop "\z excel " A_Now ".png"
Gdip_SaveBitmapToFile(pBitmap, vPath)
Gdip_DisposeImage(pBitmap)
Gdip_Shutdown(pToken)

oXl.ActiveWorkbook.Close(0) ;close without saving
oXl := ""

Run, % vPath
return

Code: Select all

xlApp := ComObjActive("Excel.Application")
xlSheet := xlApp.ActiveSheet
xlArea := xlSheet.Range("B2:C3")
xlArea.CopyPicture
xlChart := xlSheet.ChartObjects.Add(0,0, xlArea.Width, xlArea.Height)
xlChart.Chart.Paste
xlChart.Chart.Export(A_Desktop "\Test\RangePic.png", "PNG")
xlChart.Delete

Code: Select all

q:: ;excel - output to image file
oXl := ComObjCreate("Excel.Application")
oXl.Visible := -1 ;True
oXl.Workbooks.Add
for oCell in oXl.Range("A1:C3")
	oCell.Value := oCell.Address(0,0)
oRange := oXl.Range("A1:C3")
;oRange := oXl.Range("B2:C3")
oRange.CopyPicture
oChart := oXl.ActiveSheet.ChartObjects.Add(0, 0, oRange.Width, oRange.Height)
oChart.Chart.Paste
vPath := A_Desktop "\z excel " A_Now ".png"
oChart.Chart.Export(vPath, "PNG")
;oChart.Delete
oXl.ActiveWorkbook.Close(0) ;close without saving
oXl := oRange := oChart := ""
Run, % vPath
return