Nasıl Yapılır: Çalışma Kitaplarındaki Aralıklara Biçimler Uygula

Makale
08/01/2011

Çalışma kitabındaki bölgelere isimlendirilmiş stiller uygulayabilirsiniz. Excel, önceden ayarlanmış birçok stil sağlar.

Uygulama alanı: Bu konudaki bilgiler Excel 2007 ve Excel 2010 uygulamalarının belge düzeyi projelerine ve uygulama düzeyi projelerine yöneliktir. Daha fazla bilgi için bkz. Office Uygulamalarında Kullanılabilir Özellikler ve Proje Türü.

Format Cells (Hücreleri Biçimlendir) iletişim kutusunda hücreleri biçimlendirmek için kullanabileceğiniz tüm seçenekler görüntülenir ve bu seçeneklerden her biri kodunuzdan kullanılabilir. Excel'de bu iletişim kutusunu görüntülemek için, Format (Biçimlendir) menüsünden Cells'i (Hücreler) tıklatın.

Belge düzeyi özelleştirmelerinde adlandırılmış aralığa stil uygulamak

Yeni stil yaratın ve özniteliklerini ayarlayın.

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;

NamedRange denetimi oluşturun, metni ona hizalandırın ve yeni stili uygulayın. Bu kod, sayfa sınıfında konumlandırılmalıdır, ThisWorkbook sınıfında değil.

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();

Uygulama düzeyi eklentisinde adlandırılmış aralığa stil uygulamak

Yeni stil yaratın ve özniteliklerini ayarlayın.

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;

Microsoft.Office.Interop.Excel.Range oluşturun, metni ona hizalandırın ve sonra yeni stili uygulayın.

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();

Ayrıca bkz.

Görevler

Nasıl Yapılır: Çalışma Kitaplarındaki Aralıklardan Biçemleri Temizleme

Kavramlar

Aralıklarla Çalışma

NamedRange Denetimi

Office Projeleri Nesnelerine Genel Erişim

Office Çözümlerinde İsteğe Bağlı Parametreler

Aracılığıyla paylaş