Cómo: Aplicar estilos a rangos de libros mediante programación

Artículo
02/19/2013

Puede aplicar estilos con nombre a distintas áreas de los libros.Excel proporciona muchos estilos predefinidos.

Se aplica a: La información de este tema se aplica a los proyectos de nivel de documento y los proyectos de nivel de aplicación para Excel 2013 y Excel 2010. Para obtener más información, vea Características disponibles por aplicación y tipo de proyecto de Office.

El cuadro de diálogo Formato de celdas muestra todas las opciones que puede utilizar para dar formato a las celdas; estas opciones también están disponibles en el código.Para mostrar este cuadro de diálogo en Excel, haga clic en Celdas en el menú Formato.

Para aplicar un estilo a un rango con nombre en una personalización en el nivel del documento

Cree un nuevo estilo y establezca sus atributos.

Dim style As Excel.Style = Globals.ThisWorkbook.Styles.Add("NewStyle")

style.Font.Name = "Verdana"
style.Font.Size = 12
style.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red)
style.Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Gray)
style.Interior.Pattern = Excel.XlPattern.xlPatternSolid

Excel.Style style = Globals.ThisWorkbook.Styles.Add("NewStyle");

style.Font.Name = "Verdana";
style.Font.Size = 12;
style.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red);
style.Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Gray);
style.Interior.Pattern = Excel.XlPattern.xlPatternSolid;

Cree un control NamedRange, asígnele texto y, a continuación, aplique el nuevo estilo.Este código debe colocarse en una clase Sheet, no en la clase ThisWorkbook.

Dim rangeStyles As Microsoft.Office.Tools.Excel.NamedRange = _
    Me.Controls.AddNamedRange(Me.Range("A1"), "rangeStyles")

rangeStyles.Value2 = "'Style Test"
rangeStyles.Style = "NewStyle"
rangeStyles.Columns.AutoFit()

Microsoft.Office.Tools.Excel.NamedRange rangeStyles =
    this.Controls.AddNamedRange(this.Range["A1"], "rangeStyles");

rangeStyles.Value2 = "'Style Test";
rangeStyles.Style = "NewStyle";
rangeStyles.Columns.AutoFit();

Para borrar un estilo de un rango con nombre en una personalización de nivel de documento

Aplique el estilo Normal al rango.Este código debe colocarse en una clase Sheet, no en la clase ThisWorkbook.
```
Me.rangeStyles.Style = "Normal"
```
```
this.rangeStyles.Style = "Normal";
```

Para aplicar un estilo a un rango con nombre en un complemento en el nivel de la aplicación

Cree un nuevo estilo y establezca sus atributos.

Dim style As Excel.Style = Me.Application.ActiveWorkbook.Styles.Add("NewStyle")

style.Font.Name = "Verdana"
style.Font.Size = 12
style.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red)
style.Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Gray)
style.Interior.Pattern = Excel.XlPattern.xlPatternSolid

Excel.Style style = this.Application.ActiveWorkbook.Styles.Add("NewStyle");

style.Font.Name = "Verdana";
style.Font.Size = 12;
style.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red);
style.Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Gray);
style.Interior.Pattern = Excel.XlPattern.xlPatternSolid;

Cree un Microsoft.Office.Interop.Excel.Range, asígnele texto y, a continuación, aplique el nuevo estilo.

Dim rangeStyles As Excel.Range = Me.Application.Range("A1")

rangeStyles.Value2 = "'Style Test"
rangeStyles.Style = "NewStyle"
rangeStyles.Columns.AutoFit()

Excel.Range rangeStyles = this.Application.get_Range("A1");

rangeStyles.Value2 = "'Style Test";
rangeStyles.Style = "NewStyle";
rangeStyles.Columns.AutoFit();

Para borrar un estilo de un rango con nombre en un complemento de nivel de aplicación

Aplique el estilo Normal al rango.

Dim rng As Excel.Range = Me.Application.Range("A1")
rng.Style = "Normal"

Excel.Range rng = this.Application.get_Range("A1");
rng.Style = "Normal";

Vea también

Conceptos

Trabajar con rangos

NamedRange (Control)

Acceso global a objetos en los proyectos de Office

Parámetros opcionales en las soluciones de Office

Compartir a través de