Eingefügte Fotos mit Schatten-Effekt versehen ?
k
ich verwende folgenden Code um Bilder in ein Sheet zu packen. Würde diese aber gern zusätzlich noch mit einem "Schatten" versehen vollen - um sie "hervorzuheben".
Wie kann ich das machen per VBA-Code ?
Gruß
Kay
Sub Fotos_laden()
Dim pic1, pic2 As Picture
Dim strPath2, strPath3 As String
' löschen alter Bilder
MsgBox Worksheets("NLD").Pictures.Count
If Worksheets("NLD").Pictures.Count > 1 Then
On Error Resume Next
For i = 1 To Worksheets("NLD").Pictures.Count
Worksheets("NLD").Pictures(i).Delete
Next i
End If
' Fotos gemäß des Eintrages in VNL laden
LZeile = LPos.Caption
strPath2 = Worksheets("VNL").Cells(LZeile, 24)
strPath3 = Worksheets("VNL").Cells(LZeile, 28)
' Wenn Foto nicht vorhanden dann Eintrag "Kein BILD"
If Dir(strPath2) = "" Then
Worksheets("NLD").Cells("B68") = "KEIN BILD"
End If
If Dir(strPath3) = "" Then
Worksheets("NLD").Cells("B68") = "KEIN BILD"
End If
' Bilder laden
Set pic1 = Worksheets("NLD").Pictures.Insert(strPath2)
Set pic2 = Worksheets("NLD").Pictures.Insert(strPath3)
' Bilder positionieren und anpassen
With Worksheets("NLD").Range("B68")
pic1.Left = .Left
pic1.Top = .Top
pic1.Width = 135
pic1.Height = 65
End With
With Worksheets("NLD").Range("B74")
pic2.Left = .Left
pic2.Top = .Top
pic2.Width = 135
pic2.Height = 65
End With
Set pic1 = Nothing
Set pic2 = Nothing
End Sub