C# と VB.NET の質問掲示板

■No74178 (シャープ さん) に返信
> Range.Interior.ColorIndex
> または
> Range.Interior.Color

その前後のコードに問題があったりはしませんか?


こちらでは ColorIndex = 3 でエラー無く動作しましたし、
Color プロパティの方も動作しているように見えます。


using System;
using System.Drawing;
using System.Runtime.InteropServices;

class Program
{
    static void Main()
    {
        Action<object> ReleaseIfActiveX = o => { 
            if (Marshal.IsComObject(o)) Marshal.ReleaseComObject(o); };

        dynamic app = Activator.CreateInstance(Type.GetTypeFromProgID("Excel.Application"));
        app.Visible = true;
        var books = app.Workbooks;
        var book = books.Add();
        var sheets = book.Worksheets;
        var sheet = sheets[1];
        dynamic rng, itr;

        rng = sheet.Range("C3");
        itr = rng.Interior;
        itr.Color = ColorTranslator.ToOle(Color.Yellow);
        ReleaseIfActiveX(itr);
        ReleaseIfActiveX(rng);

        rng = sheet.Range("D5");
        itr = rng.Interior;
        itr.Color = ColorTranslator.ToOle(Color.Blue);
        ReleaseIfActiveX(itr);
        ReleaseIfActiveX(rng);

        ReleaseIfActiveX(sheet);
        ReleaseIfActiveX(sheets);

        book.Saved = true;
        ReleaseIfActiveX(book);
        ReleaseIfActiveX(books);

        Console.Write("Hit Enter");
        Console.ReadLine();
        app.Quit();
        ReleaseIfActiveX(app);
    }
}

■No74181 (魔界の仮面弁士) に追記
>> アプリでExcel出力もしており（Office.Interop.Excel経由）、

念のため、レイトバインディングではなく Office PIA 経由にしてみましたが、
やはり問題無さそうです。まぁ、ConsoleColor 列挙型の出番は無さそうですが、


実際に生じたエラー内容は、どのようなものでしたか?

ColorIndex に、範囲外の値を与えたらエラーになりそうですが(適正値は-1〜56)、
今回は ColorIndex = 3 とのことですし…。



using System;
using System.Drawing;
using System.Runtime.InteropServices;

using Excel = Microsoft.Office.Interop.Excel;

class Program
{
    static void Main()
    {
        Action<object> ReleaseIfActiveX = o => { 
            if (Marshal.IsComObject(o)) Marshal.ReleaseComObject(o); };

        Excel.Application app = new Excel.Application();
        app.Visible = true;
        Excel.Workbooks books = app.Workbooks;
        Excel.Workbook book = books.Add();
        Excel.Sheets sheets = book.Worksheets;
        Excel.Worksheet sheet = (Excel.Worksheet)sheets[1];
        Excel.Range rng;
        Excel.Interior itr;

        rng = sheet.Range["C3"];
        itr = rng.Interior;
        itr.Color = ColorTranslator.ToOle(Color.Blue);
        ReleaseIfActiveX(itr);
        ReleaseIfActiveX(rng);

        rng = sheet.Range["D5"];
        itr = rng.Interior;
        itr.ColorIndex = 3;
        ReleaseIfActiveX(itr);
        ReleaseIfActiveX(rng);

        ReleaseIfActiveX(sheet);
        ReleaseIfActiveX(sheets);

        book.Saved = true;
        ReleaseIfActiveX(book);
        ReleaseIfActiveX(books);

        Console.Write("Hit Enter");
        Console.ReadLine();
        app.Quit();
        ReleaseIfActiveX(app);
    }
}

■No74182 (魔界の仮面弁士) に追記
> .Net Framework 3.5
先のコードは、 VS2010 の場合でした。
VS2008 上で .NET Framework 3.5 を使っているのだとしたら、こんな感じ。


2008 当時は、「省略可能な引数」や「引数付きプロパティ」が使えなかったため、
先のコードと微妙に違いがありますが、基本的な処理の流れはまったく同じです。


using System;
using System.Drawing;
using System.Runtime.InteropServices;

using Excel = Microsoft.Office.Interop.Excel;

class Program
{
    static void Main()
    {
        Action<object> ReleaseIfActiveX = o =>
        {
            if (Marshal.IsComObject(o)) Marshal.ReleaseComObject(o);
        };
        
        Excel.Application app = new Excel.Application();
        app.Visible = true;
        Excel.Workbooks books = app.Workbooks;
        Excel.Workbook book = books.Add(Type.Missing);
        Excel.Sheets sheets = book.Worksheets;
        Excel.Worksheet sheet = (Excel.Worksheet)sheets[1];
        Excel.Range rng;
        Excel.Interior itr;

        rng = sheet.get_Range("C3", Type.Missing);
        itr = rng.Interior;
        itr.Color = ColorTranslator.ToOle(Color.Blue);
        ReleaseIfActiveX(itr);
        ReleaseIfActiveX(rng);

        rng = sheet.get_Range("D5", Type.Missing);
        itr = rng.Interior;
        itr.ColorIndex = 3;
        ReleaseIfActiveX(itr);
        ReleaseIfActiveX(rng);

        ReleaseIfActiveX(sheet);
        ReleaseIfActiveX(sheets);

        book.Saved = true;
        ReleaseIfActiveX(book);
        ReleaseIfActiveX(books);

        Console.Write("Hit Enter");
        Console.ReadLine();
        app.Quit();
        ReleaseIfActiveX(app);
    }
}