bild in userform

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox
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

Beiträge aus den Excel-Beispielen zum Thema "bild in userform"