Opmerking weergeven bij mouseover over afbeelding

[tonissteiner]

Hallo,

zoals ik in de titel vraag, is het mogelijk een kadertje met opmerking tijdelijk weer te geven als je over een afbeelding beweegt met je muis? Aan de afbeelding zou ik een macro willen hangen. Ik vind wel oplossingen om er een message box aan te hangen echter niet voor een tekst die wordt weergegeven zolang je muis op de afbeelding staat.

alvast bedankt

 

[edmoor]

Er zijn meerdere mogelijkheden voor het plaatsen van een afbeelding, dus laat eens zien wat je hebt.

 

[tonissteiner]

In bijlage een voorbeeldje. hiervoor heb ik een label gebruikt uit de Active X Control, transparant gemaakt en er een code achter gezet. Echter is het een message box die wordt weergegeven en eigenlijk wil ik enkel een kadertje met tekst dat weer verdwijnt als je muispointer zich niet meer op de afbeelding bevind

Bekijk bijlage MouseOver1.xlsm

 

[edmoor]

Probeer dit eens. Ideaal is het niet maar er is geen mouse_exit event en iets anders kon ik zo snel ook niet bedenken. Als je de muis te snel over het object beweegt werkt het niet goed.

Private Sub Label1_Mousemove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If X > 5 And X < 43 And Y > 5 And Y < 43 Then
        Label1.Caption = "Hallo daar vanuit de MouseOver"
    Else
        Label1.Caption = vbNullString
    End If
End Sub

 

[HSV]

Je kan er nog een label achter plaatsen die groter is dan label1.
Die heeft ook een mousemove.

 

[tonissteiner]

Hallo Edmoor en HSV. Aan Edmoor alvast bedankt voor je oplossing. Het is niet perfect maar brengt me wel op ideeën. En HSV, je bent me voor :thumb:
ik was iets aan het uitproberen. Het idee kwam niet van mezelf maar toevallig gevonden op YouTube: https://www.youtube.com/watch?v=iyXj4YyCKxY
Was het aan het uitproberen. Denk dat het goed komt. Tweede label plaatsen dat inderdaad wat groter is, een shape callout toevoegen en deze dan oproepen/verbergen.
Het is een workaround en heel bewerkelijk echter een heel leuk idee

 

[edmoor]

Ben je toch in de juiste richting geholpen

 

[tonissteiner]

Inderdaad, nogmaals bedankt. Ik ben zo klaar met een werkend bestandje, post het hier en zet de vraag opgelost. Het voorbeeldbestandje voor de nieuwsgierigen onder ons dan

 

[tonissteiner]

Voila, bij deze:

Bekijk bijlage MouseOver2.xlsm

prettige avond nog

 

[edmoor]

Hij is leuk, maar heeft hetzelfde probleem. Als de tekst zichtbaar is en je de muis te snel bij het object vandaan beweegt, blijft de tekst staan. Maar het ziet er al wel veel mooier uit dan met de Caption tekst

 

[HSV]

De beide labels zijn niet mooi gecentreerd t.o.v. het plaatje.
Daarnaast mag de achterste label wel iets groter voor een beter effect.

Maar het ziet er goed uit verder. :thumb:

 

[tonissteiner]

ja inderdaad heb dat probleem ook ondervonden bij het te snel bewegen van de muis. ook bleef de tekst staan na het aanklikken van de knop, lees uitvoeren van de macro. daarom had ik in de code de extra lijn opgenomen om de tekst te verbergen. het blijft een workaround maar vind het ook goed gevonden.
en het centreren daar kon inderdaad nog wat aan gesleuteld worden. het achterste label had ik al groter gemaakt maar mag inderdaad nog wat groter.

mvg,

Stefan

 

[tonissteiner]

Wat vinden jullie van deze oplossing? heb een timer ingebouwd...

Bekijk bijlage MouseOverMetTimer.xlsm

 

[edmoor]

Ziet er goed uit
De opmerking wordt dan in ieder geval altijd weer verborgen. Nog wel even de Public TimeOnOFF As Boolean bovenin de module zetten in plaats van onder de eerste End Sub.

 

[tonissteiner]

Verdorie zeg Edmoor, je hebt arendsogen en ziet wel elk detail

bedankt :thumb: