|
Guten Tag,
ich würde gerne selbst gestalltete Buttons in einer Userform integrieren.
Diese sollen sich grafisch ändern sofern der Courser über sie fährt oder sie gedrückt werden.
Die Datei soll als eine bleiben, also keine einbeziehung lokaler Dateien(Grafiken).
Ansatz:
Userform mit einem Image:
Imagegröße: 130x35 Pixel
Grafikgröße: 260x70 Pixel
Die Grafik besteht aus vier Button.
Die Idee ist es die Grafik in dem Image immer neu auszurichten, um ein anderes Erscheinungsbild zu erzeugen.
Image, desshalb weil sich hiermit Bilder so integrieren lassen, dass sie mit kompeliert werden >>> also nur eine Datei.
Code:
Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
_
ByVal Y As Single)
UserForm1.Image6.PictureAlignment = fmPictureAlignmentTopLeft
End Sub
Private Sub Image6_Click()
UserForm1.Image6.PictureAlignment = fmPictureAlignmentTopRight
End Sub
Private Sub Image6_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
_
ByVal Y As Single)
UserForm1.Image6.PictureAlignment = fmPictureAlignmentBottomLeft
End Sub
Image6 = Button
Image2 = Banner hinter dem Button
Problembeschreibung:
Der Mausübereffeckt funktioniert top. Sobald der Button aber angeklickt wird, passiert garnichts mehr.
Ich benutze Excel 2010.
Hat jemand eine Idee woran es liegt bzw. eine Alternative?
Gruß Jonte
|