How To Add Stirkethrough? Follow

0
Avatar
Legacy Poster

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

2 comments

0
Avatar
Shotaro Ito
Comment actions Permalink

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
Avatar
Legacy Poster
Comment actions Permalink

Work!! Many thanks

Please sign in to leave a comment.