BalloonError 属性
优质
小牛编辑
126浏览
2023-12-01
返回显示所记录的最后一条气球错误的值。MsoBalloonErrorType 类型,只读。
MsoBalloonErrorType 可为以下 MsoBalloonErrorType 常量之一:msoBalloonErrorBadCharacter该气球包含一个非 CR 或 LF 并小于 32 的 ASCII 控制字符。msoBalloonErrorBadPictureRef该气球包含一个无法显示的图形,原因可能是该文件不存在或该图形不是有效的 .BMP 或 .WMF 文件。msoBalloonErrorBadReference该气球包含一个无法被识别或支持的引用。msoBalloonErrorButtonlessModal要显示的气球是一个模态气球,但是其中不包含任何按钮。由于该气球不能被取消,所以无法将其显示出来。要显示的气球是非模态的且包含按钮,并且没有为Callback 属性指定过程。由于非模态气球需要回调过程,所以无法显示该气球。msoBalloonErrorCharNotTopmostForModal一个非活动的应用程序需要模态气球。Microsoft Office 只为活动(最顶层)应用程序提供气球。msoBalloonErrorCOMFailure由于 COM 错误,无法显示该气球。msoBalloonErrorNone没有遇到错误。msoBalloonErrorOther由于发生了一些其他错误(例如另一个模态气球已经处于活动状态),无法显示该气球。msoBalloonErrorOutOfMemory由于没有足够的内存,无法显示该气球。msoBalloonErrorTooBig该气球太大,无法显示在屏幕上。msoBalloonErrorTooManyControls该气球包含超过二十个控件(复选框或标签)。示例
本示例创建一个气球,该气球将产生一个错误。错误原因是由于创建该气球时没有为其设置取消方法:由于该按钮的类型被设置为msoButtonSetNone,并且默认气球模态为msoModeModal,因此产生了一个无按钮的模态气球。注意:无法取消一个无按钮的模态气球。
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