Tif Bild per Steuerelement einfügen
18.06.2015 18:20:49
MaBLu
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
Liebe Grüsse
Martin
Anzeige