V E2010 jsem používal níže uvedené makro, které mi umístilo dvě excelová okna na dva monitory. V E2013 nefunguje. Prosím o radu jak opravit.
děkuji
Milan
Option Explicit
'Maximize Excel Across All Monitors
'Category: General VBA | [Item URL]
'
'If you've ever worked on a computer that has more than one monitor attached, you're probably hooked. It's great for VBA developers, because they can have Excel displayed on one monitor, and the VBA Editor displayed on another monitor.
'
'In some cases, you might want Excel's window to display across all monitors, to maximize the amount of data that you can see. When you maximize Excel's window, it fills only the current monitor. To display Excel across multiple monitors, you must do it manually:
'
'1.Make sure that the Excel window is not maximized.
'2.Drag Excel's window to the upper left corner of the first monitor
'3.Drag its left and bottom borders to fill all of your virtual screens.
'Here 's Excel in a 3200 x 1200 window:
'
'Here 's a simple macro that eliminates the manual work and causes Excel's window to display across all monitors:
Private Const SM_CXVIRTUALSCREEN = 78
Private Const SM_CYVIRTUALSCREEN = 79
Private Declare Function GetSystemMetrics Lib "user32" ( _
ByVal nIndex As Long) As Long
Sub FillVirtualScreen()
With Application
.WindowState = xlNormal
.Left = 63
.Top = 0
' .Width = GetSystemMetrics(SM_CXVIRTUALSCREEN)
.Width = 2800
' .Height = GetSystemMetrics(SM_CYVIRTUALSCREEN)
.Height = 902
End With
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Top = 2.4
.Left = 1.69
.Width = 1090
.Height = 535
End With
Windows.Arrange ArrangeStyle:=xlVertical
End Sub
'Note that the Excel window is not really maximized. In other words, you can drag the title bar to a different position. I don't know of any way to truly maximize Excel across multiple monitors.
Excel více monitorů
-
- Pohlaví:
Re: Excel více monitorů
Je v tom tolik "ale", že vám to dost možná nebude fungovat nikdy a vesměs to asi nemá smysl dělat. Verze Windows 7/8.1/10 (stoprocentně neumí více monitorů dodnes ani jeden) versus Excel 2010/2013/2016 (méně či více se mění práce s okny v každé ze zmíněných verzí, chaos v MDI/SDI oknech, ...). VBA k tomu taky nemá prostředky (jen v omezené míře, do toho nějaká ta volba Důvěřovat přístupu...), takže API. A nakonec si to stejně nesedne jak zadek na hrnec, protože jsou ve skinování aplikací takové prasárny, že to nemá obdoby. Stejně tak dost dobře nejde uřídit, na jakém monitoru zobrazovat formuláře, ve kterém okně otevřít další sešity atd. Být Vámi, tak se téhle myšlenky vzdám, a maximálně si pamatujte WIN + šipka v daném směru v rámci jednoho monitoru.
Re: Excel více monitorů
Ja pouzivat AutoHotkey.
Otevre Excel, nastavi velikost okna a presnou pozici leveho horniho roku na obrazovce.
Funguje perfektne i se 2 a 3 monitory.
Otevre Excel, nastavi velikost okna a presnou pozici leveho horniho roku na obrazovce.
Funguje perfektne i se 2 a 3 monitory.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Jak přidám více monitorů do mini Windows PC.
od holatir427 » 06 lis 2023 13:59 » v Problémy s hardwarem - 8
- 1425
-
od mmmartin
Zobrazit poslední příspěvek
04 led 2024 11:27
-
-
- 2
- 842
-
od Myerina
Zobrazit poslední příspěvek
20 dub 2024 11:36
-
-
excel text na konec více řádků najednou Příloha(y)
od Myerina » 03 led 2024 11:51 » v Kancelářské balíky - 5
- 962
-
od Zivan
Zobrazit poslední příspěvek
04 led 2024 09:42
-
-
-
144hz monitor nefunguje na více než 120hz Příloha(y)
od fakeyn » 11 kvě 2023 21:37 » v Problémy s hardwarem - 1
- 865
-
od kecalek
Zobrazit poslední příspěvek
12 kvě 2023 12:30
-
-
-
Prodám zcela nový - MegaRAID 9361-24i 4 GB - více kusů
od Pepe3340 » 17 dub 2024 08:39 » v P: Vše ostatní - 0
- 618
-
od Pepe3340
Zobrazit poslední příspěvek
17 dub 2024 08:39
-
Kdo je online
Uživatelé prohlížející si toto fórum: Facebook [Bot] a 14 hostů