Chart ausdrucken
09.08.2005 10:37:51
Karl
habe folgenden Code in meinem Programm:
Sub Print_Charts()
Dim chtObj As ChartObject
Worksheets("Sensitivity Tables2").Activate
ActiveSheet.[ch_print].Select
For Each chtObj In ActiveSheet.ChartObjects
chtObj.Chart.Print
Next chtObj
'ActiveSheet.ChartObjects(1).Delete
ActiveSheet.[ch_sense].Select
Selection.Delete
End Sub
Dabei bekomme ich die Fehlermeldung 438 das 'Object does not support this property or method.
WIESO? Ich will eigentlich nur eine Funktion haben die die eingebetteten Charts in "Sensitivity Tables2" ausdruckt.
Fuer Eure Hilfe bin ich wie immer mehr als dankbar,
Viele Gruesse,
Karl