Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
Screenshot zu CommandButton	CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Frame
Screenshot zu Frame	Frame-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Image
Screenshot zu Image	Image-Seite mit Beispielarbeitsmappe aufrufen

Image variabel auswählen

• Image variabel auswählen von Lutz vom 06.10.2003 22:12:30
  • AW: Image variabel auswählen - von Matthias G am 06.10.2003 22:51:34
    • AW: Image variabel auswählen - von Lutz am 06.10.2003 23:05:05
      • AW: Ich habs, ... - von Matthias G am 06.10.2003 23:31:56
        • Tausend Dank, Du bist Spitze !!! Funzt super ! - von Lutz am 07.10.2003 08:27:56
          • AW: Danke für die Rückmeldung! - o.T. - von Matthias G am 07.10.2003 12:00:13

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"

Druckbereich variabel gestalten