Office: Bilder und IF funktion

Hatte sie zwar schonmal in meinem anderen Post gefragt, aber da hatte dann keiner mehr rein geschaut.
Meine frage ist Folgende, kann man wenn man ein Bild eingefügt hat (ich füge das Bild mit hilfe eines CommandButtons ein), mit einer IF bedingung sagen.
If Picture1 = "Beispielbild.jpg"
Then Picture2 = "Irgend ein anderes bestimmtes Bild"

Meine andere frage wäre noch dazu ob man ein Bild nach mehreren IF bedingungen abfragen kann, z.B.
IF Bild1 = "...."
Then .....
IF ....... usw

Habe noch ein Beispiel angehangen.

PS: Habe Excel 2003


MFG Mysteh

 

Hmm kann mir keiner Weiter helfen?? Schatzi? Michael? ^^

Ich bräuchte das unbedingt mein Chef will das ich sowas hin bekomme :cry:


MFG Mysteh

 

Hallo!

Teste doch mal, ob du hiermit weiter kommst:

Code:

Private Sub cmdEinfügen_Click()

    Dim Datei As Variant
    Dim Bild As String
    Const LW = "E:\"
    Const Pfad = "E:\Fotos"
    ChDrive LW
    ChDir Pfad
    Datei = Application.GetOpenFilename("Alle Dateien(*.*),*.*")
    If Datei = False Then Exit Sub
    Image1.Picture = Nothing
    Image1.Picture = LoadPicture(Datei)
    Bild = CStr(Right(Datei, Len(Datei) - InStrRev(Datei, "\")))
    Image1.PictureTiling = False
    Image1.PictureSizeMode = fmPictureSizeModeZoom
    Select Case Bild
    Case Is = "BILD1.JPG"
    Image2.Picture = LoadPicture("E:\Fotos\BILD111.JPG")
    Case Is = "BILD2.JPG"
    Image2.Picture = LoadPicture("E:\Fotos\BILD222.JPG")
    Case Is = "BILD3.JPG"
    Image2.Picture = LoadPicture("E:\Fotos\BILD333.JPG")
    End Select
    
End Sub

 

hmm Vielen dank das klappt soweit nur meine andere Frage wäre nun ob es ginge nen Bild einzufügen, wenn ich in Zelle A1 = "Ja" schreibe das dann Image1.picture = "irgend ein Bild" wird??


MFG Mysteh