V příloze máš použitý prvek ze sady "Ovládací prvky formuláře". V tomto případě bohužel písmo zvětšit nejde. Zkus použít sadu "Ovládací prvky ActiveX" (viz karta Vývojář / Vložit).
P.
P.
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: Rozbalovací seznam - Změna velikost písma
MS Excel
Téma: Rozbalovací seznam - Změna velikost písma 
Zaslal/a Merlin99 7.9.2018 19:28
Zdravím všechny,
potřeboval bych poradit jestli nekdo netusi jak zvetsit pismo v Poly se seznamem (Rozbalovací seznam)...
Viz příloha
Případne diky za radu 
Příloha: 
41422_narozky-kopie.rar (10kB, staženo 50x)
41422_narozky-kopie.rar (10kB, staženo 50x)Pavlus: DÍKY ZA ZPRÁVU. ComboBox Pouzit taky nemuzu pac ten zas nereaguje na dynamickou oblast co se tyce poctu radku... jsem v koncich 
Toto může vyřešit aktualizace ComboBoxu při změně v listu, viz událost listu "Worksheet_Change". Pro tvůj případ principiálně třeba nějak takto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$1" Then
ComboBox1.ListFillRange = ""
ComboBox1.ListFillRange = "POSUN"
End If
End Sub
A co to třeba udělat přímo v buňce přes Ověření dat / Seznam? V buňce si navolíš formát jaký potřebuješ. Vybrané číslo pak bude mít požadovaný formát, ale s formátem seznamu zase hýbat nepůjde, maximálně si pomoci s lupou v sešitu pro zvětšení.
Úplně přesně netuším, co je cílem tohoto cvičení, tak jenom nabízím další alternativu :-).
P.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$1" Then
ComboBox1.ListFillRange = ""
ComboBox1.ListFillRange = "POSUN"
End If
End Sub
A co to třeba udělat přímo v buňce přes Ověření dat / Seznam? V buňce si navolíš formát jaký potřebuješ. Vybrané číslo pak bude mít požadovaný formát, ale s formátem seznamu zase hýbat nepůjde, maximálně si pomoci s lupou v sešitu pro zvětšení.
Úplně přesně netuším, co je cílem tohoto cvičení, tak jenom nabízím další alternativu :-).
P.
No u ActiveX máte k dispozici komplet VBA, tak zkrátka využít nějakou událost. Vesměs řešení už naznačil Pavlus.
Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift _
As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox1.ListFillRange = _
ListObjects("Tabulka1").DataBodyRange.Address
'ComboBox1.ListFillRange = Range("Tabulka1").Address
'ComboBox1.ListFillRange = Range("MujZdroj").Address
End Sub
Kromě toho máte (za ta léta) dost přihlouplé nápady vytvářet definované názvy stejné, jako jsou názvy funkcí, nemluvě o tom, že i tak máte půlku řešení na listu.
Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift _
As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox1.ListFillRange = _
ListObjects("Tabulka1").DataBodyRange.Address
'ComboBox1.ListFillRange = Range("Tabulka1").Address
'ComboBox1.ListFillRange = Range("MujZdroj").Address
End Sub
Kromě toho máte (za ta léta) dost přihlouplé nápady vytvářet definované názvy stejné, jako jsou názvy funkcí, nemluvě o tom, že i tak máte půlku řešení na listu.
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články