Ich versuche gerade ein Diagramm, welches in einem Sheet steht und durch ein Makro aktualisiert wird in einem Formular anzuzeigen. Geht das überhaupt nicht?
Vielen Dank für Eure Unterstützung!!
mfg
Gerald
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
ActiveSheet.ChartObjects(1).Chart.Export _
Filename:="c:\Eigene Dateien\Mein Bild.jpeg", FilterName:="jpeg"
UserformRK.Picture = LoadPicture("C:\Eigene Dateien\Mein Bild.jpeg")
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Sheets("Statistiken").Activate
MsgBox ActiveSheet.ChartObjects(1).Name ' hier bekomme ich den Namen "Chart2" raus
ActiveSheet.ChartObjects(1).Chart.Export Filename:="E:\Büro\MARKETING\Chart.jpg", FilterName:="jpg"
UserFormStatistiken.Picture = LoadPicture("E:\Büro\MARKETING\Chart.jpg")
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Sheets("Statistiken").ChartObjects("Chart2").Chart.Export _
Filename:="E:\Büro\MARKETING\Chart.jpg", FilterName:="jpg"
UserFormStatistiken.Picture = LoadPicture("E:\Büro\MARKETING\Chart.jpg")
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
ThisWorkbook.Sheets("Statistiken").ChartObjects("Chart2").Chart.Export _
Filename:="E:\Büro\MARKETING\Chart.jpg", FilterName:="jpg"
Me.Picture = LoadPicture("E:\Büro\MARKETING\Chart.jpg")
Application.ScreenUpdating = True
End Sub