Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Gruppierung von Diagramm aus Excel nach Word holen.

Frage Entwicklung VB for Applications

Mitglied: miniversum

miniversum (Level 3) - Jetzt verbinden

26.09.2007 um 10:52 Uhr, 6868 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
Ähnliche Inhalte
Viren und Trojaner
gelöst Word und Excel per Mail gesperrt - Alternative? (7)

Frage von Coreknabe zum Thema Viren und Trojaner ...

Microsoft Office
gelöst Excel Diagramm - Datum wird nicht aktualisiert (10)

Frage von KMP1988 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(29)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Windows Server

Exchange 2010 Active Directory und Windows Server 2016

(4)

Erfahrungsbericht von Herbrich19 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Internet
gelöst Mitarbeiter surft auf unerwünschter Seite - Wie damit umgehen? (44)

Frage von sabines zum Thema Internet ...

Netzwerke
Wie erstelle ich ein Intranet (19)

Frage von Leonardnet zum Thema Netzwerke ...

LAN, WAN, Wireless
gelöst Eintägige Netzwerkunterbrechung trotz Backupleitung (15)

Frage von iAmbricksta zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2012 R2 - Zugriff Verweigert bei jeglicher Tätigkeit (13)

Frage von DarkLevi zum Thema Windows Server ...