Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Pfad eines in Sheet eingebetteten Bildes

Frage Entwicklung VB for Applications

Mitglied: gluehbirne

gluehbirne (Level 1) - Jetzt verbinden

15.03.2014 um 21:53 Uhr, 1560 Aufrufe, 3 Kommentare, 1 Danke

Hi!

ich möchte gerne ein in ein tabellenblatt eingefügtes bild in eine email anhängen und einbetten. das alles klappt ganz gut mit pfaden auf die entsprechenden bilder. jetzt muss ich aber ein bild in ein excel-sheet einfügen und mit in die email einbetten. folgenden code verwende ich dafür:

01.
Dim objlogo As Object 
02.
Dim emblogo As String 
03.
 
04.
Set objlogo = imsg.addrelatedbodypart(Workbooks(ActiveWorkbook.Name).Worksheets("sicherung").Pictures("Grafik 1"), "embedded2", cdoreftypeid) 
05.
objlogo.Fields.Item("urn:schemas:mailheader:Content-id") = "<embedded2>" 
06.
objlogo.Fields.Update 
07.
emblogo = "<img src=" & Chr(39) & "cid:embedded2" & Chr(39) & ">" 
08.
 
auch hier kommt der fehler
01.
 ActiveSheet.Shapes.Range(Array("Grafik")) 
es kommt immer der fehler "datentypen" unverträglich. bekomme ich irgendwie einen ganz normalen pfad der grafik her?

für jede idee sehr dankbar.

mfg
gluehbirne
Mitglied: colinardo
LÖSUNG 16.03.2014, aktualisiert um 15:57 Uhr
Hallo gluehbirne,
bekomme ich irgendwie einen ganz normalen pfad der grafik her?
nein, bekommst du nicht so einfach. Hier musst du entweder mit der .CopyPicture Methode des Shapes arbeiten um die Grafik in die Zwischenablage zu kopieren, und dann in der Nachricht wieder einzufügen, oder du nutzt diese Methode um diese Grafik in ein Chart-Objekt einzfügen welches die gleiche Größe wie das Bild bekommt, denn das Chart-Objekt bietet eine Funktion (Export) um den Inhalt als Bild in das Dateisystem zu exportieren. Von da aus kannst du es dann in deine Mail einbauen.
http://stackoverflow.com/questions/18232987/export-pictures-from-excel- ...

Beispiel Shape als Bild abspeichern:
01.
Sub TestExport() 
02.
    Set myshape = Worksheets(1).Shapes(1) 
03.
    SaveShapeAsImage myshape, "D:\image.jpg", "JPG" 
04.
End Sub 
05.
 
06.
 
07.
Sub SaveShapeAsImage(ByVal shp As Shape, strPath As String, fileFormat As String) 
08.
    Dim co As ChartObject 
09.
    shp.CopyPicture 
10.
    Set co = ActiveWorksheet.ChartObjects.Add(500, 500, 100, 100) 
11.
    With shp 
12.
        co.Width = .Width 
13.
        co.Height = .Height 
14.
    End With 
15.
    co.Chart.Paste 
16.
    co.Chart.Export strPath, fileFormat 
17.
    co.Delete 
18.
End Sub
jetzt muss ich aber ein bild in ein excel-sheet einfügen und mit in die email einbetten.
Warum nutzt du dann nicht den Pfad des Bildes welchen du zum Einbetten in Excel genommen hast ?

Grüße Uwe
Bitte warten ..
Mitglied: gluehbirne
16.03.2014 um 15:56 Uhr
hallo colinardo / uwe,

es funktioniert einwandfrei. besten dank hierfür. ich eportiere das bild nun in thisworkbook.path, anschließend wird es in die email eingebunden und dann wieder gekillt.

ich wollte es so machen, dass die künftigen anwender nur eine datei brauchen. das in die email eingefügte bild ist ein logo, welches aber die anwender nicht haben bzw. nicht immer am gleichen speicherort. daher die idee es mit in die excel-datei zu packen und daraus in die mail zu laden.

ich weiß ja nicht was du tust - aber ich bewundere es, dass du scheinbar immer eine lösung findest - scheinbar recherchiere ich falsch ^^

tausend dank nochmal

mfg gluehbirne
Bitte warten ..
Mitglied: colinardo
16.03.2014, aktualisiert um 17:38 Uhr
Zitat von gluehbirne:
ich weiß ja nicht was du tust - aber ich bewundere es, dass du scheinbar immer eine lösung findest - scheinbar
recherchiere ich falsch ^^
Also ich bin einer der Sorte, die erst mal die Hilfen und Referenzen der jeweiligen Programme studieren als immer direkt Google zu bemühen (0,3 kWh Strom / Google-Anfrage sind mir dafür dann doch zu viel). Sicher gehört auch Erfahrung dazu, aber wenn du unbedingt Google dazu benutzen willst sei dir unbedingt angedacht, auf Englisch zu suchen => das bringt dir mehr gute Ergebnisse.

Grüße Uwe
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
Eingebettete Bilder in eine Mail werden beim Senden abgeschnitten
gelöst Frage von RothenbacherOutlook & Mail3 Kommentare

Der Client: Toshiba Tablet mit Windows 8.1 mit Office 2013 Die Einstellungen: Outlook wird im RTF-Format betrieben, weil hier ...

Outlook & Mail
Outlook 2013 - Standardpfad zum speichern von eingebetteten Bildern ändern
Frage von TiTuxOutlook & Mail2 Kommentare

Hallo, wir nutzen Outlook 2013 und einige Mitarbeiter erhalten viele E-Mails, in denen ein Bild nicht im Anhang, sondern ...

Datenbanken
Bilder über einen Pfad als Binärobjekt in eine Tabelle einfügen
Frage von skiing69Datenbanken4 Kommentare

Hallo, ich habe eine Tabelle (BilderPfad), der einen Pfad für eine JPG-Datei beinhaltet. Jetzt möchte ich die Datensätze in ...

Exchange Server
Mit Active Sync gekoppelte Smartphones leiten keine Mails weiter in denen ein Bild eingebettet ist
gelöst Frage von gechgerExchange Server2 Kommentare

Hallo an alle, vor kurzem sind alle in unserer Firma mit Active Sync fähigen Geräten ausgestattet worden (zum Teill ...

Neue Wissensbeiträge
Erkennung und -Abwehr

Necur-Botnet soll Erpressungstrojaner Scarab massenhaft verbreiten

Information von BassFishFox vor 6 StundenErkennung und -Abwehr

12,5 Millionen Spam-Mails aus einem Bot-Netz mit 6 Millionen Computern? Eigentlich eine schwache Leistung. Die Erpresser setzen dabei auf ...

Microsoft

Nadeldrucker-Problem unter Windows - Microsoft liefert Updates

Information von BassFishFox vor 7 StundenMicrosoft

Hat ja nicht lange gedauert. Nachdem die November-Updates für Windows 7, 8.1 und 10 zahlreiche Nadeldrucker lahmgelegt hatten, stellt ...

Linux

Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde

Information von Frank vor 14 StundenLinux14 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Batch & Shell

Open Object Rexx: Eine mittlerweile fast vergessene Skriptsprache aus dem Mainframebereich

Information von Penny.Cilin vor 1 TagBatch & Shell9 Kommentare

Ich kann mich noch sehr gut an diese Skriptsprache erinnern und nutze diese auch heute ab und an noch. ...

Heiß diskutierte Inhalte
Windows Server
Kann man im KMS nachschauen , wieviele Clients den Key in Anspruch genommen haben
gelöst Frage von rainergugusWindows Server15 Kommentare

Hallo, wir haben einen KMS Windows 10 Key. Dieser ist ja W7 kompatibel. Aber unser Windows 7 Pool registriert ...

Linux
Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde
Information von FrankLinux14 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Router & Routing
Zwei Netzwerke erstellen
Frage von bunteblumeRouter & Routing14 Kommentare

Hallo Zusammen, Ich möchte gerne ein backup von einem bestimmten Folder welcher auf dem Server regelmässig synchronisiert wird auf ...

Off Topic
Fachkräftemangel in Deutschland? - Talentschmiede schreibt alle 2 Tage die gleichen Stellen aus
Frage von Penny.CilinOff Topic12 Kommentare

Hallo, haben wir in Deutschland Fachkräftemangel? Die Talentschmiede schreibt gefühlt alle zwei Tage dieselben Stellen aus. Und das schon ...