Конечно, можно. В чём сложность?  
Разве формат примечания потом сам меняется?  
 
Если примечания создаются макросом, то вот пример:  
http://excelvba.ru/XL_Files/Sample__26-09-2009__22-45-17.zip

Макрос написать можно, если только знать, какое именно форматирование необходимо применить к примечаниям.  
 
Будет пример файла с отфоматированным как надо примечанием - будет макрос.

Вот весь макрос:  
 
Sub test()  
   Dim sh As Worksheet, com As Comment  
   For Each sh In ThisWorkbook.Worksheets  
       For Each com In sh.Comments  
           With com.Shape.TextFrame.Characters.Font  
               .ColorIndex = 32: .Bold = -1: .Italic = -1: .Size = 12  
           End With  
           com.Shape.Fill.ForeColor.SchemeColor = 40  
       Next com  
   Next sh  
End Sub

Наверное макрос нужно поместить в C:\Program Files\Microsoft Office\OFFICE11\XLSTART\PERSONAL.XLS  
Есть второй вариант: правый клик на рабочем столе Свойства-Оформление-Дополнительно-Элемент/Всплывающая подсказка.

{quote}{login=}{date=26.09.2009 11:35}{thema=}{post}johns, см. файл. В нём я вставил свои комментарии. Посмотрите их форматирование. А потом запустите макрос "Изменить_комментарии" (макрос от EducatedFool) и посмотрите, как изменится форматирование всех комментариев.  
 
Измените данный макрос под свои нужны (мы же не знаем, какое именно форматирование нужно).  
 
Так что макрос от EducatedFool нормально работает{/post}{/quote  
Благодарю за помощь, подскажите, что нужно дописать в макросе, чтобы ещё размер примечания автоподстраивался по объёму текста? Видать забыл указать.

{quote}{login=}{date=27.09.2009 02:28}{thema=}{post}Запишите макрорекордером в свойствах примечания установку авторазмера и увидите сами код.{/post}{/quote}  
Да если бы я знал куда эту строчку прописать(.AutoSise = True), ваще каков алгоритм заполнения?

Вот код от The_Prist с AutoSize = True  
 
Sub Change_comment()  
Dim rCell As Range, rRangeComments As Range, rCommentCell As Range  
 
On Error Resume Next  
Set rCommentCell = Application.InputBox("Укажите ячейку с образцом примечания", "Параметры", Type:=8)  
If rCommentCell Is Nothing Then Exit Sub  
rCommentCell.Comment.Shape.PickUp  
    On Error Resume Next  
    Set rRangeComments = ActiveSheet.UsedRange.SpecialCells(xlComments)  
    On Error GoTo 0  
    If Not rRangeComments Is Nothing Then  
          For Each rCell In rRangeComments  
            rCell.Comment.Shape.Apply  
            rCell.Comment.Shape.TextFrame.AutoSize = True  
          Next rCell  
    Else  
       MsgBox "В указанном диапазоне примечаний нет"  
    End If  
End Sub