With Range("D4").AddComment
.Text "コメントは爆発だ!"
.Visible = True
With ActiveSheet.Shapes(.Shape.Name)
.TextFrame.Characters.Font.Bold = True
.TextFrame.Characters.Font.ColorIndex = 2
.Fill.PresetGradient 1, 1, 1
.AutoShapeType = msoShapeExplosion1
End With
End With