Dobrý den
Při otevírání souboru xxx. xlsm na mě vyskočila hláška "není možno nastavit Strikethrough třídy font". Jen na některých počítačích.
Prosím o nasměrováni, kde hledat chybu a jak ji odstranit.
Děkuji
Milan
není možno nastavit Strikethrough třídy font
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: není možno nastavit Strikethrough třídy font
Nechybí na těch počítačích nějaký font, který je použit v tom souboru?
Re: není možno nastavit Strikethrough třídy font
Děkuji
V souboru jsou jen písma Arial a Arial Narrow. Obě písma jdou ručně normálně v Excelu na inkriminovaných počítačích nastavit.
Hezký den
M.
V souboru jsou jen písma Arial a Arial Narrow. Obě písma jdou ručně normálně v Excelu na inkriminovaných počítačích nastavit.
Hezký den
M.
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: není možno nastavit Strikethrough třídy font
Tak zkusit jestli na těch PC jde nastavit přeškrtnutí písmen https://support.office.com
Re: není možno nastavit Strikethrough třídy font
Děkuji
To samozřejmě jde. Níže uvádím část makra na kterém to spadne.
Range("B33:U" & pocet_radku).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$j33=""LOST"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Strikethrough = True
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Hezký den
M.
To samozřejmě jde. Níže uvádím část makra na kterém to spadne.
Range("B33:U" & pocet_radku).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$j33=""LOST"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Strikethrough = True
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Hezký den
M.
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: není možno nastavit Strikethrough třídy font
Z makra jsem odstranil select.
Spadne to na tom řádku Strikethrough?
Spadne to na tom řádku Strikethrough?
Kód: Vybrat vše
With Range("B33:U" & pocet_radku)
.FormatConditions.Add Type:=xlExpression, Formula1:="=$j33=""LOST"""
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Font
.Strikethrough = True
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False
End With
Re: není možno nastavit Strikethrough třídy font
Díky za radu, asi je to rychlejší, ale na problému to nemění nic.
Na některých počítačích to funguje a na jiných nee. Všechny mají W7 a E2010.
Hezký den M.
Na některých počítačích to funguje a na jiných nee. Všechny mají W7 a E2010.
Hezký den M.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 4
- 963
-
od petr22
Zobrazit poslední příspěvek
27 pro 2023 11:56
-
-
Nelze nastavit Letter jakýkoliv na DIsku Příloha(y)
od xCloudGirl » 13 led 2024 15:38 » v Problémy s hardwarem - 6
- 906
-
od xCloudGirl
Zobrazit poslední příspěvek
14 led 2024 20:00
-
-
-
Nejde nastavit vyšší rychlost spojení než 100/100 (Mbps) Příloha(y)
od Kubista33a » 24 kvě 2023 12:06 » v Sítě - hardware - 8
- 1589
-
od ITCrowd
Zobrazit poslední příspěvek
25 kvě 2023 22:55
-
-
-
Tiskárna HP Deskjet 2130 nelze nastavit jako výchozí v notebooku
od Zabral68 » 24 srp 2023 18:59 » v Problémy s hardwarem - 2
- 805
-
od Zabral68
Zobrazit poslední příspěvek
25 srp 2023 10:11
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 1 host