Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Frame
BildScreenshot zu Frame Frame-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Image
BildScreenshot zu Image Image-Seite mit Beispielarbeitsmappe aufrufen

Image variabel auswählen

    Betrifft: Image variabel auswählen von: Lutz
    Geschrieben am: 06.10.2003 22:12:30

    Hallo zusammen,

    ich möchte dem CommandButton1 in einer UserForm ein Bild zuweisen.
    Mit folgendem Code funktioniert das auch, wenn ich z.B. Bild 12 direkt anspreche:

    fzahl = Sheets("Data").Cells(rng5Row, 33).Value
    For Each img In ActiveSheet.Shapes()
    If img.Name = "Image" & fzahl Then
    Frame1.CommandButton1.Picture = Sheets("Data").Image12.Picture
    End If
    Next

    Ich möchte jedoch über fzahl ein beliebiges Bild einfügen, weiß aber nicht, wie ich das anstellen soll.
    Versuche wie
    Frame1.CommandButton1.Picture = Sheets("Data").Image(fzahl).Picture oder
    Frame1.CommandButton1.Picture = Sheets("Data").Shapes("Image" & fzahl).Picture
    schlugen fehl.
    Kann mir jemand helfen ?

    Gruß
    Lutz

      


    Betrifft: AW: Image variabel auswählen von: Matthias G
    Geschrieben am: 06.10.2003 22:51:34

    Hallo Lutz,

    versuch' mal folgendes:
    Frame1.CommandButton1.Picture = Sheets("Data").Pictures("Image" & fzahl)

    Gruß,
    Matthias


      


    Betrifft: AW: Image variabel auswählen von: Lutz
    Geschrieben am: 06.10.2003 23:05:05

    Hallo Matthias,

    Dein Vorschlag bringt Laufzeitfehler 13, Typen unverträglich...

    Gruß
    Lutz


      


    Betrifft: AW: Ich habs, ... von: Matthias G
    Geschrieben am: 06.10.2003 23:31:56

    Hallo Lutz,

    ..hoffe ich jedenfalls:
    Frame1.CommandButton1.Picture = Sheets("Data").OLEObjects("Image12").Object.Picture

    Viel Erfolg,
    Matthias


      


    Betrifft: Tausend Dank, Du bist Spitze !!! Funzt super ! von: Lutz
    Geschrieben am: 07.10.2003 08:27:56




      


    Betrifft: AW: Danke für die Rückmeldung! - o.T. von: Matthias G
    Geschrieben am: 07.10.2003 12:00:13

    -


     

    Beiträge aus den Excel-Beispielen zum Thema " Image variabel auswählen"