質問: エクセル2007を使い商品台帳を作成しています。 画像ファイルにある写真を商品名のセルにコメントで表示するようにしたいと思います。
回答: こんな風にしてみてはどうでしょうか? Sub 画像コメント挿入() Dim 対象セル As Range For Each 対象セル In Selection If Not 対象セル.Comment Is Nothing Then 対象セル.ClearComments 'すでにコメントがあれば削除 If Dir("C:\画像\" & 対象セル.Value & ".jpg") <> "" Then '該当するファイルがあれば 対象セル.AddComment 対象セル.Comment.Shape.Height = 90 対象セル.Comment.Shape.Width = 90 対象セル.Comment.Shape.Fill.UserPicture "C:\画像\" & 対象セル.Value & ".jpg" End If Next 対象セル End Sub