Stránka 1 z 1
není možno nastavit Strikethrough třídy font
Napsal: 18 kvě 2016 11:06
od VOM
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
Re: není možno nastavit Strikethrough třídy font
Napsal: 25 kvě 2016 07:01
od cmuch
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
Napsal: 25 kvě 2016 12:59
od VOM
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.
Re: není možno nastavit Strikethrough třídy font
Napsal: 25 kvě 2016 18:08
od cmuch
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
Napsal: 26 kvě 2016 08:06
od VOM
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.
Re: není možno nastavit Strikethrough třídy font
Napsal: 26 kvě 2016 12:42
od cmuch
Z makra jsem odstranil select.
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
Napsal: 30 kvě 2016 08:35
od VOM
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.