Thema Datum  Von Nutzer Rating
Antwort
07.10.2011 14:17:32 Chris
NotSolved
07.10.2011 14:28:02 Chris
NotSolved
08.10.2011 01:35:52 Till
NotSolved
Blau Excel-Diagramm in ein Word-File kopieren
 08.10.2011 01:35:57 Till
NotSolved
10.10.2011 09:34:26 Gast77203
NotSolved
10.10.2011 13:01:06 Dekor
NotSolved
10.10.2011 15:44:43 Chris
NotSolved
10.10.2011 15:44:46 Chris
NotSolved
10.10.2011 19:19:51 Till
NotSolved
11.10.2011 12:12:03 Dekor
NotSolved
11.10.2011 20:57:46 Till
NotSolved
12.10.2011 12:32:45 Dekor
NotSolved
17.10.2011 11:57:46 Chris
NotSolved
17.10.2011 12:11:09 Dekor
NotSolved
17.10.2011 12:25:16 Dekor
NotSolved
17.10.2011 12:44:21 Dekor
NotSolved
17.10.2011 16:41:50 Till
NotSolved
18.10.2011 13:53:29 Chris
NotSolved
24.10.2011 11:28:36 Gast72363
NotSolved
24.10.2011 12:30:10 Dekor
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
08.10.2011 01:35:57		 Views:
1641		 Rating:
     
Antwort:
  Ja
Thema:
Excel-Diagramm in ein Word-File kopieren

Versuch mal Excel und Word zu trennen, also er kopieren und dann den Word Teil. Vielleicht hilft das. Mir ist nicht ganz klar warum du das in der Reihenfolge ausführst...

Ändert sich so etwas?

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Option Explicit
 
Sub Copy2Word()
Application.ScreenUpdating = False
  
        Call CheckPath(s_Path)
  
    'If n_CellsCounter = 1 And n_Zellenposition = 1 Then
    If b_WordDone = False Then
        b_WordDone = True
        Set app_word = CreateObject("word.application").Documents.Add(Worksheets("Parameter").Range("PAR_Template").Text).Application
        With app_word.ActiveDocument
            'Eingabedaten in das Production Sheet übernehmen
            .CustomDocumentProperties("D") = frm_Insert.txt_D.Text
            .CustomDocumentProperties("N") = frm_Insert.cbo_N.Text
            .CustomDocumentProperties("P") = frm_Insert.cbo_O.Text
            .CustomDocumentProperties("A") = frm_Insert.cbo_A.Text
            .CustomDocumentProperties("S") = s_FileName
            .CustomDocumentProperties("T") = frm_Insert.cbo_T.Text
            .CustomDocumentProperties("Date") = Date
            .CustomDocumentProperties("E") = frm_Insert.cbo_E.Text
            .CustomDocumentProperties("Z") = frm_Insert.cbo_Z.Text
            .CustomDocumentProperties("Te") = frm_Insert.txt_Te.Text
            .CustomDocumentProperties("In") = frm_Insert.cbo_In.Text
            .CustomDocumentProperties("Ku") = frm_Insert.cbo_Ku.Text
            .CustomDocumentProperties("Po") = frm_Insert.cbo_Po.Text
            .CustomDocumentProperties("Dru") = frm_Insert.txt_Dru.Text
            .CustomDocumentProperties("Dr") = frm_Insert.txt_Dr.Text
              
            'Dokument zum ersten Mal abspeichern
            .SaveAs Filename:=s_Path & s_FileName, FileFormat:=wdFormatDocument
        End With
    End If
     
        Sheets("Diagramme").Select
        ActiveSheet.ChartObjects("Chart 1").Activate
        ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:= _
        xlPicture
        With app_word.Selection
            'name als Überschrift einfügen, Diagramme kopieren und anhängen
            .Move unit:=wdStory, Count:=1
            .InsertBreak Type:=wdPageBreak
            .Style = .ActiveDocument.Styles("Überschrift 1")
            .TypeText Text:=frm_InsertSolarCell.txt_Serie.Text & "_" & frm_InsertSolarCell.cbo_Device.Text & "_" & s_Zellenposition
            .TypeParagraph
            .TypeText Text:=frm_InsertSolarCell.txt_Kommentar.Text
 
            .TypeParagraph
            '.Selection.MoveDown unit:=wdLine 'stattdessen Enter eintragen
            .Paste
        End With
         
        ActiveSheet.ChartObjects("Chart 2").Activate
        ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:= _
        xlPicture
        With app_word.Selection
            .TypeParagraph
            '.Selection.MoveDown unit:=wdLine 'stattdessen Enter eintragen
            .Paste
        End With
 
        Sheets("So").Select
        Cells(n_LastRowNr, Range("SC_Filename").Column).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=s_Path & s_FileName & ".doc", TextToDisplay:= _
        s_FileName
         
'Application.ScreenUpdating = False
End Sub

Und guck mal bei deinem Freund, ob unter VBA/Extras/Verweise irgendwelche Bibilotheken "NICHT VORHANDEN" drinnen sind, wenn ja nimm da mal den Haken raus und versuchs nochmal...

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.10.2011 14:17:32 Chris
NotSolved
07.10.2011 14:28:02 Chris
NotSolved
08.10.2011 01:35:52 Till
NotSolved
Blau Excel-Diagramm in ein Word-File kopieren
 08.10.2011 01:35:57 Till
NotSolved
10.10.2011 09:34:26 Gast77203
NotSolved
10.10.2011 13:01:06 Dekor
NotSolved
10.10.2011 15:44:43 Chris
NotSolved
10.10.2011 15:44:46 Chris
NotSolved
10.10.2011 19:19:51 Till
NotSolved
11.10.2011 12:12:03 Dekor
NotSolved
11.10.2011 20:57:46 Till
NotSolved
12.10.2011 12:32:45 Dekor
NotSolved
17.10.2011 11:57:46 Chris
NotSolved
17.10.2011 12:11:09 Dekor
NotSolved
17.10.2011 12:25:16 Dekor
NotSolved
17.10.2011 12:44:21 Dekor
NotSolved
17.10.2011 16:41:50 Till
NotSolved
18.10.2011 13:53:29 Chris
NotSolved
24.10.2011 11:28:36 Gast72363
NotSolved
24.10.2011 12:30:10 Dekor
NotSolved