Formato commenti (dimensione automatica e sposta ma non ridimensionare con le celle)

Question

Ho una tabella molto grande su cui ci devo lavorare con filtri e varie visualizzazioni.

Questi cambi comportano anche lo "stiramento" e "schiacciamento" dei commenti, oltre che il loro spostamento.

So che per impostare la dimensione automatica devo fare click col tasto destro sul bordo del commento/ formato commento/ allineamento / dimensione automatica.

Analogamente, nella scheda Proprietà, sempre nel formato del commento, si può selezionare "sposta ma non ridimensionare con le celle".

La domanda è:

è possibile impostare questo formato a priori?

seconda domanda (alla quale diversi mesi fa avevo già ottenuto una risposta dal forum, ma che non riesco a trovare e che ultimamente non mi funzionava più, forse perchè ho cambiato versione di Office):

è possibile modificare contemporaneamente queste impostazioni in tutti i commenti di un foglio, o di un file?

Grazie mille.

Answer 1

Ciao  Filippo, ciao Maurizio,

ho trovato questo thread, partito il 30 ottobre 2011, al quale hai partecipato dal 10 ottobre 2014:

Problemi con i commenti in Excel 2007.

Il codice suggerita da me in quel thread andrebbe bene per i commenti di un solo foglio, anche se sarebbe meglio se fosse rinominato ResizeCommentsInSheet anziché ResizeCommentsInSelection

La versione  ResizeCommentsInWorkbook che ho postato oggi soddisfa la seconda nuova condizione di Filippo, cioè

è possibile modificare contemporaneamente queste impostazioni in tutti i commenti di un foglio, o di un file?

===

Regards,

Norman

Answer 2

Ciao FilippoF,

ho trovato questo thread, partito il 30 ottobre 2011, al quale hai partecipato dal 10 ottobre 2014:

Problemi con i commenti in Excel 2007.

Answer 3

Ciao Filippo,

Prova:

'==========>>

Option Explicit

'---------->>

Public Sub ResizeCommentsInWorkbook()

    Dim WB As Workbook

    Dim SH As Worksheet

    Dim Rng As Range, rCell As Range

    Dim lArea As Long

    Set WB = ActiveWorkbook

    For Each SH In WB.Worksheets

        On Error Resume Next

        Set Rng = SH.Cells.SpecialCells(xlCellTypeComments)

        On Error GoTo 0

        If Not Rng Is Nothing Then

            For Each rCell In Rng.Cells

                With rCell.Comment.Shape

                    .Top = rCell.Comment.Parent.Top + 5

                    .Left = rCell.Comment.Parent.Offset(0, 1).Left + 5

                    .TextFrame.AutoSize = True

                    If .Width > 300 Then

                        lArea = .Width * .Height

                        .Width = 200

                        .Height = (lArea / 200) * 1.2

                    End If

                    .Placement = xlMove

                End With

            Next rCell

        End If

    Next SH

End Sub

'<<=========

===

Regards,

Norman