ich arbeite gerade an einem VBA Projekt bei dem ich ein Multipage Steuerelement verwende. Zu jeder dieser Seiten (z.B. 1-3) des Steuerelementes gehört jeweils ein Tabellenblatt (Tabelle1, Tabelle2, Tabelle3).
Auf jedem Tabellenblatt wird ein dynamisches Diagramm erstellt. Dieses soll jeweils auf der dazugehörigen Seite des Steuerelementes aktuell dargestellt werden.
Mein Problem ist, dass es auf der ersten Seite mit dem folgenden Code funktioniert:
Private Sub UserForm_Initialize()
Dim Fname As String
Call SaveChart
Fname = ThisWorkbook.Path & "\temp1.gif"
Me.Image1.Picture = LoadPicture(Fname)
End Sub
Private Sub SaveChart()
Dim MyChart As Chart
Dim Fname As String
Set MyChart = Sheets("letzte_10").ChartObjects(1).Chart
Fname = ThisWorkbook.Path & "\temp1.gif"
MyChart.Export Filename:=Fname, FilterName:="GIF"
End Sub
Will ich den gleichen Code für die 2. Seite und entsprechend Tabelle2 anwenden, dann funktioniert es nicht! :-( Hat jemand eine Idee, was ich da falsch mache?VG,
André