Propiedad BalloonError
Devuelve un valor que indica el último error de globo registrado. MsoBalloonErrorType de sólo lectura.
| MsoBalloonErrorType puede ser una de estas constantes de MsoBalloonErrorType. |
| msoBalloonErrorBadCharacter El globo contiene un carácter de control ASCII distinto de CR o LF y menor que 32. |
| msoBalloonErrorBadPictureRef El globo contiene un mapa de bits que no se ha podido mostrar porque el archivo no existe o porque el mapa de bits no es un archivo .BMP o .WMF válido. |
| msoBalloonErrorBadReference El globo contiene una referencia no reconocida o no admitida. |
| msoBalloonErrorButtonlessModal El globo que intentó mostrar es modal, pero no contiene botones. El globo no se mostrará porque no puede cerrarse. |
| msoBalloonErrorButtonModeless El globo que intentó mostrar no tiene modo, contiene botones y no tiene un procedimiento asignado a la propiedad Callback. El globo no se mostrará porque se requiere un procedimiento para evaluar el botón seleccionado en él. |
| msoBalloonErrorCharNotTopmostForModal El globo de modo ha sido requerido por una aplicación distinta a la aplicación activa. Microsoft Office sólo muestra globos para la aplicación activa (la superior). |
| msoBalloonErrorCOMFailure El globo no se ha podido mostrar debido a un fallo COM. |
| msoBalloonErrorNone No se encontró ningún error. |
| msoBalloonErrorOther El globo no aparecerá porque se ha producido algún otro error; por ejemplo, otro globo modal ya está activo. |
| msoBalloonErrorOutOfMemory El globo no aparecerá porque no hay memoria suficiente. |
| msoBalloonErrorTooBig El globo es demasiado grande como para mostrarse en pantalla. |
| msoBalloonErrorTooManyControls El globo contiene más de veinte controles (casillas de verificación o etiquetas). |
Ejemplo
Este ejemplo crea un globo que genera un error. El error se debe a que el globo se ha creado sin posibilidad de cerrarlo. El tipo de botón se ha establecido en msoButtonSetNone y el modo de globo predeterminado es msoModeModal, produciendo un globo modal sin botones. Observe que no hay forma de cerrar un globo modal sin botones.
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