Object Model Reference : Classes : A : Application : Methods : Application.cdrMixedLong
|
|
| Object Model Reference : Classes : A : Application : Methods : Application.cdrMixedLong |
Function cdrMixedLong() As Long
Member of Application
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 VBA example checks whether 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 |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.