Compartir a través de

Cómo: Aplicar estilos a los rangos de los libros

  • Artículo

Actualización: Julio de 2008

Se aplica a

La información de este tema sólo se aplica a los proyectos y versiones especificados de Visual Studio Tools para Office de Microsoft Office.

Tipo de proyecto

  • Proyectos de nivel de documento

  • Proyectos de nivel de aplicación

Versión de Microsoft Office

  • Excel 2003

  • Excel 2007

Para obtener más información, vea Características disponibles por aplicación y tipo de proyecto.

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

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

  1. Cree un nuevo estilo y establezca sus atributos. Este código debe colocarse en una clase Sheet, no en la clase ThisWorkbook.

    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", missing);

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;

  2. 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", missing], "rangeStyles");

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

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

  1. 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", missing);

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;

  2. 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", missing);

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

Vea también

Tareas

Cómo: Borrar estilos de los rangos de los libros

Conceptos

Trabajar con rangos

NamedRange (Control)

Acceso global a objetos en proyectos de Visual Studio Tools para Office

Descripción de los parámetros opcionales en las soluciones de Office

Historial de cambios

Fecha

Historial

Motivo

Julio de 2008

Agregado un ejemplo de código que se puede usar en un complemento en el nivel de la aplicación.

Comentarios de los clientes.