Abstract
Verwenden Sie dieses Unterprogramm, wenn Sie einen Excel Zellbereich als JPG-Datei exportieren möchten. Ich habe festgestellt, dass dies eine der praktikabelsten Möglichkeiten ist, Excel-Ergebnisse in einer PowerPoint-Präsentation darzustellen. Dank meines ehemaligen Kollegen Ashish P. konnte ich xlScreen in xlPrinter ändern, wodurch verhindert wird, dass das Programm in manchen Fällen auf einen Fehler läuft.
sbExportRange2Picture Programmcode
Bitte den Haftungsausschluss im Impressum beachten.
Option Explicit
Sub sbExportRange2Picture(sPath As String, rngInput As Range)
'Export range as image
'Source (EN): https://www.sulprobil.de/sbexportrange2picture_en/
'Source (DE): https://www.berndplumhoff.de/sbexportrange2picture_de/
'(C) (P) by Bernd Plumhoff 01-Jun-2016 PB V3.0
Dim chtObj As ChartObject
rngInput.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
Set chtObj = ActiveSheet.ChartObjects.Add(100, 30, 400, 250)
chtObj.Name = "TemporaryPictureChart"
chtObj.Width = rngInput.Width
chtObj.Height = rngInput.Height
'I hate to activate anything. Let me know if you find a better way.
'J.W. suggested chtObj.Chart.ChartArea.Select instead of chtObj.Activate,
'but chtObj might not be active.
chtObj.Activate
ActiveChart.Paste
ActiveChart.Export Filename:=sPath, FilterName:="jpg"
chtObj.Delete
End Sub
Bitte den Haftungsausschluss im Impressum beachten.
sbexportrange2picture.xlsm [22 KB Excel Datei, ohne jegliche Gewährleistung]
Hinweis: Eine umfassende Dokumentation meiner Excel Implementierungen finden Sie in Excel VBA Eine Sammlung.