Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim cmt As Object For Each cmt In Target.Parent.Comments cmt.Visible = False Next On Error GoTo NoComment Target.Comment.Shape.Visible = True Target.Comment.Shape.Left = Target.Offset(, 2).Left Target.Comment.Shape.Top = Target.Offset(, 2).Top Exit Sub NoComment: End Sub
Per spostare un commento in un'altra cella, fare clic sull'opzione Mostra tutti i commenti nella scheda Revisione in modo che i commenti vengano visualizzati senza passare il mouse sulle celle. Quindi, sposta il puntatore del mouse sul bordo della casella del commento finché il puntatore non si trasforma in un cursore a croce con le frecce. Quindi, seleziona la casella di commento specifica che desideri spostare, quindi fai clic e trascina la casella nella posizione preferita. Prima di trascinare la casella, è necessario confermare che i quadratini di ridimensionamento siano visibili su tutti gli angoli della casella dei commenti.