Set bin = Assistant.NewBalloon
With bln
     .Mode = msoModeModal
     .Heading = "Attention Please"
     .Text = "That command is not available now."
     .Icon = msolconAlert
     .Show
End With

Для добавления растровой картинки Windows или Macintosh, укажите ее тип (например, bmp) и путь к файлу с этой картинкой; полученную строку заключите в фигурные скобки. Растровое изображение можно вставить в текст сообщения, его заголовок или на какую-нибудь надпись. (Кстати, чтобы заключить фрагмент текста в фигурные скобки, его надо разметить так, как показано в следующем примере.) Программа, приведенная ниже, вставляет файл растрового изображения Windows в текст сообщения; если файла Circles.bmp в указанной папке нет, возникнет ошибка. Об обработке ошибок, связанных с сообщениями, см. раздел ?BalloonError Property? справочной системы.

myBmp = "{bmp c:\Windows\circles.bmp}"
myText1 = "This text is before the picture, "
myText2 = " and this text is after the picture."
MyText3 = "{{This is text in braces.}"
Set bln = Assistant. NewBalloon
With bln
     .Mode = msoModeAutoDown
     .Heading = "Displaying a Bitmap."
     .Text = myText1 & myBmp & myText2 & myText3
     .Show
End With

Графический элемент, выводимый в сообщении, определяется по следующему синтаксису: {тип полное _имя_файла масштаб}, где тип задает тип графического элемента, полное_имя_файла ? полный путь к файлу, находящемуся либо в сети {\\cepвep\папка\picture.bmp), либо на локальном жестком диске {C:\nanкa\picture.bmp), а масштаб? ширину (в символах) метафайла Windows или изображения Macintosh (на BMP-файлы не влияет). Если используются пропорциональные шрифты, масштаб представляет среднюю ширину символов. Вы можете указать масштаб, чтобы уменьшить слишком большой или увеличить слишком маленький графический элемент до размеров, приемлемых в Вашем сообщении. В следующем примере мы уменьшаем размер отображаемого метафайла Windows (Clouds.wmf) до ширины в 20 символов и вставляем его как заголовок сообщения:

Set myBIn = Assistant. NewBalloon
myWmf = "{wmf c:\graphics\clouds.wmf 20}"
With myBIn
     .Mode = msoModeAutoDown
     .Heading = myWmf
     .Text = "Balloon with .wmf in heading"
     .Show
End With