není možno nastavit Strikethrough třídy font

[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

[cmuch]

Nechybí na těch počítačích nějaký font, který je použit v tom souboru?

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

[cmuch]

Tak zkusit jestli na těch PC jde nastavit přeškrtnutí písmen https://support.office.com

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

[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

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