Syntax

expression.Add(Name, BasedOn)

expression A variable that represents a Styles object.

Parameters

Name Required/Optional Data Type Description
Name Required String The new style name.
BasedOn Optional Variant A object that refers to a cell that's used as the basis for the new style. If this argument is omitted, the newly created style is based on the Normal style.

Return Value
A object that represents the new style.

Remarks

If a style with the specified name already exists, this method redefines the existing style based on the cell specified in BasedOn. The following example redefines the Normal style based on the active cell.

ActiveWorkbook.Styles.Add Name := "Normal", BasedOn := ActiveCell

Example

This example defines a new style based on cell A1 on Sheet1.

Visual Basic for Applications
With ActiveWorkbook.Styles.Add(Name:="theNewStyle") .IncludeNumber = False .IncludeFont = True .IncludeAlignment = False .IncludeBorder = False .IncludePatterns = False .IncludeProtection = False .Font.Name = "Arial" .Font.Size = 18 End With

See also: