Gruppierung von Diagramm aus Excel nach Word holen.

Mitglied: miniversum

miniversum (Level 3)

26.09.2007 um 10:52 Uhr, 7116 Aufrufe

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:

01.
    Set xlWkb = GetObject(PfadmitDatei)
02.
    xlSaveState = xlWkb.Saved
03.
    xlWkb.Parent.Visible = True
04.
    xlWkb.Parent.Windows(1).Visible = True
05.
    xlWkb.Parent.WindowState = wdWindowStateMinimize
06.
    xlWkb.Activate
07.
    
08.
    'Diagramm holen
09.
    xlWkb.Sheets(Blatt).Activate
10.
On Error GoTo IsGroup
11.
    'wenn Diagramm dann kopiere hier
12.
    xlWkb.Sheets(Blatt).ChartObjects(Dianame).Activate
13.
    xlWkb.ActiveChart.ChartArea.Copy
14.
GoTo PasteIt
15.
IsGroup:
16.
    'wenn Gruppierung dann kopiere hier
17.
    xlWkb.Sheets(Blatt).Shapes(Dianame).Copy
18.
    
19.
PasteIt:
20.
    'Einfügen
21.
    Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine
22.
    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
Titel: Gruppierung von Diagramm aus Excel nach Word holen.
Content-ID: 69536
Art des Inhalts: Frage
Ausgedruckt am: 22.11.2019 um 13:17:41 Uhr
URL: https://administrator.de/contentid/69536