sbExportRange2Picture (VBA)

Wed, 08 Jul 2026 09:09:00 +0100

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.

Exportiere Einen Excel Zellbereich Als Grafik on Bernd Plumhoff

sbExportRange2Picture (VBA)

Abstract

sbExportRange2Picture Programmcode