Moin moin,
habe das nochmal probiert. und ein \ hinter den Pfad angefügt.
Bekomme jetzt auch nicht mehr "Bild nicht Vorhanden" angezeigt. sondern nur noch #Name? als Fehler.
auch wenn ich die Änderung zurück nehme.
--
Public Function ZeigeBild(ByVal strBildname As String, Bildhöhe As Long) As String
Dim strDatei As String
Dim Bildbreite As Double
Dim Bildhoehe As Double
Dim meinBild
Dim strZielzelle As String
strZielzelle = Application.Caller.Address
strDatei = "pfad zum Bild\" & strBildname & ".jpg"
If Dir(strDatei) <> "" Then
Set meinBild = LoadPicture(strDatei)
Bildbreite = meinBild.Width
Bildhoehe = meinBild.Height
ActiveSheet.Shapes.AddPicture strDatei, msoFalse, msoTrue, Range(strZielzelle).Left, Range(strZielzelle).Top, Bildhöhe * 28.35 * Bildbreite / Bildhoehe, Bildhöhe * 28.35
ZeigeBild = "Bild"
Else
ZeigeBild = "Bild nicht vorhanden"
End If
End Function