Thema Datum  Von Nutzer Rating
Antwort
Rot 2 Diagramme nebeneinander einfügen VBA Outlook Excel
 28.10.2019 21:04:34 Timo
NotSolved

Ansicht des Beitrags:
Von:
Timo		 Datum:
28.10.2019 21:04:34		 Views:
1376		 Rating:
     
Antwort:
  Ja
Thema:
2 Diagramme nebeneinander einfügen VBA Outlook Excel

Hallo zusammen,

ich würde gerne per VBA eine automatisch eine Email erzeugen. In dieser sollen Diagramme nebeneinander dargestellt werden. Leider habe ich keine Erfahrung mit Word VBA..

?
1
2
3
4
5
        'Diagramme einfügen
        ThisWorkbook.Sheets("Sheet1").ChartObjects("Diagramm 1").Copy
        wEditor.Paragraphs(Zeile).Range.Paste
 
Wie kann ich nachdem ich das erste Diagramm eingefügt habe, das nächste dahinter einfügen? Ich habe mich schon wund gegooglet leider ohne erfolg...

Ich bin um jede Hilfe dankbar

?
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
Sub ChartPaste()
 
    Dim OutApp As Object
    Dim OutMail As Object
    Dim vInspector As Object
    Dim wEditor As Object
    Dim Zeile As Integer
 
     
    'Outlook öffnen und zuweisen
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    Set wEditor = OutMail.GetInspector.WordEditor
    Zeile = 1
     
    Application.ScreenUpdating = False
 
 
    With OutMail
         
        'Signatur entfernen
        wEditor.Range.Delete
         
        'Empfänger wie in Tabelle definiert
        .TO = "Emailadresse"
         
        'Betreff
        .Subject = "Monatlicher Bericht"
         
        'Anrede und Zeilenumbrüche einfügen um später in die Umbrüche Diagramme einfügen zu können
         wEditor.Paragraphs(Zeile).Range.Text = "Hallo zusammen," & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr
          
         'Zwei Umbrüche weiterrücken und Text einfügen
         Zeile = Zeile + 2
         wEditor.Paragraphs(Zeile).Range.Text = "im Anhang der monatliche Berich"
         'Ein Umbruch weiter
         Zeile = Zeile + 1
 
        '3 Umbrüche weiter
        Zeile = Zeile + 3
 
        'Diagramme einfügen
        ThisWorkbook.Sheets("Sheet1").ChartObjects("Diagramm 1").Copy
        wEditor.Paragraphs(Zeile).Range.Paste
         
        Zeile = Zeile + 2
         
        wEditor.Paragraphs(Zeile).Range.Text = "(Diese Email wurde automatisch erzeugt)"
         
         .display
 
    End With
 
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

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
Rot 2 Diagramme nebeneinander einfügen VBA Outlook Excel
 28.10.2019 21:04:34 Timo
NotSolved