Opmerking veplaatsen

[e de waele]

Geachte forumleden
Ik heb in exel een werkblad met een tabel gemaakt met in de achterste rij veel cellen met een opmerking
Maar als ik op de opmerking ga staan dan verschijnt er maar de heft van de opmerking de rechter helft zie ik dan niet en moet ik steeds het blad verschuiven
Kan ik de opmerking niet verplaatsen is mijn vraag Naar links zo dat de hele opm op het scherm komt en ik niet moet schuiven met mijn werkblad
e de waele

 

[JohannusBakfiets]

Wanneer je de opmerking bewerkt kan je hem met de muis verslepen naar een plek dat je graag wil.

 

[Cobbe]

Als je deze code -van Esducsafe - achter je werblad hangt wordt de opmerking wel leesbaar als je op de cel klikt, indien die buiten beeld dreigt te vallen:

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

 

[e de waele]

Ik heb het verslepen al een paar keer gedaan maar hij gaat steeds terug naar de zelfde plaats
als het niet moest lukken kan ik de tip van Cobbe nog gebruiken
e de waele

 

[e de waele]

Hallo Cobbe
Hoe moet ik deze formule aan mijn opmerking hangen hoe doe ik dat ?
Waarom wil het verslepen niet lukken volgens de help van exel moet dat toch gaan ??
Maar bij mij dus niet kan dat aan de instellingen liggen ?
e de waele

 

[Cobbe]

Dat slepen van die opmerking, zoals in de help uitgelegd werkt enkel bij permanent weergegeven opmerkingen.

Die code zoals ik ze u gepost heb dien je te plakken achter het betreffende werkblad, bereikbaar via Alt-F11,
daar plak je deze code en vergeet dan niet je bestand als *.xlsm op te slaan of de code is weer weg.

 

[e de waele]

Ok ik ga er mee aan de slag
als het lukt dan zet ik de vraag als opgelost
e de waele