How To Add Stirkethrough?

Legacy Poster

• 15. Mai 2015 15:20

I want to help.

I have to text "ABCD" and "1234"

If 1234 value = 1
the ABCD no stirkethrough

If 1234 value =2 or 3 or 4
the ABCD auto add stirkethrough

I try this
IF Format.NamedSubStrings("1234").value = 1 than
stirkethrough = false
Else
Strikethrough = true
End

But not work, sorry for my bad english

0

• 

  Shotaro Ito

  ★ BarTender Hero ★

  • 18. Mai 2015 01:07

  To modify font from script, you need Automation edition or above.

   

  From File > BarTender document options > VB Script tab,

  OnNewRecord Event,

  IF Format.NamedSubStrings("1234").value = 1 then
    Format.Objects("Text 1").FontStrikeout = false
  Else
    Format.Objects("Text 1").FontStrikeout = true 
  End if
  

  See this topic for more detail.

  http://forums.seagullscientific.com/index.php?/topic/213-how-to-change-object-properties/

  0
• 

  Legacy Poster

  ★ BarTender Hero ★

  • 18. Mai 2015 03:52
  Work!! Many thanks

  0

Bitte melden Sie sich an, um einen Kommentar zu hinterlassen.