【Excelの図形の色を変える】
①まずExcelで図形の名前をつけて保存する（↓だと「楕円1」が図形の名前）

Dim xlsWst As Object

 Set xlsWst = xlsWbk.Worksheets(SheetName)

 xlsWst.Shapes.Range(Array("楕円 16")).Line.ForeColor.RGB = RGB(255, 255, 255)  ←図形の色を白に変更　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　RGBの色はペイントで確認できる

【Excelのセルにコメントを入れる】

Dim rng As Object

Set rng = objExcel.Worksheets(strNewSheet).cells(xxxl, xxx)　　←range でもOK
rng.AddComment ”あああ！”