Hallo zusammen,
ich bin leider kein vba experte und brauche für ein Projekt nur einen kleinen Code, der mir bei einer Wenn Funktion ein Bild in ein bestimmten Zelle einfügt.
Der Code klappt soweit. (siehe weiter unten) Was mir noch fehlt, wäre dass sich das Bild an die Zellgröße anpasst und dabei seine Proportion behält. Kann mir da jemand helfen?
Lieben Dank vorab.
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A6") = 2 Then
Range("F2").Activate
ActiveSheet.Pictures.Insert( _
"\\Bilder\Bild1.png").Name = "Bild1"
Else
ActiveSheet.Shapes("Bild1").Delete
End If
End Sub
maethes Gast |
