Hallo,
hab ein problem, hab mir folgendes geschrieben:
__________________________________________________________________
Sub GrafikInUserForm()
Const csMsg As String = "Die Statistikgrafik kann nicht " & _
"auf CD-ROM gespeichert werden. Speichern Sie die " & _
"Arbeitsmappe auf Ihrer Festplatte und versuchen " & _
"Sie es erneut."
Dim sFile As String
stFile = ThisWorkbook.Path & "\Statistik.gif"
On Error GoTo ERRORHANDLER
ActiveWorkbook.Charts(1).Export sFile
With frm_Eingabe
.imgChart.Picture = LoadPicture(stFile)
.imgChart.PictureSizeMode = fmPictureSizeModeZoom
.Show
End With
Kill sFile
Exit Sub
ERRORHANDLER:
MsgBox "geht nicht", vbCritical, "Achtung"
End Sub
___________________________________________________________________
hab nun das problem, das er dieses diagramm nicht speichert, weiß nicht warum 2 mal hat er es gemacht, plötzlich nicht mehr.
keine ahnung was ich falsch gemacht hab.
könnt ihr mir bitte helfen???
danke schonmal |