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.