Sub Bildeinsetzer_button_click()
Dim Choix
With ActiveSheet
Choix = Application.GetOpenFilename("Bilddatei(*.gif;*.jpg;*.bmp),*.gif;*.jpg;*.bmp" _
, , "Bild Auswahl", , False)
If Choix = False Then GoTo folge2:
On Error GoTo folge
.Shapes("Werkstückbild").Delete
folge:
Range("h21").Select
.Pictures.Insert(Choix).Name = "Werkstückbild"
.Shapes("Werkstückbild").Width = 280
'.Shapes("Werkstückbild").Height = 50
End With
End Sub