VBA - Range jpg Bild

Question

Ich versuche, in Excel eine jpg-Datei aus einem bestimmten Bereich zu bekommen

ich zur Zeit immer die

1004 Laufzeitfehler auf Range-Methode von _Worksheet Objekt.

Dies ist, was mein Code wie folgt aussieht:

Sub Export() 
Dim ws As Worksheet 
Dim Rng As Range 
Dim Chrt As Chart 
Dim ExportPath As String 

Set ws = ActiveSheet 
Set Rng = ws.Range("B2:H11") 
ExportPath = ThisWorkbook.Path & "\Case.jpg" 

Set Chrt = ThisWorkbook.Charts.Add 
Rng.CopyPicture xlScreen, xlBitmap 

With Chrt 
    .Paste 
    .Export FileName:=ExportPath, Filtername:="JPG" 
End With 
End Sub 

Answer 1

Der Hauptfehler @J_Lard erwähnte bereits in:

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 

Answer 2

Hier wird, wie in dem gleichen Weg wie die Arbeitsmappe exportieren sein Kommentar.

Aber ich würde ChartObject eher als ein Chart Blatt verwenden. Damit können Sie die Größe der Ausgabe bestimmen, anstatt den gesamten Diagrammbereich im Bild zu sehen.

Und während F8 Schritt die Paste und den Export wird funktionieren, während Echtzeit ausgeführt wird, muss die ChartObject aktiviert werden.

Sub Export() 

Dim oWs As Worksheet 
Dim oRng As Range 
Dim oChrtO As ChartObject 
Dim lWidth As Long, lHeight As Long 

Set oWs = ActiveSheet 
Set oRng = oWs.Range("B2:H11") 

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:="Case.jpg", Filtername:="JPG" 
End With 

oChrtO.Delete 

End Sub 

Wenn der Pfad nicht angegeben wird, die Case.jpg wird Speicherort in Standard gespeichert werden. Dies ist wahrscheinlich Ihr Benutzerdokumente Verzeichnis C:\Users\YourName\Documents\