ich möchte per Command Button ein Bild im Format Tif einfügen, leider geht das nicht der Code bleibt beim Befehl ActiveSheet.Image1.Picture = LoadPicture(varBild) stehen. warum?
Mit allen anderen Formaten geht es?
Hier der Code:
Private Sub CommandButton1_Click()
ActiveSheet.Image1.Picture = LoadPicture("")
Unload Me
End Sub
Private Sub CommandButton2_Click()
'Bild einfügen
Dim varBild As Variant
varBild = Application.GetOpenFilename("Alle Grafik (*.bmp; *.tif; *.tiff; *.jpg; *.gif), *.bmp; _
*.tif; *.tiff; *.jpg; *.gif")
If Not varBild = False Then
ActiveSheet.Image1.Picture = LoadPicture(varBild)
End If
Unload Me
End Sub
wäre schön wenn mir jemand helfen könnte.Liebe Grüsse
Martin