BalloonError Property

Applies To

Assistant object.

Description

Returns a value that indicates the last recorded balloon error. Read-only String.

Can be one of the following MsoBalloonErrorType constants.

Constant

Description

msoBalloonErrorBadPictureRef

The balloon contains a bitmap that couldn't be displayed because the file doesn't exist or because the bitmap isn't a valid .BMP or .WMF file (or PICT file on the Macintosh).

msoBalloonErrorBadReference

The balloon contains an unrecognized or unsupported reference.

msoBalloonErrorButtonlessModal

The balloon you attempted to display is modal, but it contains no buttons. The balloon won't be shown because it cannot be dismissed.


(continued)

msoBalloonErrorButtonModeless

The balloon you attempted to display is modeless, contains no buttons, and has no procedure assigned to the Callback property. The balloon won't be shown because a procedure is required to evaluate the button clicked in the balloon.

msoBalloonErrorNone

The property succeeded in displaying the balloon; no error was encountered.

msoBalloonErrorBadCharacter

The balloon contains an ASCII control character other than CR or LF and greater than 32.

msoBalloonErrorOutOfMemory

The balloon won't appear because there is insufficient memory.

msoBalloonErrorTooBig

The balloon is too big to appear on the screen.

msoBalloonErrorOther

The balloon won't appear because some other error occurred, such as another modal balloon is already active.


See Also

Balloon object, BalloonType property, Show method.

Example

This example creates a balloon that generates an error. The error is caused because the balloon is created without a way to dismiss it: the button type was set to msoButtonSetNone and the default balloon mode is msoModeModal, resulting in a buttonless balloon. Note that there's no way to dismiss a buttonless modal balloon.

With Application.Assistant
With .NewBalloon
    .Heading = "This will never show."
    .Text = "Imagine a balloon here."
    .Button = msoButtonSetNone
    .Show
End With
.Visible = True
If .BalloonError = msoBalloonErrorButtonlessModal Then
    MsgBox "You need a button to dismiss the balloon."
End If
End With