CheckBox Image Ak\Deaktevieren

[valeripf]

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

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

' 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

 

[valeripf]

Es hat sich Erledigt