Object Model Reference : Classes : A : Application : Methods : Application.cdrMixedDouble
|
|
| Object Model Reference : Classes : A : Application : Methods : Application.cdrMixedDouble |
Function cdrMixedDouble() As Double
Member of Application
The cdrMixedDouble function returns a double value corresponding to a mixed (uneven) double. 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 MixedDouble() |
Dim s As Shape |
Set s = ActiveDocument.Selection.Shapes(1) |
If s.Type = cdrTextShape Then |
If s.Text.FontProperties.Size = cdrMixedDouble Then |
s.Text.FontProperties.Size = 12 |
End If |
End If |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.