Diagramm auf 2. Seite Multiseitenelement zeigen
25.06.2018 13:58:01
André
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
VG,
André
Anzeige