Diagramme in Arbeitsblatt in Bilder umwandeln
12.08.2007 23:03:00
uli
In einer Arbeitsmappe werden fast 1000 Diagramme automatisch erstellt. Leider funktioniert die Seitenansicht nicht mehr, da "keine weiteren Schriftarten mehr hinzugefügt werden können." Komischerweise stört sich nur die Seitenansicht daran. Alles andere funktioniert. Hab jetzt schon intensiv daran rumgefummelt, wie z.B. die Autoskalierung der Diagramme ausgestellt, hilft aber nichts.
Daher wollte ich jetzt mal den etwas unschönen, allerdings wahrscheinlich einfachsten Weg wählen, und alle Diagramme, nachdem sie erstellt wurden, in Bilder umwandeln.
Weiß jemand wie das funktioniert?
Hatte mir da sowas wie:
Dim diagramm as ChartObject
For Each diagramm In ActiveSheet.ChartObjects
-- Hier jetzt Diagramm umwandeln
next
Kennt ihr eine Anweisung, die die Diagramme in Bilder umwandeln kann? Oder habt ihr vielleicht noch eine bessere Idee, wie ich diesen Fehler vermeiden kann?
Gruß
Uli