Excel více monitorů

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

VOM
Level 1
Level 1
Příspěvky: 89
Registrován: srpen 10
Pohlaví: Muž

Excel více monitorů

Příspěvekod VOM » 02 srp 2018 12:14

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.



Reklama
xlnc
Level 3.5
Level 3.5
Příspěvky: 860
Registrován: červenec 11
Pohlaví: Muž

Re: Excel více monitorů

Příspěvekod xlnc » 02 srp 2018 12:49

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.
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel

petr22
Guru Level 14.5
Guru Level 14.5
Příspěvky: 35620
Registrován: únor 12
Pohlaví: Muž

Re: Excel více monitorů

Příspěvekod petr22 » 02 srp 2018 14:25

Ja pouzivat AutoHotkey.

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
  • Rozšíření na více monitorů
    od kuře » 29 čer 2018 21:55 » v Problémy s hardwarem
    1
    258
    od petr22
    29 čer 2018 22:05
  • více monitorů,funguje pouze jeden
    od Michall44 » 05 říj 2018 18:36 » v Problémy s hardwarem
    0
    273
    od Michall44
    05 říj 2018 18:36
  • Přihlášení více uživatelů
    od luko02420 » 05 zář 2018 14:02 » v Kancelářské balíky
    6
    704
    od luko02420
    06 zář 2018 19:48
  • Zvuk do více výstupů
    od Honelix » 14 dub 2018 23:34 » v Problémy s hardwarem
    14
    880
    od zeus
    16 dub 2018 19:31
  • Kontrola pravopisu více jazyků
    od naro » 03 bře 2018 20:20 » v Kancelářské balíky
    5
    549
    od atari
    05 bře 2018 12:14

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 1 host