Object Model Reference : Classes : A : Application : Methods : Application.cdrMixedSingle
|
|
| Object Model Reference : Classes : A : Application : Methods : Application.cdrMixedSingle |
Function cdrMixedSingle() As Single
Member of Application
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 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 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 |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.