With ActiveCell.AddComment
.Shape.Fill.UserPicture "C:\……\肉球.png"
.Text "肉球"
.Visible = True
End With
画像の拡張子は png の他 jpg も動作確認済。
通常は画像と文字列の両方を入力する事って無いかもですが
実験も兼ねて両方入れてみました。
結果、こんな感じ。
画像によっては文字列部分は隠れちゃう感じでした。
文字と画像が重ならないように配置する方法があるのかないのかは
いつの日か気が向いたら追及します。