Bilder aus einem Ordner in Zelle einfügen
17.04.2015 14:41:12
puma_888
Hallo zusammen,
ich habe einen Code, der mir ein Bild aus dem Ordner "Sample Pictures" in die Zelle B6 bzw. D6 einfügt, wenn in dieser Zelle der entsprechende Name der Bildbezeichnung steht. Dies funktioniert soweit auch ganz gut. Nun zu meiner Frage. Wie müsste ich diesen Code erweitern, damit es mir, eine MsgBox anzeigt mit der Meldung "kein Bild hinterlegt" wenn in der Celle B6 oder D6 ein Wort steht, für das kein Bild mit der entsprechenden Bildbezeichnung im Ordner "Sample Pictures" hinterlegt ist. Wie ich eine entsprechende MsgBox mit den entsprechenden Worten aufrufe ist mir klar, ich komm gerade noch nicht auf den rest des Codes. Momentan sieht der Code folgendermaßen aus. Vielleicht kann mir jemand weiterhelfen :).
Private Sub Worksheet_Activate()
Dim strPfad As String
Dim picBild As Picture
Dim strPfad1 As String
Dim picBild1 As Picture
Worksheets("Vergleichsformular").DrawingObjects.Delete
On Error Resume Next
strPfad = "C:\Users\Public\Pictures\Sample Pictures\"
Set picBild = Worksheets("Vergleichsformular").Pictures.Insert(strPfad & Range("B6"). _
Value & ".jpg")
With picBild
.Top = Range("B6").Top + 2
.Height = 90
.Left = Range("B6:C6").Left + (Range("B6:C6").Width - picBild.Width) / 2
End With
strPfad1 = "C:\Users\Public\Pictures\Sample Pictures\"
Set picBild1 = Worksheets("Vergleichsformular").Pictures.Insert(strPfad1 & Range("D6"). _
Value & ".jpg")
With picBild1
.Top = Range("D6").Top + 2
.Height = 90
.Left = Range("D6:E6").Left + (Range("D6:E6").Width - picBild1.Width) / 2
End With
End Sub
Gruß
Markus