Форматирование заливки примечания

[aspetrov]

Задача товарищи в следующем:
на листе есть множество примечаний с заливкой в виде картинки.
Каким образом возможно выставить ширину и высоту примечаний равную изначальному размеру картинки?

конструкция вида:

....Comment.Shape.ScaleHeight 1, msoTrue
....Comment.Shape.ScaleWidth 1, msoTrue

не поможет т.к. тип не удовлетворяет условиям
....Comment.Shape.Type
Case msoEmbeddedOLEObject, _
msoLinkedOLEObject, _
msoOLEControlObject, _
msoLinkedPicture, msoPicture

А выражение
....Comment..Shape.ScaleHeight 1, msoFalse
....Comment..Shape.ScaleWidth 1, msoFalse
меняет размеры относительно текущих размеров примечания, а не изначальных размеров картинки.

или как узнать размер картинки, чтобы потом задать размеры примечания напрямую?

Зарание спасибо.

[anvg]

Попробуйте через
stdole.LoadPicture и IPictureDisp получить размер картинки, используемой в качестве заливки для фона комментария