HOW TO EXTEND UNDERLINE IN EXCEL HOW TO
HOW TO EXTEND UNDERLINE IN EXCEL CODE
HOW TO EXTEND UNDERLINE IN EXCEL PLUS

HOW TO EXTEND UNDERLINE IN EXCEL HOW TO

Restores the Bold, Italics and Underline but loses all the other formatting.This short tutorial shows how to copy formatting in Excel using Format Painter, Fill Handle and Paste Special options. Removing the last line of the function: Decorator.Font := CustomFont

HOW TO EXTEND UNDERLINE IN EXCEL CODE

When calling this code the font and the fill colour are all set as expected, but the Bold, Italics and Underline aren't. IF (FontName '') OR (FontSize 0) OR (FontColour 0) OR (BackgroundColour 0) THENД¬ustomFont := (TRUE)Д¬ustomFontName := CustomFontName.FontName Д¬ustomFontName.Val := XmlStringValue.StringValue(FontName) Д¬ustomFontSize := CustomFontSize.FontSize Д¬ustomFontSize.Val := FontSizeValue.DoubleValue(FontSize) ДЎ : CustomColour.Rgb := HexColour.HexBinaryValue(ColourBlack) Дў : CustomColour.Rgb := HexColour.HexBinaryValue(ColourWhite) ДЈ : CustomColour.Rgb := HexColour.HexBinaryValue(ColourRed) Д¤ : CustomColour.Rgb := HexColour.HexBinaryValue(ColourBlue) ДҐ : CustomColour.Rgb := HexColour.HexBinaryValue(ColourGreen) Д¦ : CustomColour.Rgb := HexColour.HexBinaryValue(ColourRose) Д§ : CustomColour.Rgb := HexColour.HexBinaryValue(ColourLightGrey) Д¬ustomColour.Rgb := HexColour.HexBinaryValue(ColourBlack) Д§ : HexBackgroundColour := ColourLightGrey Д¬ustomCellFill := (TRUE) Д¬ustomCellPatternFill := CustomCellPatternFill.PatternFill(Д¬ustomCellFill.PatternFill := CustomCellPatternFill ДЇonts := .Stylesheet.Fonts Д¬olourBlack, ColourWhite etc are text constants using the colour's hex value.

The GetCellDecoratorWithFont function looks like this: IF IsBold AND IsItalic AND IsUnderlined THENДecorator := XlWrkShtWriter.DefaultBoldItalicUnderlinedCellDecoratorДecorator := XlWrkShtWriter.DefaultBoldItalicCellDecoratorДecorator := XlWrkShtWriter.DefaultBoldUnderlinedCellDecoratorДecorator := XlWrkShtWriter.DefaultBoldCellDecoratorДecorator := XlWrkShtWriter.DefaultItalicUnderlinedCellDecoratorДecorator := XlWrkShtWriter.DefaultItalicCellDecoratorДecorator := XlWrkShtWriter.DefaultUnderlinedCellDecoratorДecorator := XlWrkShtWriter.DefaultCellDecorator

HOW TO EXTEND UNDERLINE IN EXCEL PLUS

This function takes the same parameters as the existing GetCellDecorator function plus a parameter for each of the new table fields. All calls to the GetCellDecorator function in the Excel Buffer table are then replaced by calls to a new GetCellDecoratorWithFont function instead. These fields can be set by the calling module. My implementation of Saurav's solution involves adding the fields 'Font Name' (Text 100), 'Font Size' (Integer), 'Font Colour' (Integer) and 'Background Colour' (Integer) to the Excel Buffer table (Table 370). Comments on his post suggest that this is something that hasn't yet been resolved. I have managed to set these additional properties using the solution given by Saurav Dhyani in his NAV 2013 R2 - Export To Excel With Font & ColorВ blog post but that solution doesn't retain the setting of the Bold, Italics and Underline properties when the font is changed. I am using the MS Dynamics Navision 2013 R2 Excel Buffer table to generate an Excel spreadsheet and would like to extend it to allow for the setting of font name, font size, font colour and fill colour.

How to extend underline in excel