コメントの背景画像をセルに移動する(Microsoft Excel)
フランソワはワークシートにたくさんのコメントを持っており、各コメントには背景として写真が含まれています。彼は、コメントからそれらの背景画像を削除し、代わりに、コメントが配置されている場所のすぐ右側のセルにグラフィックとして配置したいと考えています。
これを行う唯一の方法は、マクロを使用することです。その理由は、コメントの背景に保存されているグラフィックを手動で選択してコピーすることはできないためです。マクロでは、「つかむ」ことを概算できます
画像:
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_は、費用効果の高いMicrosoftExcelトレーニングのソースです。
このヒント(11165)は、Microsoft Excel 2007および2010に適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。
linkコメントの背景画像をセルに移動。