VBA - Bereich zu jpg-Bild
Ich versuche eine jpg-Datei aus einem bestimmten Bereich in excel
Ich bin derzeit immer die
1004 Laufzeitfehler auf Range-Methode von Objekt _Worksheet.
Dies ist, was mein code sieht wie folgt aus:
Sub Export()
Dim ws As Worksheet
Dim Rng As Range
Dim Chrt As Chart
Set ws = ActiveSheet
Set Rng = Range("B2:H11")
ws.Range(Rng).CopyPicture
Set Chrt = Charts.Add
With Chrt
.Paste
.Export FileName = "Case.jpg", Filtername:="JPG"
End With
End Sub
- Sie müssen den Pfad angeben
.Export FileName = "C:\Case.jpg", Filtername:="JPG"
- Wird nicht Sie speichern, um den Pfad wo die excel Datei liegt, falls ich die nicht angeben?
- Sollten Sie auch ändern
Set Rng = Range("B2:H11")
zuSet Rng = ws.Range("B2:H11")
und dannws.Range(Rng).CopyPicture
zurng.CopyPicture
. - Fehlt
:
vor=
im.Export FileName =
?
Du musst angemeldet sein, um einen Kommentar abzugeben.
Die wichtigsten Fehler hat @J_Lard erwähnt bereits in seinem Kommentar.
Aber ich würde
ChartObject
eher als eineChart
Blatt. Mit dieser bestimmen Sie die Größe der Ausgabe, anstatt das gesamte Diagramm in das Bild.Und während Sie mit
F8
Schritt die paste und export arbeiten, während die Reale Zeit laufen, dieChartObject
aktiviert werden muss.Wenn Pfad nicht angegeben, wird der
Case.jpg
wird gespeichert in der Standard -Position speichern. Dies ist wahrscheinlich Ihre Benutzer-Dokumenten-Verzeichnis
C:\Users\YourName\Documents\
xlPicture
stattxlBitmap
habe ich bereits. Aber auch dies hängt. Probieren Sie verschiedene Formate, vergleichen Sie die Ergebnisse und wählen Sie, was ist deiner Meinung nach der beste.Hier ist, wie der export im gleichen Verzeichnis wie die Arbeitsmappe :