SerifStyle Property
MiFONT_SERIF_STYLE
SerifStyle can be one of the following MiFONT_SERIF_STYLE constants. |
MIFSerifSANS (1) |
MIFSerifTHIN (2) |
MIFSerifSQ (3) |
MIFSerifRND (4) |
MIFSerifSTYLE_UNKNOWN (5) |
expression.SerifStyle
*expression * Required. An expression that returns an MiFont object.
Example
The following example performs optical character recognition (OCR) on the first page of a document, and then reports the font properties, including the font family, of the third recognized word.
Sub TestFont()
Dim miDoc As MODI.Document
Dim miFont As MODI.miFont
Dim strFontInfo As String
' Load an existing TIFF file.
Set miDoc = New MODI.Document
miDoc.Create "C:\document1.tif"
' Perform OCR.
miDoc.Images(0).OCR
' Retrieve and display font information.
Set miFont = miDoc.Images(0).Layout.Words(2).Font
strFontInfo = _
"Font family: " & miFont.Family & vbCrLf & _
"Font size: " & miFont.FontSize & vbCrLf & _
"Face style: " & miFont.FaceStyle & vbCrLf & _
"Serif style: " & miFont.SerifStyle & vbCrLf
MsgBox strFontInfo, vbInformation + vbOKOnly, _
"Font Information"
Set miFont = Nothing
Set miDoc = Nothing
End Sub
Applies to | MiFont Object