View Single Post
  #2  
Old 22-04-2019, 19:44
knowbodynow knowbodynow is offline
Senior Member
 
Join Date: Mar 2006
Location: Hatsukaichi near Hiroshima
Posts: 431
Default

What kind of text? Under what circumstances? The following macro works with x6. For selected artistic text if the character spacing is 0 it makes it 200. if the spacing is not 0 then it makes it 0:

Code:
Sub ToggleSpacepace()

Dim s As Shape

If ActiveSelection.Shapes.Count = 0 Then

    MsgBox "Please Select some text to process", vbInformation, "Nothing Selected!"
    Exit Sub

End If

For Each s In ActiveSelection.Shapes

    If s.Type = cdrTextShape Then
    
        If s.text.Story.CharSpacing = 0 Then
        s.text.Story.CharSpacing = 200
        Else
        s.text.Story.CharSpacing = 0
        End If
    
    End If

Next s

End Sub
Reply With Quote