Francois在工作表中有一堆评论，每个评论都包含一张图片作为背景。他想从评论中删除那些背景图片，然后将其放置为评论所在位置右侧单元格中的图形。

唯一的方法是借助宏。原因是您不能手动选择和复制已存储在注释背景中的任何图形。您可以在宏中近似“抓”

图片：

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_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（11164）适用于Microsoft Excel 97、2000、2002和2003。您可以在以下位置找到适用于Excel功能区界面（Excel 2007和更高版本）的本技巧的版本：

链接：/ excelribbon-Moving_Comment_Background_Pictures_to_Cells [将评论背景图片移动到单元格]。