CheckBox Image Ak\Deaktevieren

valeripf

Erfahrenes Mitglied
Hi Ich Brauche Hilfe

Ich Will Mit Checkbox Images Einfügen Aktevire Und Dekteviren

Wenn In CheckBox Hatten Drin Dann mit Klick auf Images Ramme Bild Eifügen (Einabled = True)

Wenn In CheckBox Kein Hakken Dann Soll Verhinder (Enabled = False)
Wenn Bild Drin Ist Und Hacken Raus Soll Bild Automatisch Löschen

ich habe so versucht

Code:
If Img1CheckBox.Value = "" Then
        ImgImages1.Enabled = False
        Else
       ImgImages1.Enabled = True
  End If

Fuktioniert aber Wenn Hacken Wieder Raus machst kann mann Immer noch Bild Einfügen


Code Für Bild

Code:
' Bild auswählen
Function GetFile() As String
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg"
        .ButtonName = "Bild laden"
        .Title = "Bild auswählen"
        .Show
        If .SelectedItems.Count = 0 Then
            GetFile = ""
        Else
            GetFile = .SelectedItems(1)
        End If
    End With
End Function

Private Sub imgImage1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    'Cover Einfühen
   imgImage1.Tag = GetFile
   imgImage1.Picture = LoadPicture(imgImage1.Tag)
   NeueFormular.Repaint
End Sub

Danke Voraus
 
Zurück