可以将已命名的样式应用到工作簿中的区域。 Excel 提供了大量预定义样式。
适用于: 本主题中的信息适用于 Excel 的文档级项目和 VSTO 外接程序项目。 有关详细信息,请参阅办公室应用程序和项目类型提供的功能。
“设置单元格格式” 对话框显示了可用于设置单元格格式的所有选项,且其中每个选项都可从你的代码获取。 若要在 Excel 中显示此对话框,请单击 “格式” 菜单上的 “单元格” 。
将样式应用到文档级自定义项中的命名区域
创建一个新样式并设置其属性。
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;
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
创建一个 NamedRange 控件,向其分配文本,然后应用新样式。 必须将此代码置于表类中,而不是在 ThisWorkbook
类中。
Microsoft.Office.Tools.Excel.NamedRange rangeStyles =
this.Controls.AddNamedRange(this.Range["A1"], "rangeStyles");
rangeStyles.Value2 = "'Style Test";
rangeStyles.Style = "NewStyle";
rangeStyles.Columns.AutoFit();
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()
从文档级自定义项的命名区域中清除样式
将正文样式应用到该区域中。 必须将此代码置于表类中,而不是在 ThisWorkbook
类中。
this.rangeStyles.Style = "Normal";
Me.rangeStyles.Style = "Normal"
将样式应用到 VSTO 外接程序中的命名区域
创建一个新样式并设置其属性。
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;
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
创建一个 Range,对其分配文本,然后应用新样式。
Excel.Range rangeStyles = this.Application.get_Range("A1");
rangeStyles.Value2 = "'Style Test";
rangeStyles.Style = "NewStyle";
rangeStyles.Columns.AutoFit();
Dim rangeStyles As Excel.Range = Me.Application.Range("A1")
rangeStyles.Value2 = "'Style Test"
rangeStyles.Style = "NewStyle"
rangeStyles.Columns.AutoFit()
从 VSTO 外接程序中的命名区域清除样式
将正文样式应用到该区域中。
Excel.Range rng = this.Application.get_Range("A1");
rng.Style = "Normal";
Dim rng As Excel.Range = Me.Application.Range("A1")
rng.Style = "Normal"
相关内容