Opmerkingen altijd op dezelfde plaats laten openen

[regenboogje]

Ik wil dat een opmerking niet rechts van de cel opent maar in het centrum, hierdoor hoef ik dan niet te scrollen om de hele opmerking te lezen. Hoe kan ik dat realiseren?
Bij voorbaat dank,

 

[SjonR]

dus alle opmerkingen op dezelfde plaats? niet echt een verbetering lijkt me.

 

[gast0660]

Zo?
De eerste keer dat je het vbtje opent krijg je een foutmelding,gewoon op beëindigen drukken.
Edit de opmerking verschijnt niet altijd op dezelfde plaats maar altijd in het midden van het scherm.

 

[regenboogje]

SjonR
Ik heb blijkbaar mijn vraag niet duidelijk gesteld. In de nieuwe bijlage is het hopelijk helemaal duidelijk.

gast0660
Ik begrijp niet wat je bedoelt met het vbtje openen. Wat is een vbtje en hoe open je dat?

Beiden reeds hartelijk dank voor jullie reactie.

 

[gast0660]

@ regenboogje, met het vbtje bedoel ik de bijlage in mijn post #3.
Die doet trouwens exact wat je vraagt.

 

[gast0660]

Zie bijlage versie 2

 

[regenboogje]

Hallo gast0660 ik snap er niks meer van. Ik neem aan dat ik uw bestand Opmerking (v2).xlsb‎ moet openen en dat ik dan kan zien wat de procedure is.
Maar als ik uw bestand Opmerking (v2).xlsb‎ in #6 open, opent het meteen en het resultaat hiervan laat ik u in de JPEG-bijlage zien.
Ik weet echt niet wat ik hiermee moet.

 

[HSV]

Heb je macro's ingeschakeld?

 

[regenboogje]

Als het bestand opent zijn de Macro's uitgeschakeld, dan schakel ik ze via Opties in, maar er veranderd niets.
Met vriendelijke groet.

 

[HSV]

In het bestand van @gast0660 doet de muisaanwijzer niets, je moet een cel met een comment selecteren.

 

[regenboogje]

Ik zie dat tabblad Bestand verborgen is, hoe maak ik dit weer zichtbaar?
MVG

 

[HSV]

Er is geen tabblad met de naam 'bestand'.

 

[regenboogje]

Hoe selecteer je een cel met comment?
MVG

 

[HSV]

Met de muis of pijltjestoets.

Ps. dit is wel erg basis, maar alle begin is moeilijk.

 

[regenboogje]

Ik wil even helemaal opnieuw beginnen. Ik werk met Exel 2007.
In het voorbeeld van gast0660 werkt het perfect, maar met alle respect, dat helpt me niet verder. Ik moet het in mijn eigen (bestaande) werkbladen kunnen toepassen. Mijn vraag was dan ook hoe ik dit moet doen. Een poging om het voorbeeld te kopiëren en in mijn werkblad plakken geeft ook niet het gewenste resultaat.
Hopelijk kunt u mij hierbij verder helpen.

Alvast bedankt voor de hulp tot nu toe.
MVG,
Regenboogje.

 

[gast0660]

Stap 1: Uw echte bestand opslaan als xlsm of xlsb bestand.
Stap 2: Zorg ervoor dat de macro's zijn ingeschakeld.
Stap3: Open de VBA editor (Alt + F11)
Klik links op de werkbladen.
Plak de code in ieder tabblad waar je de code wilt gebruiken. (dus de tabbladen waar je de opmerkingen in het middel van je scherm wilt zien verschijnen)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim cmt As Comment
   Application.DisplayCommentIndicator = xlCommentIndicatorOnly
   Set cmt = ActiveCell.Comment
   If Not cmt Is Nothing Then
      With ActiveWindow.VisibleRange
         cmt.Shape.Top = .Top + 90
         cmt.Shape.Left = .Left + .Width - cmt.Shape.Width - 500
         cmt.Visible = True
      End With
   End If
End Sub

Sluit de VBA editor, klaar.

 

[regenboogje]

Hartelijk dank gast0660, het werkt perfect.
Nu opent de opmerking links in het beeldscherm, wat moet ik in de code aanpassen zodat de opmerking horizontaal gecentreerd wordt. Verticaal is in mijn geval perfect.
Al heel hartelijk dank,
Regenboogje.

 

[gast0660]

cmt.Shape.Top = .Top [COLOR="#FF0000"]+ 90[/COLOR]
cmt.Shape.Left = .Left + .Width - cmt.Shape.Width [COLOR="#FF0000"]- 500[/COLOR]

Dit zijn de twee stukjes ( rood) waar je wat moet mee spelen tot dat de opmerking op de gewenste plaats staat.
Als verticaal ok is moet je alleen wat spelen met

cmt.Shape.Left = .Left + .Width - cmt.Shape.Width [COLOR="#FF0000"]- 500[/COLOR]

 

[regenboogje]

Heel hartelijk dank. Hiermee ben ik heel blij.
Ik wens iedereen Fijne Feestdagen.

Met vriendelijke groet,
Regenboogje.