Application.SetDefaultChart - Problem
25.09.2004 09:31:45
Torsten
Seit Tagen quäle ich mich mit folgendem Problem herum
und hoffe nun auf Eure Hilfe.
Bei mir auf der Arbeit wird im Laborbereich mit einem schon
größeren Excel-Tool gearbeitet. Dieses wurde vor Jahren mit
Excel95 geschrieben und besteht aus 3 Dateien:
1.) Laborpaketprogramme.xla (wird im Ordner office\excel\makros abgelegt)
- enthalten sind diverse Funktionen, Subs und Formblätter
2.) xlformt.xls (wird im Ordner office\excel\formt abgelegt
- Inhalt: 3 relevante Diagramme
3.) Laborpaket.xlt
- Startet den ganzen Spaß, und beinhaltet einige Sheets
Meine Aufgabe besteht nun darin dieses Tool auf einer höheren/neueren
Excel-Version lauffähig zu machen. Dies funktioniert bisher auch recht gut.
Nur komme ich an folgender Stelle einfach nicht weiter.
Ein Makro des Add-Ins (Laborpaketprogramme.xla) greift auf ein Diagramm
( DiagrammSiebung )der xlformt.xls zu. (So habe ich den Programmcode
zumindest verstanden).
Dieser Zugriff scheint irgendwie nicht zu funktionieren.
Zumindest bekomme ich in der 2.Zeile eine Fehlermeldung.
'--------- Zuordnen des hinterlegten Musterdiagramms in der Datei Xl5formt ----
Application.SetDefaultChart FormatName:="DiagrammSiebung"
'--------- Plazieren des 1. Diagramms -----------------------------------------
pos = Sheets("Körnlinie").Cells(11, 1).Top + 2
Sheets("Körnlinie").ChartObjects().Add(0, pos, 444, 253).Name = "Diagramm1"
Sheets("Körnlinie").ChartObjects("Diagramm1").Chart.DisplayBlanksAs=xlInterpolated
'-------Übernehmen der Seiteneinstellung für die Position der Diagramme--------
ZeilGera = ThisWorkbook.Sheets("Merken").Cells(77, 2) ZeilUngera = ThisWorkbook.Sheets("Merken").Cells(78, 2)
Vielleicht kann ja irgendwer helfen.
Mit freundlichem Gruß
Torsten