Použití stylů u oblastí v sešitech prostřednictvím kódu programu
Článek 13. 01. 2024
Přispěvatelé: 12
Váš názor
V tomto článku
Použití stylu u pojmenované oblasti v přizpůsobení na úrovni dokumentu
Vymazání stylu z pojmenované oblasti v přizpůsobení na úrovni dokumentu
Použití stylu u pojmenované oblasti v doplňku VSTO
Vymazání stylu z pojmenované oblasti v doplňku VSTO
Související obsah
Pojmenované styly můžete použít u oblastí v sešitech. Excel poskytuje řadu předdefinovaných stylů.
Platí pro: Informace v tomto tématu platí pro projekty na úrovni dokumentu a projekty doplňků VSTO pro Excel. Další informace naleznete v tématu Funkce dostupné aplikace Office lication a typu projektu.
V dialogovém okně Formát buněk se zobrazí všechny možnosti, které můžete použít k formátování buněk, a každá z těchto možností je k dispozici z kódu. Chcete-li zobrazit toto dialogové okno v aplikaci Excel, klepněte na tlačítko Buňky v nabídce Formát .
Použití stylu u pojmenované oblasti v přizpůsobení na úrovni dokumentu
Vytvořte nový styl a nastavte jeho atributy.
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
Vytvořte NamedRange ovládací prvek, přiřaďte k němu text a pak použijte nový styl. Tento kód musí být umístěn do třídy listu, nikoli do ThisWorkbook
třídy.
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()
Vymazání stylu z pojmenované oblasti v přizpůsobení na úrovni dokumentu
Použití stylu Normální u oblasti. Tento kód musí být umístěn do třídy listu, nikoli do ThisWorkbook
třídy.
this.rangeStyles.Style = "Normal";
Me.rangeStyles.Style = "Normal"
Použití stylu u pojmenované oblasti v doplňku VSTO
Vytvořte nový styl a nastavte jeho atributy.
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
Vytvořte Range , přiřaďte k němu text a pak použijte nový styl.
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()
Vymazání stylu z pojmenované oblasti v doplňku VSTO
Použití stylu Normální u oblasti.
Excel.Range rng = this.Application.get_Range("A1");
rng.Style = "Normal";
Dim rng As Excel.Range = Me.Application.Range("A1")
rng.Style = "Normal"