Francois ha un sacco di commenti in un foglio di lavoro e ogni commento contiene un’immagine come sfondo. Vorrebbe rimuovere quelle immagini di sfondo dai commenti e inserirle, invece, come grafica nelle celle appena a destra di dove si trovano i commenti.

L’unico modo per farlo è con l’aiuto di una macro. Il motivo è che non è possibile selezionare e copiare manualmente alcun elemento grafico memorizzato sullo sfondo di un commento. Puoi, in una macro, un “afferrare” approssimativo

l’immagine:

Sub CommentPictures()

Dim cmt As Comment     Dim rCell As Range     Dim bVisible As Boolean

For Each cmt In ActiveSheet.Comments         With cmt             bVisible = .Visible             .Visible = True             Set rCell = .Parent.Offset(0, 1)

.Shape.CopyPicture _               Appearance:=xlScreen, Format:=xlPicture             rCell.PasteSpecial             Selection.ShapeRange.LockAspectRatio = msoFalse             Selection.Width = rCell.Width             Selection.Height = rCell.Height             .Visible = bVisible             .Shape.Fill.OneColorGradient msoGradientFromCenter, 1, 1         End With     Next cmt End Sub

La macro passa attraverso ogni commento nel foglio di lavoro attivo. L’intero commento (incluso lo sfondo) viene copiato come immagine negli Appunti, quindi viene incollato nella cella desiderata. Lo sfondo del commento viene quindi impostato su un riempimento diverso anziché sull’immagine.

Dovresti notare che questo approccio fornisce solo un’approssimazione per catturare l’immagine di sfondo. Inoltre, copiando l’intero commento come immagine, copia qualsiasi testo contenuto nel commento.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (11165) si applica a Microsoft Excel 2007 e 2010. Puoi trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Excel qui: