AW: zum Thema dynamisches Diagramm...
10.01.2015 14:32:20
Mii
Ich hab es jetzt erstmal mit einer VBA-Formel geschafft...
Dies mache ich mit 3 Diagrammen
Dim oDia As ChartObject
Dim sPfad As String
'Diagramm 1 erstellen, als gif. speichern und ins Image Laden
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Wertetabelle'!$B$3:$D$" & n_quartale + 2)
ActiveChart.ChartType = xlLineStacked
With Worksheets("Wertetabelle")
Set oDia = .ChartObjects(1)
oDia.Chart.Export ThisWorkbook.Path & "\Diagramm1.gif", "GIF"
End With
sPfad = ThisWorkbook.Path & "\Diagramm1.gif"
If Len(Dir(sPfad)) = 0 Then
MsgBox "Kein Gif vorhanden"
Else
I_DG1.Picture = LoadPicture(sPfad)
UF_DG.I_DG2.Picture = LoadPicture(sPfad)
End If
Jetzt erstellt er zwar immer neue Diagramm, aber die lösche ich vorher einfach wieder mit
For Each oDia In Worksheets("Tabelle1").ChartObjects
oDia.Delete
Next oDia
Ein Image in das die gif geladen wird befindet sich auf einer anderen UserForm, die einfach nur mit .show aufgerufen wird.
Aus irgendeinem Grund ist das Diagramm beim ersten öffen der Userform da, und wenn ich dann mit (X) schließe und es nochmal aufrufen will ist es weg...
Weiß einer warum?
Ich versuch auch noch die Range des Diagramms durch Textboxen einsetellen zu lassen. Mit dem Endwert
($D$" & n_quartale + 2) geht es. kann ich es auch gleichzeitig mit dem Anfangswert machen?