Chartnum. ändern?
05.07.2004 09:44:15
Robert
Ich habe ein Problem mit einem Userform und Grafiken.
Auf Sheets("Charts")sind etwa 16 Grafiken, die ich mit der hier unten sichtbare VBA Code in einem Userform zeige kann. Funktioniert wunderbar, bis auf einem Detail. Ich denke es sind die "ChartNum" die ich ändern müsste damit ich meine Grafiken in Alphabetische Reihenfolge zeigen kann. "ChartNum"(1) sollte Name A haben, "ChartNum"(2)Name B. Ist es möglich die "ChartNum" zu ändern?
Mit freundlichen Grüssen
Robert Aalderink
Private Sub UpdateChart()
Set CurrentChart = Sheets("Charts").ChartObjects(ChartNum).Chart
CurrentChart.Parent.Width = 500
CurrentChart.Parent.Height = 250
' Save chart as GIF
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export FileName:=Fname, FilterName:="GIF"
' Show the chart
Image1.Picture = LoadPicture(Fname)
End Sub