Mehrere Bereiche als Bild in UF einfügen
Markus
ich habe diesen Code im Netz gefunden. Klappt auch ganz gut. Er müßte nur erweitert werden. Aber ich weiß nicht wie.
Er müßte so erweitert werden das ich in auf einer Multipage anwenden kann und Das er eine bestimmte Tabelle verwendet. Denn wenn ich den Button in eine andere Tabelle mache dann nimmt er davon die Daten als Bild.
Zb. Page1 (Jan) Berich:A2:AF12
Page2 (Feb) Bereich:A14:AD24
Page3 (MRZ) Bereich:A26:AF36 usw.
In dem Code wo ich habe kann ich nur 1 Bild anzeigen lassen. Bitte um Hilfe !!!
Hier der Code:
Option Explicit
Const Auswertungsfile As String = "C:\Bild1.gif"
Private Sub UserForm_Activate()
Me.Image1.Picture = LoadPicture(Auswertungsfile)
End Sub
Private Sub UserForm_Initialize()
Dim objPict As Object
Dim MyChart As Chart
ActiveSheet.Range("A2:AF12").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False
Set objPict = Selection
With objPict
.Copy
Set MyChart = ActiveSheet.ChartObjects.Add(1, 1, .Width + 8, .Height + 8).Chart
End With
With MyChart
.Paste
.Export Auswertungsfile
.Parent.Delete
objPict.Delete
End With
End Sub