XLSetDefaultFont(xlHandle As Integer, fontName As String, fontSize As Integer)

 

Sets a default font name and size for the workbook of Excel document xlHandle.

 

 

Parameters:

 

Name

Type

Description

xlHandle

Integer

A handle to a Excel document. The document must have been created by using the function XLCreateFromTemplate and the Integer we obtained from it is used as xlHandle here.

fontName

String

A font name as it appears in the OSX font book.

Example: Arial Narrow

fontSize

Integer

Size of the font.

Example: 8

  

Available in:

 

WindowMain

WindowLink

YES

NO

 

 Used in:

 

XojoScript Name

GUID

Save As Excel sheet : participants list

E50602AA-F1F7-42E6-A44A-78456DD9B778

Save as Excel sheet : seminar participants list

03C22A3D-FF28-4E22-BB99-D7626BF5F0A4

Save as Excel sheet : seminar invoice list

6DDAFA87-2862-4129-8416-CBD57C5CDF9A

 

Hint: You can find more references to XojoScripts which make use of this function by sending the following SQL statement to the database: Select id,GUID, ScriptName,ScriptCode from im_scripts where ScriptCode Like '%XLSetDefaultFont%'

 

Example XojoScript:

 

Dim hXL As Integer

 

// Get Handle to newly created Excel file

hXL = XLCreateFromTemplate("myXLtest.xls")

 

// Set default font for Excel sheet

XLSetDefaultFont(hXL,"Arial Narrow",8)

 

Dim listfont As Integer = XLAddFont(hXL,"Arial Narrow",8)

Dim listformat As Integer = XLAddFormat(hXL)

Dim numberformat As Integer = XLAddFormat(hXL)

 

// Add font to formats

XLFormatSetFont(hXL,listformat,listfont)

XLFormatSetFont(hXL,numberformat,listfont)

 

// Set properties of listformat

XLFormatSetBorderBottom(hXL,listformat,"Hair")

 

// Set properties of numberformat

XLFormatSetAlign(hXL,numberformat,"AlignH","AlignHRight")

XLFormatSetNumFormat(hXL,numberformat,"NumformatNumberD2SepNegbraRed")

XLFormatSetBorderBottom(hXL,numberformat,"Hair")

 

If hXL > -1 Then

Dim i As integer

For i = 2 To 100

XLWriteString(hXL,i,0,"Zeile " + Str(i),listformat)

XLWriteNumber(hXL,i,1,i,numberformat)

XLWriteBoolean(hXL,i,2,i)

Next

 

XLSave(hXL)

XL(hXL,"launch")

End If