Hello,
I am trying to create a VBA macro that will set up some of the Text Shape properties. Please see the attached code below.
Dim my_object As ShapeFor Each my_object In ActiveSelectionRange.Shapes If my_object.Type = cdrTextShape Then my_object.Style.Character.Style.SetProperty "kern", 1 my_object.Style.Character.Style.SetProperty "lnum", 1 my_object.Style.Character.Style.SetProperty "onum", 0 my_object.Style.Character.Style.SetProperty "palt", 1 my_object.Style.Character.Style.SetProperty "pnum", 1 my_object.Style.Character.Style.SetProperty "tnum", 0 MsgBox my_object.Style.Character.Style.GetPropertyAsString("kern") & " " & _ my_object.Style.Character.Style.GetPropertyAsString("lnum") & " " & _ my_object.Style.Character.Style.GetPropertyAsString("onum") & " " & _ my_object.Style.Character.Style.GetPropertyAsString("palt") & " " & _ my_object.Style.Character.Style.GetPropertyAsString("pnum") & " " & _ my_object.Style.Character.Style.GetPropertyAsString("tnum") End IfNext my_object
It still outputs "1 0 0 1 0 0", no matter what I assign. Any idea how to properly set Paragraph properties?
Regards, Paul