opmerkingen centreren

[weeblbob]

Goedemiddag,

Ik heb een inhoudsopgave gemaakt, met daarin allemaal hyperlinks naar verschillende tabbladen.
Nu heb ik als je over de verschillende hyperlinks gaat opmerkingen toegevoegd.
Deze opmerkingen bevatten afbeeldingen, zodat je een preview krijgt van waar je naar toe gaat.


Echter het volgende probleem:
Ik zou graag willen dat de opmerkingen in het midden van het scherm komen te staan.
Dit is me wel gelukt door de volgende formule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'www.contextures.com/xlcomments03.html
Dim rng As Range
Dim cTop As Long
Dim cWidth As Long
Dim cmt As Comment
Dim Sh As Shape

Application.DisplayCommentIndicator _
= xlCommentIndicatorOnly

Set rng = ActiveWindow.VisibleRange
cTop = rng.Top + rng.Height / 2
cWidth = rng.Left + rng.Width / 2
If ActiveCell.Comment Is Nothing Then
'do nothing
Else
Set cmt = ActiveCell.Comment
Set Sh = cmt.Shape
Sh.Top = cTop - Sh.Height / 2
Sh.Left = cWidth - Sh.Width / 2
cmt.Visible = True

End If

End Sub


Echter werkt deze niet als je met de muis over de cellen gaat.
Dit werkt alleen als je met het toetsenbord over de cellen heengaat.
Is het mogelijk om dit ook werkend te krijgen, wanneer je er met de muis overheen gaat?
En anders is het mogelijk om met de Enter-toets de hyperlinks naar de verschillende tabbladen te activeren?


Alvast bedankt
Jaco

 

[HSV]

Kun je het bestandje eens plaatsen.
Misschien heb ik geen oplossing, maar niet geschoten is altijd mis.

 

[weeblbob]

Goedenavond,

Ik heb effe een voorbeeld bestandje gemaakt, originele zitten privé gegevens in.
Alleen voordat u hem kunt openen achter de extensie nog een M plaatsen ivm het kunnen uploaden heb ik dit veranderd.

Met vriendelijke groet,
Jaco

 

[HSV]

Helaas verwijst dit naar een leeg blad ipv dat het bestand tevoorschijn komt.

 

[plongske]

@ Harry,
Waarschijnlijk een probleem hier op de site. Ik kan geen enkel bestand meer downloaden van deze site.
ps. mooi interview in de nieuwsbrief

 

[HSV]

Ok, dank voor de info @plongske, :thumb:
Had voor de zekerheid daarna nog eentje getest hier, en die deed het dan nog net even natuurlijk.
Nu werkt het inderdaad nergens meer.

Ook bedankt voor je reactie over het interview.
Ik heb het graag gedaan.

 

[weeblbob]

Goedemiddag

Goedemiddag,

Hier nogmaals het bestandje.
Ik heb hem nu via een site geupload: http://www.fileupload.nl/7eafef591a92040b

Hopelijk kunt u mij van een oplossing voorzien.

Met vriendelijke groet,
Jaco

 

[weeblbob]

Goedemorgen,

Is het nog iemand gelukt om dit ook werkend te krijgen, wanneer je er met de muis overheen gaat?
of anders is met de Enter-toets de hyperlinks naar de verschillende tabbladen te activeren?

Alvast bedankt!

 

[HSV]

kijk eens of dit wat voor je is (Commandbutton_mousemove).
Ik heb een ander afbeelding genomen om onder de 100 kB uit te komen.

Eén dingetje: het is afhankelijk van 'Topleftcell'.
De marges (x en y) zijn kleiner genomen zodat als je de commandbutton weer verlaat de comment verdwijnt.

 

[weeblbob]

Bedankt,

Maar is het ook mogelijk om hierin een hyperlink ze zetten?

Met vriendelijke groet,
Jaco

 

[HSV]

Een hyperlink is niet nodig naar een werkblad.
Zet onderstaande code in de werkbladmodule.
Bij aanklikken van de button ga je direct naar het werkblad van de tekst op de button.

Private Sub CommandButton1_Click()
 Application.Goto Sheets(CommandButton1.Caption).Range("A1")
End Sub

 

[weeblbob]

Oké,

Misschien een domme vraag, maar hoe maak je zo'n button?
En kan je er ook meerdere onder elkaar maken die naar verschillende bladen verwijzen?
Hoe kan ik dit het beste doen.

Dit is de 1ste keer dat ik met Macro's in aanmerking kom, maar wil het wel graag leren.

Met vriendelijke groet,
Jaco

 

[HSV]

Neem hier eens een kijkje bij ActiveX-besturingselementen.


https://support.office.microsoft.co...d3f-8fe6-74890034cca6&ui=nl-NL&rs=nl-NL&ad=NL

 

[weeblbob]

Bedankt,

Ik ga hiermee aan de slag, mocht het niet lukken dan laat ik het effe weten.

Hartelijk bedankt!