Spostare le immagini di sfondo dei commenti nelle celle (Microsoft Excel)
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: