Программа 21.2. Использование объектов Assistant и Balloon



Программа 21.2. Использование объектов Assistant и Balloon

Sub ShowAssistant()

blnName = Application.Assistant.Name

Dim bin As Balloon

Set bin = Application.Assistant.NewBalloon

With bin

.Heading = "Привет!"

.Icon = msoIconTip

.Text = "Меня зовут " + blnName + "."

.Show End With End Sub




Содержание раздела