次の方法で共有

方法: プログラムによってブック内の範囲にスタイルを適用する

  • [アーティクル]

ブック内の領域に名前付きスタイルを適用できます。Excel には、定義済みのスタイルがいくつかあります。

対象: このトピックの情報は、Excel 2013 と Excel 2010 のドキュメント レベルのプロジェクトおよびアプリケーション レベルのプロジェクトに適用されます。詳細については、「Office アプリケーションおよびプロジェクト タイプ別の使用可能な機能」を参照してください。

[セルの書式設定] ダイアログ ボックスには、セルの書式を設定する際に使用できるオプションがすべて表示され、これらのオプションはすべてコードからも使用できます。Excel でこのダイアログ ボックスを表示するには、[書式] メニューの [セル] をクリックします。

ドキュメント レベルのカスタマイズの名前付き範囲にスタイルを適用するには

  1. 新しいスタイルを作成し、その属性を設定します。

    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;

  2. NamedRange コントロールを作成し、テキストを割り当て、新しいスタイルを適用します。このコードは、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();

ドキュメント レベルのカスタマイズの名前付き範囲からのスタイルをクリアするには

  • Normal スタイルを範囲に適用します。このコードは、ThisWorkbook クラスではなくシート クラスに配置する必要があります。

    Me.rangeStyles.Style = "Normal"

    this.rangeStyles.Style = "Normal";

アプリケーション レベルのアドインで名前付き範囲にスタイルを適用するには

  1. 新しいスタイルを作成し、その属性を設定します。

    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;

  2. Microsoft.Office.Interop.Excel.Range を作成し、テキストを割り当て、新しいスタイルを適用します。

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

アプリケーション レベルのアドインの名前付き範囲からのスタイルをクリアするには

  • Normal スタイルを範囲に適用します。

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

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

参照

概念

範囲の使用

NamedRange コントロール

Office プロジェクト内のオブジェクトへのグローバル アクセス

Office ソリューションの省略可能なパラメーター