想請教Excel 表單在多螢幕的顯示位置控制

excel vba 表單設計多螢幕

achan 2021-09-29 14:03:40 ‧ 1798 瀏覽

分享至

想請教Excel 表單在多螢幕的顯示位置控制?
可否設定為EXCEL檔案開啟的畫面中央?
[說明]
目前使用三個螢幕操作，EXCEL開啟檔案可能在 1/2/3 任意畫面
但是當點選功能要SHOW 表單USERFORM ，都只會在 1 的畫面顯示

有嘗試過屬性的 StartUpPositon 一樣都是多螢幕的畫面1

請問有辦法讓EXCEL檔案開在畫面3 時，開啟的表單也跟著在畫面3顯示嗎?

操作的畫面，表單跳到畫面1 的筆電螢幕上

窮嘶發發發 iT邦高手 1 級 ‧ 2021-09-29 16:04:32 檢舉

無解，印象中不只 EXCEL 有這個問題，很多都有，很多的應用程式本身不支援多重螢幕，他沒辦法讓某個應用程式右鍵顯示到螢幕幾，但支援的就可以這麼做
但是有第三方軟體，但我不知道你該如何透過程式去呼叫讓表單顯示在你想要的螢幕上，去找這各小軟體 multimonitortool ，他可以透過指令在你想要的螢幕執行應用程式，不過他還是無法有我前面說的那種功能，只能夠過指令來處理目標螢幕

achan iT邦研究生 4 級 ‧ 2021-09-29 16:21:54 檢舉

我後來英文google 後有解答了謝謝各位

'http://www.vbaexpress.com/kb/getarticle.php?kb_id=356
'https://www.mrexcel.com/board/threads/userform-positioning.501635/
Private Sub UserForm_Activate()
With UserForm1
.Top =Application.Top + 125
.Left = Application.Left+25
End With
End Sub
'----------------------以下其他建議--------- 顯示螢幕對了但是位置有問題
Private Sub UserForm_Activate()
'Position top/left of Excel App
Me.Top = Application.Top
Me.Left = Application.Left

'Approx over top/left cell (depends on toolbars visible)
Me.Top = Application.Top + (Application.UsableHeight / 2)
Me.Left = Application.Left + (Application.UsableWidth / 2)
End Sub
----------------------------------------------------------------------------------
Private Sub UserForm_Initialize()
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault

'Start Userform Centered inside Excel Screen (for dual monitors)
Me.StartUpPosition = 0
Me.Left = Application.Left + (0.5 * Application.Width) - (0.5 * Me.Width)
Me.Top = Application.Top + (0.5 * Application.Height) - (0.5 * Me.Height)

End Sub

登入發表討論