grafik fehlermeldung und ergänzung
16.11.2006 11:56:37
achim
wer kennt sich aus und kann helfen:
bekomme den fehler = Laufzeitfehler 91 - Objektvariable oder with-blockvariable nicht festgelegt
und
ich hätte gerne das die werte über den säulen angezeigt werden
nun der code
Private Sub UserForm_initialize()
Dim cht As Chart
Dim sFile As String
sFile = Application.Path & "\test.gif"
Set cht = Charts.Add
Application.ScreenUpdating = False
With cht
.SetSourceData Source:=Sheets("Ort").Range("G4:AB5"), PlotBy:=xlRows
.SeriesCollection(1).Interior.ColorIndex = 3
.HasLegend = False
.Export sFile
End With
With OrtGraf
.Frame1.Picture = LoadPicture(sFile)
.Show
End With
End Sub
danke achim h.
Anzeige