Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 1495 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.

Mit freundlichen Grüßen
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

Mit freundlichen Grüßen 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Windows Userverwaltung
Servergespeichertes Profil - Pfad ausfindig machen (6)

Frage von staybb zum Thema Windows Userverwaltung ...

Batch & Shell
Leerzeichen im Pfad (4)

Frage von Jallio zum Thema Batch & Shell ...

Batch & Shell
gelöst Per Batch Winrar entpacken - Probleme bei Pfad (7)

Frage von Concurve zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (33)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...