Diagramm in User form anzeigen lassen
30.09.2013 11:37:36
mikey
Ich habe ein Problem mit einem Diagramm in das in einer Userform angezeigt werden soll.
Das digramm befindet sich auf einer anderen Registerkarte und soll in einem
bestimmten Tabellenblatt angezeigt werden.
In der Beispieldatei funktioniert es einwandfrei, aber sobald ich alles exportiere bzw. den Code in eine neue Excel Datei kopiere kommt der Fehler.
auch ein neuschreiben bzw. anlegen der Userform und des Codes brachte keine besserung es kommt immer wieder derselbe Fehler.
Laufzeitfehler 481 : Ungültiges Bild.
und wenn ich auf depuggen klicke wird dieser Teil gelb markiert.
UserForm8.Image1.Picture = LoadPicture(Dateiname)
Sub Bild_Anzeigen(strTab As String, strDia As String)
ActiveSheet.Unprotect Password:="test"
Dim Diagramm As Object
Dim dblBreite As Double
Dim dblHoehe As Double
Set Diagramm = Worksheets(strTab).ChartObjects(strDia).Chart
With Diagramm.Parent
dblHoehe = .Height
dblBreite = .Width
.Height = dblHoehe
.Width = dblBreite
Dateiname = ThisWorkbook.Path & Application.PathSeparator & "diagramm.bmp"
End With
Diagramm.Export Filename:=Dateiname, FilterName:="bmp"
With UserForm8
.Image1.Width = Diagramm.Parent.Width
.Image1.Height = Diagramm.Parent.Height
.Width = .Image1.Width + 15
.Height = .Image1.Height + 30
End With
UserForm8.Image1.Picture = LoadPicture(Dateiname)
With Diagramm.Parent
.Height = Diagramm.Parent.Height
.Width = Diagramm.Parent.Width
End With
Kill Dateiname
UserForm8.Show
ActiveSheet.Protect Password:="test", DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFiltering:=True
End Sub
anbei die beispieldatei wo es komischerweise funktioniert.
https://www.herber.de/bbs/user/87465.xlsm