Exportieren von Diagrammen aus Excel als Bilder mit Python

Habe ich versucht, den export der Diagramme aus Excel als Bild-Datei (JPG oder ING) in Python. Ich freue mich auf die WIn32com. Hier ist, was ich habe, bis jetzt.

import win32com.client as win32
excel = win32.gencache.EnsureDispatch("Excel.Application")
wb = excel.Workbooks.Open("<WORKSHEET NAME>")
r = wb.Sheets("<SHEET NAME>").Range("A1:J50") 
# Here A1:J50 is the area over which cart is
r.CopyPicture()

Dies ist, wo ich geblieben bin. Ich brauche kopiert den ausgewählten Bereich in eine Datei nun. Jede Hilfe oder Hinweise für das doc kann mir helfen, eine Menge.

Habe ich modelliert den oben genannten code basiert auf den folgenden VBA-Skript:

Sub Export_Range_Images()
    ' =========================================
    ' Code to save selected Excel Range as Image
    ' =========================================
    Dim oRange As Range
    Dim oCht As Chart
    Dim oImg As Picture

    Set oRange = Range("A1:B2")
    Set oCht = Charts.Add
    oRange.CopyPicture xlScreen, xlPicture
    oCht.Paste
    oCht.Export FileName:="C:\temp\SavedRange.jpg", Filtername:="JPG"
End Sub

Code-Snippet aus : http://vbadud.blogspot.com/2010/06/how-to-save-excel-range-as-image-using.html

  • Mein Vorschlag wäre, zu brechen Ihre Beziehungen mit Excel. Warum tun Sie das Diagramm in Excel, und verwenden Sie dann Python? Es ist einfach, die python verwenden, um Daten zu Lesen und tun das Plotten mit matplotlib.
  • Leider, die frühere Arbeit zwingt mich, zu bleiben, um zu Excel. Und es gibt mehr als 10 Grafiken, die gezeichnet werden, aus mehreren Blättern.
  • Warum nicht den export der Diagramme direkt? Die Sheet Objekt hat einen ChartObjects Sammlung: jeder ChartObject hat eine beschränkte Chart mit einem Export Methode. Kopieren Sie den Bereich mit dem Diagramm und einfügen in ein leeres Diagramm scheint den langen Weg.
InformationsquelleAutor Parikshit | 2012-06-19
  1. 5

    Ich weiß, das ist eine alte Frage, aber es hat geholfen, um mich auf die richtige Spur und so kam ich zurück, um meine fertigen script, der Sie findet, alle Diagramme in einem Arbeitsblatt und exportiert Sie als .png.
    Das obige Skript kann funktionieren, aber da es nur kopiert einen Bereich im Arbeitsblatt, Sie sind abhängig von den Graphen in genau diesem Punkt.

        import win32com.client as win32
    from win32com.client import Dispatch
    import os

    xlApp = Dispatch('Excel.Application')

    workbook = xlApp.Workbooks.Open("Book1.xls")
    xlApp.Sheets("Sheet1").Select()

    xlSheet1 = xlApp.Sheets(1)

    #WARNING: The following line will cause the script to discard any unsaved changes in your workbook
    #Ensure to save any work before running script
    xlApp.DisplayAlerts = False

    i = 0
    for chart in xlSheet1.ChartObjects():
        print chart.Name

        chart.CopyPicture()
        #Create new temporary sheet
        xlApp.ActiveWorkbook.Sheets.Add(After=xlApp.ActiveWorkbook.Sheets(3)).Name="temp_sheet" + str(i)
        temp_sheet = xlApp.ActiveSheet

        #Add chart object to new sheet.
        cht = xlApp.ActiveSheet.ChartObjects().Add(0,0,800, 600)
        #Paste copied chart into new object
        cht.Chart.Paste()
        #Export image
        cht.Chart.Export("chart" + str(i) + ".png")

        #This line is not entirely neccessary since script currently exits without saving
        temp_sheet.Delete()
        i = i+1

    xlApp.ActiveWorkbook.Close()
    #Restore default behaviour
    xlApp.DisplayAlerts = True
    InformationsquelleAutor Habadasher
  2. 4

    Hatte ich einige VBA-Beispiele, damit es funktioniert. Obwohl ich hasse die Beantwortung meiner eigenen Fragen, ich verlasse diesen hier für Leute die es mal brauchen könnte.

        import win32com.client as win32
    wb = excel.Workbooks.Open(excel_file)
    selection = "A1:J30" 
    xl_range = wb.Sheets(<sheet_name>).Range(selection)
    excel.ActiveWorkbook.Sheets.Add(                  After=excel.ActiveWorkbook.Sheets(3)).Name="image_sheet"
    cht = excel.ActiveSheet.ChartObjects().Add(0,0,
                                            xl_range.Width, xl_range.Height)
    xl_range.CopyPicture()
    # add the chart to new sheet
    cht.Chart.Paste()
    # Export the sheet with the chart to a new file
    cht.Chart.Export(<image_filename>)
    # Delete the sheet
    cht.Delete()
    excel.ActiveSheet.Delete()
    # Close the book
    excel.ActiveWorkbook.Close()
    • Obwohl dies vielleicht ein guter Bezugspunkt, das Skript funktioniert nicht...
    InformationsquelleAutor Parikshit
  3. 0

    Für mich hat das gut funktioniert:

    from win32com.client import Dispatch

app = Dispatch("Excel.Application")
workbook_file_name = 'Programmes.xlsx'
workbook = app.Workbooks.Open(Filename=workbook_file_name)

# WARNING: The following line will cause the script to discard any unsaved changes in your workbook
app.DisplayAlerts = False

i = 1
for sheet in workbook.Worksheets:
    for chartObject in sheet.ChartObjects():
        # print(sheet.Name + ':' + chartObject.Name)
        chartObject.Chart.Export("chart" + str(i) + ".png")
        i += 1

workbook.Close(SaveChanges=False, Filename=workbook_file_name)

    Oder so:

    from win32com.client import Dispatch

app = Dispatch("Excel.Application")
workbook_file_name = 'Programmes.xlsx'
workbook = app.Workbooks.Open(Filename=workbook_file_name)
app.DisplayAlerts = False
try:
    workbook.SaveAs(Filename="ExcelCharts.htm", FileFormat=44)  # 44 = html file format
except Exception as ex:
    print(ex)
finally:
    workbook.Close(SaveChanges=False, Filename=workbook_file_name)
    InformationsquelleAutor snaiste
  4. 0

    Heutzutage würde ich empfehlen, excel2img Bibliothek, die mir gut gedient. Stellen Sie sicher, dass Sie es installiert haben (pip installieren excel2img)

    import excel2img

excel2img.export_img("test.xlsx", "test.gif", "Sheet1", "MyNamedRange")

    Wenn Sie nicht brauchen, gridlines - nur verstecken die es auf excel.

    git-rep: excel2img, um mehr zu erfahren.

    InformationsquelleAutor yomajo
Schreibe einen Kommentar