Excel 2007 - Listbox - problém

[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 ??

[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

[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...

[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).

[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é.

[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.

[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 ... :-/

[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.

[Branscombe]

"Compile error in hidden module: Module1" někde bude chybička :-/

[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 ??

[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 ...

[navstevnik]

Tak prosim priloz dosazeny stav reseni, at je mozno najit pricinu na zaklade skutecneho stavu reseni, podle popsaneho projevu nemusi byt pricina jednoznacna.