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: 02.10.2003 13:06:52

    Hallo zusammen,

    ich möchte dem CommandButton1 in einer UserForm ein Bild zuweisen.
    Mit folgendem Code funktioniert das auch für Bild 12:

    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: Thread geschlossen ohne Lösung von: Lutz
    Geschrieben am: 06.10.2003 08:48:40




     

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