ich habe folgendes Problem mit meiner Userform. In diese soll ein Chart von dem "Startblatt" Sheet eingefügt werden.
Dieses hat mit dem folgenden Code ein paar mal geklappt aber nun funktioniert es nicht mehr. Es kommt ständig der Laufzeitfehler 481 - Ungültiges Bild.
Ich verwende folgenden Code im Modul um das Bild zu exportieren :
Option Explicit
Public Dateiname As String
Sub Bild_Anzeigen()
Dim Diagramm As Object
Set Diagramm = Worksheets("Startblatt").ChartObjects(1).Chart
Diagramm.Parent.Width = Ergebnisform.Image1.Width
Diagramm.Parent.Height = Ergebnisform.Image1.Height
Dateiname = ThisWorkbook.Path & Application.PathSeparator & "diagramm.bmp"
Diagramm.Export Filename:=Dateiname, FilterName:="bmp"
Ergebnisform.Image1.Picture = LoadPicture(Dateiname)
End Sub
Dieser Code steht im Sheet(Startblatt):
Private Sub Worksheet_Change(ByVal Target As Range)
For Each fm In UserForms
If fm.Name = "Ergebnisform" Then
Bild_Anzeigen
Exit For
End If
Next fm
End Sub
Und abschließend dieser Code steht im Userform zum aufrufen des Images:
Option Explicit
Private Sub Userform_activate()
Bild_Anzeigen
End Sub
Private Sub cmdOK_Click()
Kill Dateiname
Unload Me
End Sub
Durch fleißiges googeln habe ich schon herausgefunden das dieses ein häufig auftretendes Problem ist. Jedoch habe ich bisher noch keine Lösung gefunden. Der Knackpunkt liegt bei dem Export der Dateien. Hier finde ich beim entsprechenden Pfad nur 0Kb große Dateien.
Auch das von Microsoft vorgeschlagene Ändern der Endung in BMP habe ich schon gemacht, leider auch ohne Erfolg.
Ich hoffe ihr könnt mir weiterhelfen um so eine dauerhafte Lösung zu erreichen
Gruß,
Steffen