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, 1544 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
Microsoft Office
PowerPoint 2013 kann eingebettetes Video nicht abspielen (10)

Frage von winIT3264 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel oder google Sheets automatisch aktualisieren bei neuen Werten? (14)

Frage von Stoffn zum Thema Microsoft Office ...

Microsoft Office
gelöst Nach Domain Change Pfade anpassen (8)

Frage von 131071 zum Thema Microsoft Office ...

VB for Applications
gelöst Wieso wird das Bild in der PictureBox nicht angezeigt? (6)

Frage von gabrixl zum Thema VB for Applications ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
CNC Maschinen verlieren Netzwerkverbindung (kurioser Fehler) (22)

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

Webentwicklung
Aktuellen Mitarbeiter auf Homepage anzeigen (13)

Frage von alemanne21 zum Thema Webentwicklung ...

Windows Server
gelöst Parameter Übergabe Terminal Server (9)

Frage von ThomasKern zum Thema Windows Server ...

Batch & Shell
Anfängerfragen - Powershell - Mailboxvertretung im Pulk einrichten (8)

Frage von Yoshimitsu zum Thema Batch & Shell ...