Application.cdrMixedSingle

Function cdrMixedSingle() As Single

The cdrMixedSingle property returns a value corresponding to a mixed (uneven) single. An undefined value is returned by some functions when ambiguity (different values) exists. For example, text that contains font characters of different sizes has mixed settings.

The following code example checks to see if the specified selection is a text object. If this text object contains characters with varying font sizes, it sets a uniform font size for the entire text object.

Sub MixedSingle() 
 Dim s As Shape 
 Set s = ActiveDocument.Selection.Shapes(1) 
 If s.Type = cdrTextShape Then 
  If s.Text.FontProperties.Size = cdrMixedSingle Then 
   s.Text.FontProperties.Size = 12 
  End If 
 End If 
End Sub