如何让MsgBox窗口居中显示

avatar
作者
猴君
阅读量:6

要让MsgBox窗口居中显示,可以使用如下的VBA代码:

Sub CenterMsgBox()     '计算MsgBox窗口的左上角坐标     Dim x As Integer     Dim y As Integer     x = Application.Left + (Application.Width - 250) / 2     y = Application.Top + (Application.Height - 100) / 2     '显示MsgBox窗口     MsgBox "这是一个居中显示的MsgBox窗口", vbInformation, "标题", x, y End Sub 

以上代码中,首先计算了MsgBox窗口的左上角坐标,然后调用MsgBox函数显示窗口,并通过传递x和y坐标参数使其居中显示在屏幕中央。

广告一刻

为您即时展示最新活动产品广告消息,让您随时掌握产品活动新动态!