Mit MouseMove, Bild und Opt-Button zeigen
04.09.2016 14:12:08
Dieter(Drummer)
Guten Tag Spezialisten.
Mit gestriger Hilfe von Nepumuk - dafür nochmal danke - und einem Code aus dem Internet, kann im einer Userform mit MoseMove ein Bild und ein Optionsbutton angezeigt werden. Das Makro, das auch den Optionsbutton1 mit in MouseMove einbindet, habe ich um diese Option im Code erweitert und funktioniert auch. Das Bild kommt über Image-Control aus Tabelle2.
Meine Frage und Bitte, ob das Makro "UserForm_MouseMove" noch gekürzt werden kann, damit nicht der Bereich "opt1" zusätzlich separat eingefügt werden muss. Evtl. möchte ich auch noch weitere Opt.buttons etc. einbinden. Meine Beispieldate ist leider zu groß für Download, deshalb hier der Code, der gekürzt werden soll/könnte:
'Aus: http://vba1.de/vba/ _
118userform_bild_anzeigen.php
Private Sub UserForm_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
'für jede Bildgröße:
If X > Me.Image1.Left And _
X < Me.Image1.Left + Me.Image1.Width And _
Y > Me.Image1.Top And _
Y < Me.Image1.Top + Me.Image1.Height Then
Me.Image1.Visible = True
Else
Me.Image1.Visible = False
End If
'Mx eingefügt: Nur wenn "opt1" auch unsichtbar sein soll, aber mit Maus sichtbar
If X > Me.Opt1.Left And _
X < Me.Opt1.Left + Me.Opt1.Width And _
Y > Me.Opt1.Top And _
Y < Me.Opt1.Top + Me.Opt1.Height Then
Me.Opt1.Visible = True
Else
Me.Opt1.Visible = False
End If
End Sub
Gruß, Dieter(Drummer)