У Франсуа есть куча комментариев на листе, и каждый комментарий содержит изображение в качестве фона. Он хотел бы удалить эти фоновые изображения из комментариев и вместо этого разместить их в виде графики в ячейках справа от того места, где расположены комментарии.

Единственный способ сделать это — использовать макрос. Причина в том, что вы не можете вручную выбрать и скопировать любую графику, которая была сохранена в качестве фона комментария. В макросе вы можете приблизительно «схватить»

изображение:

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

Макрос проходит через каждый комментарий на активном листе. Весь комментарий (включая фон) копируется как рисунок в буфер обмена, а затем вставляется в нужную ячейку. Затем для фона комментария устанавливается другая заливка вместо рисунка.

Следует отметить, что этот подход обеспечивает лишь приблизительное получение фонового изображения. Кроме того, при копировании всего комментария в виде изображения копируется любой текст, содержащийся в комментарии.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (11165) относится к Microsoft Excel 2007 и 2010. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Moving_Comment_Background_Pictures_to_Cells [Перемещение фоновых изображений комментариев в ячейки].