Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Image
BildScreenshot zu Image Image-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Image als Button auf Userform

Betrifft: Image als Button auf Userform von: Jonte
Geschrieben am: 27.08.2014 09:31:34

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 Buttons. ObenRechts, ObenLinks, UntenRechts, UntenLinks
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


  

Betrifft: AW: Image als Button auf Userform von: Jonte
Geschrieben am: 27.08.2014 09:39:14

Anbei die Grafik zum besseren Verständnis:



Jonte


  

Betrifft: AW: Image als Button auf Userform von: Jonte
Geschrieben am: 27.08.2014 12:18:52

Ich habe gerade bemerkt das mein Beitrag als beantwortet notiert ist. Keine Ahnung was ich falsch gemacht habe.


  

Betrifft: AW: Image als Button auf Userform von: schauan
Geschrieben am: 29.08.2014 20:29:20

Hallo Jonte,

nimm mal statt dem Click das MouseDown.

Hoffe geholfen zu haben, Grüße von André (schauan) aus Gera - Excel-97-2013


 

Beiträge aus den Excel-Beispielen zum Thema "Image als Button auf Userform"