Gruppierung von Diagramm aus Excel nach Word holen.
Wir kann ich eine Gruppierung von Excel nach word kopieren ohne die Exceldatei neu zu öffnen.
Hallo
Ich arbeite mit Office 2003 unter Windows xp pro.
Ich hole in Word per VBA Diagramme aus mehreren Exceldateien.
Die Diagramme sind zum Teil reine Diagramme und zum Teil Gruppierungen mit jeweils einem Textfeld.
Die Diagramme und Gruppierungen hole ich auf diese Weise:
So funktioniert das auch alles mit einem kleinen Schönheitsfehler. Will ich ein reines Diagramm holen geht es ohne Probleme. Will ich allerdings eine Gruppierung holen wird in der Programmzeile inder die Gruppierung kopiert werden soll, also diese:
Kann ich diese Programmzeile durch eine andere, bessere ersetzen die diesen Effekt des schliessens und wieder neu öffnens nicht hat?
mfg.
miniversum
Hallo
Ich arbeite mit Office 2003 unter Windows xp pro.
Ich hole in Word per VBA Diagramme aus mehreren Exceldateien.
Die Diagramme sind zum Teil reine Diagramme und zum Teil Gruppierungen mit jeweils einem Textfeld.
Die Diagramme und Gruppierungen hole ich auf diese Weise:
Set xlWkb = GetObject(PfadmitDatei)
xlSaveState = xlWkb.Saved
xlWkb.Parent.Visible = True
xlWkb.Parent.Windows(1).Visible = True
xlWkb.Parent.WindowState = wdWindowStateMinimize
xlWkb.Activate
'Diagramm holen
xlWkb.Sheets(Blatt).Activate
On Error GoTo IsGroup
'wenn Diagramm dann kopiere hier
xlWkb.Sheets(Blatt).ChartObjects(Dianame).Activate
xlWkb.ActiveChart.ChartArea.Copy
GoTo PasteIt
IsGroup:
'wenn Gruppierung dann kopiere hier
xlWkb.Sheets(Blatt).Shapes(Dianame).Copy
PasteIt:
'Einfügen
Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine
xlWkb.Saved = xlSaveState
So funktioniert das auch alles mit einem kleinen Schönheitsfehler. Will ich ein reines Diagramm holen geht es ohne Probleme. Will ich allerdings eine Gruppierung holen wird in der Programmzeile inder die Gruppierung kopiert werden soll, also diese:
xlWkb.Sheets(Blatt).Shapes(Dianame).Copy
Die Exceldatei geschlossen und nochmal neu geöffnet. Dies ist sehr nervend, weil die Exceldateien zum Teil 40MB und größer sind wodurch das ganze wesentlich mehr zeit in anspruch nimmt bei Grupierungen als bei reinen Diagrammen.Kann ich diese Programmzeile durch eine andere, bessere ersetzen die diesen Effekt des schliessens und wieder neu öffnens nicht hat?
mfg.
miniversum
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 69536
Url: https://administrator.de/contentid/69536
Ausgedruckt am: 21.11.2024 um 12:11 Uhr