如何讓MsgBox窗口居中顯示

小樊
130
2024-06-29 22:41:34

要讓MsgBox窗口居中顯示，可以使用如下的VBA代碼：

Sub CenterMsgBox()
    '計(jì)算MsgBox窗口的左上角坐標(biāo)
    Dim x As Integer
    Dim y As Integer
    x = Application.Left + (Application.Width - 250) / 2
    y = Application.Top + (Application.Height - 100) / 2
    '顯示MsgBox窗口
    MsgBox "這是一個(gè)居中顯示的MsgBox窗口", vbInformation, "標(biāo)題", x, y
End Sub

以上代碼中，首先計(jì)算了MsgBox窗口的左上角坐標(biāo)，然后調(diào)用MsgBox函數(shù)顯示窗口，并通過(guò)傳遞x和y坐標(biāo)參數(shù)使其居中顯示在屏幕中央。

0 踩