特定の名前のコメントの背景の色を黄色に変更します。 Sub Sample94() ActiveSheet.Shapes("名前").Fill.ForeColor.RGB = RGB(255, 255, 0) End Sub