Stránka 1 z 1
Excel 2007 - Listbox - problém
Napsal: 23 dub 2010 14:46
od Branscombe
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 ??
Re: Excel 2007 - Listbox - problém
Napsal: 23 dub 2010 17:16
od navstevnik
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
Re: Excel 2007 - Listbox - problém
Napsal: 26 dub 2010 07:37
od Branscombe
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...
Re: Excel 2007 - Listbox - problém
Napsal: 26 dub 2010 12:28
od navstevnik
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).
Re: Excel 2007 - Listbox - problém
Napsal: 27 dub 2010 07:46
od Branscombe
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é.
Re: Excel 2007 - Listbox - problém
Napsal: 27 dub 2010 09:27
od navstevnik
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.
Re: Excel 2007 - Listbox - problém
Napsal: 27 dub 2010 10:01
od Branscombe
Zavolal jsem to pomocí:
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 ... :-/
Re: Excel 2007 - Listbox - problém
Napsal: 27 dub 2010 11:42
od navstevnik
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:
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.
Re: Excel 2007 - Listbox - problém
Napsal: 27 dub 2010 12:59
od Branscombe
"Compile error in hidden module: Module1" někde bude chybička :-/
Re: Excel 2007 - Listbox - problém
Napsal: 27 dub 2010 15:01
od Branscombe
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 ??
Re: Excel 2007 - Listbox - problém
Napsal: 03 kvě 2010 07:29
od Branscombe
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 ...
Re: Excel 2007 - Listbox - problém Vyřešeno
Napsal: 03 kvě 2010 10:14
od navstevnik
Tak prosim priloz dosazeny stav reseni, at je mozno najit pricinu na zaklade skutecneho stavu reseni, podle popsaneho projevu nemusi byt pricina jednoznacna.