UserForm/Diagramme
08.08.2003 08:01:46
Christian
ich hatte gestern schon einmal das Problem, dass ich in einer userform dort in ein image über eine Auswahl ein Diagramm mit folgendem Code einfüge:
Der Code lautet:
Sub DiaForm()
Dim cht As Chart
Set cht = Charts.Add
ActiveSheet.ChartObjects.Delete
Sheets("Gesamt").Activate
Range("o2,G2,I2,K2,M2,o4,G4,I4,K4,M4").Select
Selection.Copy
Sheets("Deckblatt").Select
cht.SeriesCollection.Paste _
Rowcol:=xlRows
cht.Location Where:=xlLocationAsNewSheet, Name:="Gesamt"
With cht
.HasTitle = True
.ChartTitle.Characters.Text = "Gesamt"
.Axes(xlCategory).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
cht.HasLegend = False
cht.HasDataTable = True
cht.DataTable.ShowLegendKey = True
cht.Export "dia.jpg"
With UserForm1.Image1
.PictureSizeMode = fmPictureSizeModeStretch
.Picture = LoadPicture("dia.jpg")
End With
Kill "dia.jpg"
Application.DisplayAlerts = False
cht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Damit bekomme ich ein Diagramm als jpg gespeichert und in ein image-Feld eingebettet.
wenn ich jetzt aber ein neues Diagramm einbetten will, muss ich das alte ja löschen, da er mir sonst die beiden Diagramme in eins packt(wie er das auch immer bei jpg.Dateien macht?)
wie geht das?
Gruß
Christian