ich habe den folgenden Sub und möchte es in eine Funktion umwandeln, bekomme es aber iwie nicht hin :(
Die Eigabe Parameter sollen sein: Pfad, woher man das Bild bekommen soll (hier:MeinBild) , Bereich, wo das Bild hin soll (hier:ZielBereich)
Für eure Hilfen bin ich Dankbar.
Sub Bild
Dim MeinBild As Object, ZielBereich As Range
Dim Rand As Single
'Bild Basismaterial
Set MeinBild = Worksheets("Tabelle1").Pictures.Insert("C:\Bild.png")
Set ZielBereich = Worksheets("Tabelle1").Range("B37:R42")
With MeinBild.ShapeRange
.Top = ZielBereich.Top + Rand
.Left = ZielBereich.Left + Rand
.Height = ZielBereich.Height - Rand
End With
Set MeinBild = Nothing: Set ZielBereich = Nothing
End Sub
|