Ahoj všichni... Mám trošku problém s Excelem 2007.
Mám vytvořený ListBox a když otevřu daný soubor s Listboxem na jiném počitači v jiném rozlišení tak se listbox přizpůsobí (zmenší se písmo a text je nečitelný nebo se zvětší okno s listboxem a překryje mi ostatní informace).
Po nakliknutí listboxu a změny velikosti na jakoukoliv stranu se mi text změní zpět na výchozí hodnotu.
Toto platí pouze pro verzi Excel 2007, ve 2003 vše funguje jak má ...
Bohužel nemohu přiložit soubor, jelikož *.xlsm nemohu nahrát.
Poradí někdo co s tím ??
Excel 2007 - Listbox - problém Vyřešeno
- Branscombe
- Level 3
- Příspěvky: 469
- Registrován: červen 09
- Pohlaví:
- Stav:
Offline
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Excel 2007 - Listbox - problém
Pomoci procedury (http://www.dataspectrum.cz/pages/faq/faqexcel.htm) zjisti rozliseni monitoru a pak procedurou uprav ve vlastnostech (predpoklad, ze pouzivas ovladaci prvky z Ovladacich prvku, nikoliv z Formulare) umisteni Top, Left a rozmery Height, Width.
Kód: Vybrat vše
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CYSCREEN As Long = 1
Const SM_CXSCREEN As Long = 0
Sub GetScreenDimensions()
Dim lWidth As Long
Dim lHeight As Long
lWidth = GetSystemMetrics(SM_CXSCREEN)
lHeight = GetSystemMetrics(SM_CYSCREEN)
MsgBox "Horizontální rozlišení = " & lWidth & vbCrLf & "Vertikální rozlišení = " & lHeight
End Sub
- Branscombe
- Level 3
- Příspěvky: 469
- Registrován: červen 09
- Pohlaví:
- Stav:
Offline
Re: Excel 2007 - Listbox - problém
Používám ovládací prvky z ovládacích prvků, ale jakou procedůrou a jak to následně upravím ? Nějak v tom tápu...
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Excel 2007 - Listbox - problém
Zkus prilozit soubor se vzorovymi daty, at neni nutno vymyslet neco nekonkretniho, co by se stejne lisilo od tve konkretni potreby. A blize specifikuj, jak je nutno upravit formatovani listboxu ve vztahu k ruznym rozliseni monitoru (predpokladam, ze sesit nebude oteviran na netbooku se 7" monotorem).
- Branscombe
- Level 3
- Příspěvky: 469
- Registrován: červen 09
- Pohlaví:
- Stav:
Offline
Re: Excel 2007 - Listbox - problém
Tak soubor v příloze. Je v zipu, jelikož to je *.xlsm a ten vložit nelze
Po otevření se okno maximalizuje a mělo by se upravit dle rozlišení obrazovky tak aby se tam vše vešlo, což znamená zoom třeba na 60% při rozlišení 800x600, ale listboxy by měly zůstat stejné a písmo v nich také čitelné.
Po otevření se okno maximalizuje a mělo by se upravit dle rozlišení obrazovky tak aby se tam vše vešlo, což znamená zoom třeba na 60% při rozlišení 800x600, ale listboxy by měly zůstat stejné a písmo v nich také čitelné.
- Přílohy
-
- vzor.zip
- (30.8 KiB) Staženo 21 x
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Excel 2007 - Listbox - problém
Pokud se jedna o upravu velikosti zobrazeni (Zoom), zavolej proceduru Sub ZoomControl z procedury Sub Workbook_Open.
Tzv. "Listboxy" v priloze nejsou z nabidky Panely nastroju>Ovladaci prvky ale jakesi vlozene obdelniky. Vloz skutecne Listboxy z Ovladacich prvku.
Tzv. "Listboxy" v priloze nejsou z nabidky Panely nastroju>Ovladaci prvky ale jakesi vlozene obdelniky. Vloz skutecne Listboxy z Ovladacich prvku.
- Branscombe
- Level 3
- Příspěvky: 469
- Registrován: červen 09
- Pohlaví:
- Stav:
Offline
Re: Excel 2007 - Listbox - problém
Zavolal jsem to pomocí:
a funguje, to je v pořádku, ale mění se mi velikost listboxů a písma ...
Tzv. "Listboxy" v příloze jsou vloženy z ovládacích prvků ActiveX - Seznam ... Nevím jaký jiný listbox bych tam měl vložit ... :-/
Kód: Vybrat vše
Private Sub Workbook_NewSheet(ByVal Sh As Object)
ZoomControl
End Sub
a funguje, to je v pořádku, ale mění se mi velikost listboxů a písma ...
Tzv. "Listboxy" v příloze jsou vloženy z ovládacích prvků ActiveX - Seznam ... Nevím jaký jiný listbox bych tam měl vložit ... :-/
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Excel 2007 - Listbox - problém
Omlouvam se, problem byl v nizsi verzi Exelu.
Co se tyce zmeny rozmeru listboxu a velikosti pouziteho fontu, vloz do procedury ZoomControl podle zjisteneho rozliseni radky upravujici rozmery a velikost fontu, hodnoty prepocti v pomeru Zoomfactoru, jen ukazka, jak to udelat:
pri ukonceni vrat na puvodni hodnoty.
Co se tyce zmeny rozmeru listboxu a velikosti pouziteho fontu, vloz do procedury ZoomControl podle zjisteneho rozliseni radky upravujici rozmery a velikost fontu, hodnoty prepocti v pomeru Zoomfactoru, jen ukazka, jak to udelat:
Kód: Vybrat vše
....
OrigWidthList5=75 ' puvodni rozmer
....
Select Case lngWidth
Case Is >= 1280
Zoomfactor = 100 * Zoomfactor/100
With Worksheets("main").List5
.Top = OrigWidthList5 * Zoomfactor/100 ' prepocet podle zoomfactoru z puvodni velikosti
.Width = 300 * Zoomfactor/100
.Font.Size = 14
End With
Case....
pri ukonceni vrat na puvodni hodnoty.
- Branscombe
- Level 3
- Příspěvky: 469
- Registrován: červen 09
- Pohlaví:
- Stav:
Offline
Re: Excel 2007 - Listbox - problém
"Compile error in hidden module: Module1" někde bude chybička :-/
- Branscombe
- Level 3
- Příspěvky: 469
- Registrován: červen 09
- Pohlaví:
- Stav:
Offline
Re: Excel 2007 - Listbox - problém
Tak jsem to opravil a nějak zprovoznil ... ještě budu chvíli testovat ... Nevíš prosímtě ještě jak odstranit u těch listboxů vodorovný scrollbar ??
- Branscombe
- Level 3
- Příspěvky: 469
- Registrován: červen 09
- Pohlaví:
- Stav:
Offline
Re: Excel 2007 - Listbox - problém
Jak zabránit zmenšení písma ?? Ať dělám co dělám, zmenšuje se mi v Listboxech písmo... Někdy až do té míry že nejde přečíst...
A když kliknu na list vedle a zpátky na list s listboxy tak se zmenší písmo. Kliknu znovu na vedlejší list a zpátky a písmo je zase o něco menší... a tak dále a tak dále až do úplného zmizení textu ...
A když kliknu na list vedle a zpátky na list s listboxy tak se zmenší písmo. Kliknu znovu na vedlejší list a zpátky a písmo je zase o něco menší... a tak dále a tak dále až do úplného zmizení textu ...
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Excel 2007 - Listbox - problém Vyřešeno
Tak prosim priloz dosazeny stav reseni, at je mozno najit pricinu na zaklade skutecneho stavu reseni, podle popsaneho projevu nemusi byt pricina jednoznacna.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 2
- 1852
-
od honzzicek
Zobrazit poslední příspěvek
01 črc 2023 08:57
-
-
Word 2007: Jak zrušit prázdné řádky na každé stránce mezi čarou a poznámkami?
od Jirka0508 » 29 pro 2023 00:30 » v Windows 11, 10, 8... - 1
- 791
-
od mmmartin
Zobrazit poslední příspěvek
29 pro 2023 13:00
-
-
- 16
- 6363
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
- 1
- 446
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
- 3
- 2047
-
od Story-Long
Zobrazit poslední příspěvek
14 srp 2023 10:11
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 41 hostů