フランソワはワークシートにたくさんのコメントを持っており、各コメントには背景として写真が含まれています。彼は、コメントからそれらの背景画像を削除し、代わりに、コメントが配置されている場所のすぐ右側のセルにグラフィックとして配置したいと考えています。

これを行う唯一の方法は、マクロを使用することです。その理由は、コメントの背景に保存されているグラフィックを手動で選択してコピーすることはできないためです。マクロでは、「つかむ」ことを概算できます

画像：

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ここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（11164）は、Microsoft Excel 97、2000、2002、および2003に適用されます。

Excel（Excel 2007以降）のリボンインターフェイスに関するこのヒントのバージョンは、次の場所にあります：

linkコメントの背景画像をセルに移動。