ich habe diesen Code von Herber bekommen.
wer kann diesen code erweitern?
ich möchte das die säule in rot dargestellt wird und die legende nicht gezeigt wird!!!
Sub DiagrammInUserForm()
Dim cht As Chart
Dim sFile As String
sFile = Application.Path & "\test.gif"
Set cht = Charts.Add
Application.ScreenUpdating = False
cht.SetSourceData _
Source:=Sheets("Prüfungsbogen1").Range("G8:AA9"), _
PlotBy:=xlRows
cht.Export sFile
With frmChart.imgChart
.Picture = LoadPicture(sFile)
End With
frmChart.Show
Kill sFile
Application.DisplayAlerts = False
cht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
gruß
achim h.