MouseOver

Forumthread: MouseOver
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: MouseOver

MouseOver

21.03.2017 22:34:04

Benedikt

Guten Abend zusammen
Mit MouseOver Label 1 werden Werte aus Zelle B1 und B2 im Bereich E37 und F37 eingefügt
anschliessend erscheint das Diagramm. Alles Tip Top. Beim verlassen des Labels blendet das Diagramm aus, aber die Zellverküpfung bleibt.
Weiss jemand wie ich die ebenfalls Rückgängig machen kann? (Range("E37:F37").ClearContents?)

Private Sub Label1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Range("E37").Value = Range("B1").Value
Range("F37").Value = Range("B2").Value
Me.ChartObjects("Diagramm 1").Visible = X > 10 And _
Y > 10 And X

Vielen Dank für eure Hilfe

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: MouseOver

22.03.2017 00:49:21

Mullit
AW: MouseOver

22.03.2017 01:42:33

Mullit
Vielen Dank Mullit

22.03.2017 07:53:48

Benedikt

AW: MouseOver

22.03.2017 00:49:21

Mullit

Hallo,
im Prinzip so:

Private Sub Label1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Range("E37").Value = Range("B1").Value
Range("F37").Value = Range("B2").Value
Me.ChartObjects("Diagramm 1").Visible = X > 10 And _
Y > 10 And X = Label1.Width - 10 _
Or Y >= Label1.Height - 10 Then Call Range("E37:F37").ClearContents
End Sub

Gruß, Mullit

AW: MouseOver

22.03.2017 01:42:33

Mullit

Hallo,
ahh und dann vielleicht besser so:

Private Sub Label1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Dim blnMouseOver As Boolean
blnMouseOver = X > 10 And _
Y > 10 And X

Gruß, Mullit

Vielen Dank Mullit

22.03.2017 07:53:48

Benedikt

Ganz grossen Dank für deine Mühe.
Ich kann leider erst heute Abend testen.

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!