The following code is working for applying alignments and wrapping. But the font name and sizing is not changing. I am using a template .xlsx file as a source and the template’s fonts and sizes are still present on the output file. Data is being imported to multiple sheets in the workbook and this formatting is applied as a final step.
'Create styles for text and numeric values
Dim styleTxtIdx As Int32 = wbAspose.Styles.Add()
Dim styleTxt As Style = wbAspose.Styles(styleTxtIdx)
Dim styleTxtFlag As New StyleFlag()
styleTxt.HorizontalAlignment = TextAlignmentType.Left
styleTxt.VerticalAlignment = TextAlignmentType.Top
styleTxtFlag.HorizontalAlignment = True
styleTxtFlag.VerticalAlignment = True
styleTxt.Font.Name = “Arial”
styleTxtFlag.FontName = True
styleTxt.Font.Size = 10
styleTxtFlag.FontSize = True
Dim styleNumIdx As Int32 = wbAspose.Styles.Add()
Dim styleNum As Style = wbAspose.Styles(styleNumIdx)
Dim styleNumFlag As New StyleFlag()
styleNum.HorizontalAlignment = TextAlignmentType.Right
styleNum.VerticalAlignment = TextAlignmentType.Top
styleNumFlag.HorizontalAlignment = True
styleNumFlag.VerticalAlignment = True
styleNum.Font.Name = “Arial”
styleNumFlag.FontName = True
styleNum.Font.Size = 10
styleNumFlag.FontSize = True
Dim maxColumn As Int16 = sheet.Cells.MaxDataColumn()
For c = 0 To maxColumn
Try
sheet.AutoFitColumn(c, 1, maxRow)
Catch ex As Exception
Debug.Print("AutoFitColumn FAILED on sheet " & sheet.Name & " column " & c.ToString() & " → " & ex.ToString())
End Try
If sheet.Cells.GetColumnWidth(c) > 70 Then
styleTxt.IsTextWrapped = True
styleTxtFlag.WrapText = True
sheet.Cells.SetColumnWidth(c, 70)
End If
If sheet.Cells(2, c).Type = CellValueType.IsNumeric Then
sheet.Cells.ApplyColumnStyle(c, styleNum, styleNumFlag)
Else
sheet.Cells.ApplyColumnStyle(c, styleTxt, styleTxtFlag)
End If
totalColumnWidthInch += sheet.Cells.GetColumnWidthInch(c)
If (sheet.Cells.GetColumnWidthInch(c) < 2) Then
smallColumnCount += 1
Else
availableWidthInch = availableWidthInch - sheet.Cells.GetColumnWidthInch(c)
End If
Next
(Using Aspose Cells version 4.8.2.8)
I set all sheets in the template file to “Arial” font size 10 but I am still getting “Calibri” size 11 on the output file.
Am I missing something in how to apply the font properties?
Thanks,
Jeff
This message was posted using Page2Forum from Aspose.Cells for .NET - Documentation