Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

209 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige