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

Mitglied: gluehbirne

gluehbirne (Level 1) - Jetzt verbinden

15.03.2014 um 21:53 Uhr, 1586 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
Sicherheit
Sicherheitsrisiko: Die Krux mit 7-Zip
Information von kgborn vor 2 StundenSicherheit

Bei vielen Anwendern ist das Tool 7-Zip zum Entpacken von Archivdateien im Einsatz. Die Software ist kostenlos und steht ...

Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 12 StundenInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Erkennung und -Abwehr

Ups: Einfaches Nullzeichen hebelte den Anti-Malware-Schutzt in Windows 10 aus

Information von kgborn vor 1 TagErkennung und -Abwehr

Windows 10 ist das sicherste Windows aller Zeiten, wie Microsoft betont. Insidern ist aber klar, das es da Lücken, ...

Windows 10

Windows 10 on ARM: von Microsoft entfernte Info - Klartext, was nicht geht

Information von kgborn vor 1 TagWindows 10

Windows 10 on ARM ist ja eine neue Variante, die Microsoft im Verbund mit Geräteherstellern am Markt etablieren will. ...

Heiß diskutierte Inhalte
Server
Route-Befehl Unterstützung (unter CMD)
gelöst Frage von FKRR56Server36 Kommentare

Guten Tag , i.M. habe ich Probleme über den CMD-Route-Befehl ein Routing auf einen entfernten Server zuzulassen. Der Server ...

Windows 10
Windows 10 (1709) Tastur und Maus wieder einschalten?
Frage von LochkartenstanzerWindows 1028 Kommentare

Moin, Ich habe von einem Kunden einen Win10-Rechner bekommen, bei dem weder Tastatur noch Maus geht. Die Hardware funktioniert ...

Microsoft
TV-Tipp: Das Microsoft-Dilemma
Information von kgbornMicrosoft17 Kommentare

Aktuell gibt es in Behörden und in Firmen eine fatale Abhängigkeit von Microsoft und dessen Produkten. Planlos agieren die ...

Webbrowser
Welcher Browser ist der Beste?
Frage von justtinWebbrowser15 Kommentare

Hallo Leute Ich habe eine interessante Frage. Mich wurde mal interessieren welcher Browser ist eure meinung nach der beste? ...