Diagramm in Userform anzeigen
09.11.2013 14:11:53
mikey20
ich habe hier schon viel Hilfe für das anzeigen der Diagramme in der
Userform erhalten. Mein dank gilt an alle aber insbesondere beverly.
Jetzt habe ich eine wahrscheinliche Lösung gefunden.
Ich habe die anzuzeigenden Diagramme in ein neues Tabellenblatt kopiert
das aber beim starten ausgeblendet werden soll. Leider kommt es hin und wieder
vor das er das bild nicht anzeigt und den fehler ausgibt das es ein ungültiges bild
ist.
Ich habe probiert das Diagramm vorher zu selektieren / auszuwählen dann funktioniert es. Nur bin ich mir nicht sicher ob es immer funktioniert.
anbei die Makros vielleicht kann mir jemand dabei helfen
Diagramme heißen einfach Diagramm1, Diagramm2, usw.
Makro für das anzeigen des diagrammes
Sub Diagramm_Bosch_260()
ActiveSheet.ChartObjects.Select
Bild_Anzeigen "Tabelle1", "Diagramm4"
End Sub
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
ActiveSheet.ChartObjects.Select
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
danke
lg