Sub GrafikinUserForm()
Dim sFile As String
sFile = ThisWorkbook.Path & "\Schnitt.gif"
On Error GoTo ERRORHANDLER
ActiveWorkbook.Charts(1).Export sFile
With frmChart
.imgChart.Picture = LoadPicture(sFile)
.imgChart.PictureSizeMode = fmPictureSizeModeZoom
.Show
End With
Kill sFile
Exit Sub
ERRORHANDLER
MsgBox prompt:=csMsg
End Sub
Hat jemand eine funktionierende Lösung?
Vielen Dank für die Antworten.