Hallo Christ,
die LoadPicture-Funktion dient dazu, ein Image aus einer Datei zu laden und zum Beispiel in ein Image-Objekt einzubetten.
In Deinem Code sehe ich kein Image-Objekt.
Um ein Bild in eine Zelle einzuladen, empfehle ich die u.a. AddPicture-Funktion, die ein Bild als Shape einfügt.
Im Beispielcode wird das Bild auch gleich auf die Höhe des Zielfeldes skaliert. Ich weiß nicht, ob das in Deinem Sinne ist.
PS: Bitte beachten: Wenn das interaktiv wechseln soll, sollte vor Einfügen des jeweils anderen Bildes das alte erst mal gelöscht werden.
Probiere es einfach mal aus.
Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19 |
|
Sub Mailsenden_Klicken()
Dim sPic As String, AC As Range, WSh As Worksheet
Const sPath As String = "C:\Users\Christoph\Desktop\Pension\Angebot_Bestätigung\"
' Automatisch soll bei Klick kontrolliert werden, ob Sommer oder Winter in der Spalte 37 steht und dann das richtig Bild eingefügt werden
Set WSh = ThisWorkbook.Worksheets("EmailD") ' Zielblatt
Set AC = WSh.Range("A1") ' Zielzelle
sPic = IIf(WSh.Cells(ActiveCell.row, 37).Value Like "Sommer", "Sommer", "Winter")
With WSh.Shapes.AddPicture(Filename:=sPath & sPic & ".jpg", _
LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _
Left:=AC.Left, Top:=AC.Top, _
Width:=-1, Height:=-1)
.LockAspectRatio = msoTrue
.Height = .TopLeftCell.Height ' Höhe an das Feld anpassen
.Placement = xlMoveAndSize
End With
End Sub
|
_________
viele Grüße
Karl-Heinz
|