Das Archiv des Excel-Forums
Image variabel auswählen
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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
-
Excel-Beispiele zum Thema " Image variabel auswählen"