Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Diagramm dyn. erstellen und nach Word übertragen

Diagramm dyn. erstellen und nach Word übertragen
09.05.2006 12:09:14
Horst
Hey !
Ist es moeglich in Excel aus bestimmten Tabellenspalten eine bestimmtes Diagramm dynamisch zu erstellen, und dieses dann dynamisch in ein worddokument zu uebertagen.
Gut dynamisch habe ich ueber makro aufzeichen gemacht!
Geht es auch eleganter?
Bloss wie bringe ich es dann auf ein worddokument?
Wer wei hier weiter?
Gruss
horst
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm dyn. erstellen und nach Word übertragen
09.05.2006 17:21:37
Herbert
hallo Horst,
auf ein Word-doc bringst du es so:


Public Sub Diagramm_nach_Word()
Dim wordApp As Word.Application
    Workbooks("Diagramm nach Word.xls"). _
    Sheets(1).ChartObjects(1).Copy
    Set wordApp = CreateObject("Word.Application")
With wordApp
    .Visible = True
    .Documents.Add Template:="Normal"
End With
    ActiveDocument.ActiveWindow.Panes(1).Selection.Paste
End Sub

     gruß Herbert
Anzeige
AW: Diagramm dyn. erstellen und nach Word übertrag
11.05.2006 11:38:52
Horst
Hallo herbert !
mit einer kleinen aenderung fusioniert es auch bei mir:
---------------
Public

Sub Diagramm_nach_Word()
Tabelle1.ChartObjects(1).Copy
Set wordApp = CreateObject("Word.Application")
With wordApp
.Visible = True
.Documents.Add Template:="Normal"
End With
wordApp.ActiveWindow.Panes(1).Selection.Paste
End Sub

---------------------------------
Kannst mit noch mal schreiben wie ich das ChartObject in eine ganz bestimmte stelle kopieren kann.
Meinet wegen in eine tabelle, oder eine textfeld oder so.
Waere echt toll, danke
horst
Anzeige
AW: Diagramm dyn. erstellen und nach Word übertrag
12.05.2006 22:54:55
Herbert
so kannst du Word Aktivieren,ein bestimmtes Dokument öffnen,
und das Diagramm beliebig positionieren...


Public Sub Diagramm_nach_Word_1()
Dim wordApp As Word.Application
Workbooks("Diagramm nach Word.xls").Sheets(1).ChartObjects(1).Copy
'Set wordApp = CreateObject("Word.Application")
'wordApp.Visible = True
Application.ActivateMicrosoftApp xlMicrosoftWord
Documents.Open Filename:="C:\Eigene Dateien\Doc1.doc", ReadOnly:=False
With Documents("Doc1.doc")
    .Content.Paste
    .Shapes(2).IncrementLeft -139.1
    .Shapes(2).IncrementTop 101.6
End With
End Sub

     gruß Herbert
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige