Application.cdrMixedLong

Function cdrMixedLong() As Long

The cdrMixedLong property returns a long value corresponding to a mixed (uneven) long. 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 MixedLong() 
 Dim s As Shape 
 Set s = ActiveDocument.Selection.Shapes(1) 
 If s.Type = cdrTextShape Then 
  If s.Text.FontProperties.Size = cdrMixedLong Then 
   s.Text.FontProperties.Size = 12 
  End If 
 End If 
End Sub