Tabelle als Bild speichern
24.08.2017 14:37:36
Köppl
ich habe folgendes Problem:
Ich will einen Bereich einer Tabelle als Bild (Format egal) speichern.
Dazu habe ich folgenden Code verwendet.
Das Problem ist hierbei, dass ich jeweils nur eine weiße Seite als Bild erhalte!
Sub Schaltfläche2_Klicken()
Dim objChrt As Chart
Dim rngImage As Range
Application.ScreenUpdating = False
With Sheets("Auslosung")
.Unprotect "2012"
Set rngImage = .Range("A1:F46")
On Error Resume Next
Do
rngImage.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Loop Until Err.Number = 0
On Error GoTo 0
Set objChrt = .ChartObjects.Add(1, 1, rngImage.Width, rngImage.Height).Chart
objChrt.Paste
objChrt.Export Worksheets("Auslosung").Range("D8").Text &
UserForm1.CBGruppe.Value & "_" _
& UserForm1.CBMannschaftsart.Value & UserForm1.TBSaison.Value & ".gif"
objChrt.Parent.Delete
.Protect "2012"
End With
Set objChrt = Nothing
Set rngImage = Nothing
End Sub