Dateipfad Bildobjekt
08.04.2013 20:01:41
Michael
ich benoetige eure Hilfe. Ich lade ueber folgenden Code:
Public Sub LoadPicture1()
Dim varBild As Variant
Dim objImg As Object
varBild = Application.GetOpenFilename(Title:="Choose Picture!")
If varBild = False Then Exit Sub
With Tabelle1.Picture1
.PictureSizeMode = fmPictureSizeModeStretch
.Object.Picture = LoadPicture(varBild)
End With
End Sub
ein Bild in Excel. Ueber einen Button wird eine PDF-Datei aus dem Bild und noch etwas Text erstellt.
Nun moechte ich das selbe Bild in eine Email einfuegen (nicht als Dateianhang, sondern im eMail Body). Leider weiss ich nicht weiter. Bislang versuche ich es so:
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
Set rng = Selection
.To = "Empfaengeremail"
.CC = ""
.BCC = ""
.Subject = "LifeTest Notification " & FileName
.HtmlBody = RangetoHTML(rng) & img src="HierSollteDerPfadZumBildStehen' height=480 width=360
'.Attachments.Add pdfFile
.Display
End With
Beim Tag fehlen die klammern, ist mir bewusst aber sonst hat es mir immer versucht hier ein Bild einzufuegen :)
Jedoch weiss ich nicht, wie ich auf den Pfad des Bildes zugreifen kann. Kann mir jemand dabei helfen oder hat eine andere Idee?
Vielen vielen Dank im Voraus! :)
Michi