miniversum
Goto Top

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:

    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

Content-ID: 69536

Url: https://administrator.de/contentid/69536

Ausgedruckt am: 21.11.2024 um 12:11 Uhr