扫描二维码下载沐宇APP

沐宇

微信扫码使用沐宇小程序

沐宇

如何让MsgBox窗口居中显示

扬州沐宇科技
2024-06-29 22:41:34
MsgBox

要让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坐标参数使其居中显示在屏幕中央。

扫码添加客服微信