Herbers Excel-Forum - das Archiv

bild in userform

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox UserForm
Bild

Betrifft: bild in userform
von: tim

Geschrieben am: 02.04.2005 14:08:52
hallo leute
ich habe in einer userform (userform1) ein bild eingefügt (image1). nun möchte ich mittels klick auf dieses bild, dieses vergrössert (ca. 2x vergössert) darstellen, in einer zu diesem zweck aufgerufenen userform (userform2).
ist dies überhaupt möglich? wenn ja, kann mir jemand weiterhelfen?
vielen dank
Bild

Betrifft: AW: bild in userform
von: Monika Weber

Geschrieben am: 02.04.2005 14:25:06
Hallo tim,
was spricht dagegen, das Bild gleich in der gewünschten Grösse in das zweite UserForm einzufügen?
Dann hinterlegst Du dem Bild auf dem ersten UserForm den Code:
Private Sub Image1_Click()
UserForm2.Show
End Sub

Viele Grüsse
Monika
http://www.jumper.ch
Bild

Betrifft: AW: bild in userform
von: tim

Geschrieben am: 02.04.2005 14:45:01
tja ich habe das bild in der userform1 mittels code eingelesen:
Dim sName As String
Dim sDatei As String
Dim sdaten As String
sName = Cells(ListBox1.ListIndex + 2, 2)
sdaten = Cells(ListBox1.ListIndex + 2, 3)
sDatei = "Y:\" & sName & sdaten & ".jpg"
Image1.Picture = LoadPicture(sDatei)
weil das bild in abhängigkeit mit dem anklicken eines beliebigen listboxeintrages steht, kann nicht vordefiniert werden, welches bild nun in der userform2 vergrössert dargestellt werden soll, da zu jedem listboxeintrag ein anderes bild gehört.
danke für die hilfe
Bild

Betrifft: AW: bild in userform
von: Nepumuk

Geschrieben am: 02.04.2005 15:04:34
Hallo Tim,
ist doch ganz einfach. Für das erste Bild ein Click - Ereignis:


Private Sub Image1_Click()
    UserForm2.Show
End Sub


Im Userform2 ein Activate - Ereignis:


Private Sub UserForm_Activate()
    Image1.Picture = UserForm1.Image1.Picture
End Sub


Gruß
Nepumuk
Bild

Betrifft: AW: bild in userform
von: K.Rola
Geschrieben am: 02.04.2005 15:01:39
Hallo,
Beispiel:
https://www.herber.de/bbs/user/20524.xls
Gruß K.Rola
 Bild
Excel-Beispiele zum Thema "bild in userform"
Diagramm in Userform XL-Dateien in UserForm listen
UserForm an Excel-Fenster anpassen Fundstellen in UserForm listen
Module und UserForms austauschen In einer Schleife auf Elemente einer UserForm zugreifen
Werte in eine ComboBox einer UserForm übernehmen Zellinhalt als Label-Aufschrift in UserForm
Alle CheckBoxes einer UserForm ansprechen Wenn kein Eintrag, UserForm nicht schließen