Office: Diagramm aus Excel als Bild in Outlook und positonieren

Hallo zusammen,

eine Frage zum Erstellen von Outlook Mails per VBA und einfügen von Diagrammen als Bild.

Ich habe folgenden Code, welcher mir eine Mail mit Betreff und Body erstellt.

Code:

Ich habe hiermit zwei Probleme:

a) wenn ich einfüge per SendKeys "^v", True dann ist die Grafik oben links positioniert (über den Text eingefügt).

Füge ich jedoch per Rechtsklick -> Grafik ein, dann genau dort wo ich es möchte, nämlich unter dem Text. Wie kann ich das Einfügen als Grafik in Outlook am Ende des Bodys automatisieren?

b) Obwohl mein Body Code für mich in Ordnung aussieht, habe ich vor dem "Hallo" immer einen automatischen Tab eingefügt, so dass sich die Anrede verschiebt. Könnt ihr das erklären?

Anbei zwei Bilder, um den Sachverhalt zu verdeutlichen.


Viele Grüße,

Dominik

:)

 

Hallo, *Smilie

arbeite nicht mit "SendKeys", sondern nimm den Code von Ron de Bruin: *wink.gif*

Mail chart or chart sheet as picture...

Servus
Case

 

Hi,

vielleicht hilft dir dieser Code:

Code:

Beachte bitte, dass dir Leerzeichen vor br und vor img gelöscht werden müssen - das ist hier erforderlich, da der Code sonst als HTML-Code interpretiert und umgewandelt wird.

 

Hallo Case, hallo Karin,

entschuldigt, dass ich mich erst nach dem Wochenende wieder melde.

Ich habe eure jeweiligen Codes probiert, sie funktionieren mit Diagrammen reibungslos. Da habe ich sogar die Wahl, ob in den Text platziert (Karin) oder als Anhang (case).

Mein Problem ist jedoch, dass ich das ursprüngliche Diagramm mit zwei Textfeldern zu einem "Shape" gruppiert habe, wodurch der Code entsprechend abbricht.

Im Anhang, wie mein "Diagramm" an sich aussieht.

Interessant finde ich, und das kann ich mir nicht erklären, dass ich auch andere Diagramme mit Textfeldern kombiniert habe und bei einigen (ich testete die Nummern durch) läuft der Code trotzdem. Hier ist das Textfeld jedoch einfach über dem Diagramm ohne Gruppierung. Gibt es da einen entsprechenden Trick beim einfügen (vor oder hinter den Text, eventuell anders Gruppieren, etc.)

Falls ich mich unklar ausgedrückt habe, bitte meldet euch entsprechend.


Viele Grüße,

Dominik

 

Hi Dominik,

in dem Fall musst du das Shape exportieren:

Code:

 

Hallo Dominik, *Smilie

anbei ein Beispiel: *wink.gif*

Servus
Case

 

Hallo ihr beiden,

ich habe das Bsp. von Case noch nicht angeschaut, habe jedoch noch eine Verständnisfrage.

Meine "Shape" in der Mail wird im Miniformat eingefügt (siehe Bild), wo kann ich hier die Maße entsprechend bestimmen?

/edit: Auch bei Case kommt die Shape nicht in der "Originalgröße" aus Excel nach Outlook.

Könnt ihr mir nochmal helfen?


Viele Grüße,

Dominik

 

Ich antworte mir mal selbst.

Es ist erledigt, ich habe die vorgegebenen Höhen/Breiten Vorgaben rausgenommen.


Danke an alle.