.NETアプリケーションで遅延バインディングを使ってExcelのオートシェイプをコピー

Excelで画面上の文字にマルを付ける依頼があった。
それも、VBAからではなく、C#の.NETアプリケーションから。
しかも、バージョン違いを吸収するために、遅延バインディングを使え、と。
いろいろ試したところ、シートにマルのオートシェイプを作っておいて、それをコピペする方法でないと不可能と分かった。ところが参照したネット上のTipsは間違っていて、時間を食った。結局、素直にコピペ(Shape.Duplicate + Shape.Cut + WorkSheet.Paste)するのが一番良いとわかった。恐ろしく面倒なコードになった。

// Excelアプリケーションオブジェクト

private object xlsApplication = null;

// Workbooksオブジェクト

private object xlsBooks = null;
// Excelアプリケーションオブジェクト

protected object XlsApplication

{

    get

    {

        // 存在しない場合は作成する

        if (xlsApplication == null)

        {

            Type classType = Type.GetTypeFromProgID("Excel.Application");

            xlsApplication = Activator.CreateInstance(classType);

        }

        return xlsApplication;

    }

}
// Workbooksオブジェクト

protected object Workbooks

{

    get

    {

        if (xlsBooks == null)

        {

            xlsBooks = XlsApplication.GetType().InvokeMember("Workbooks", 

                BindingFlags.GetProperty, null, XlsApplication, null);

        }

        return xlsBooks;

    }

}
//あらかじめshapeSheetNameシートにitemNameというオートシェイプが作成されているものとして、

//sheetNameシートにnewItemNameという名前でオートシェイプを座標(x,y)にコピーする

public void CopyShape(int bookIndex, string sheetName, string shapeSheetName, 

    string itemName, string newItemName, float x, float y)

{

    object book = null;

    object sheets = null;

    object sheet = null;

    object shapeSheet = null;

    object shapesFrom = null;

    object shapesTo = null;

    object shape = null;

    object newShape = null;

    object newShape2 = null;
    try

    {

        // WorkBooksは

        // WorkbooksオブジェクトからBookオブジェクトを取得

        book = Workbooks.GetType().InvokeMember("Item", BindingFlags.GetProperty, 

            null, Workbooks, new object[]{ bookIndex });
        // BookオブジェクトからSheetsオブジェクトを取得

        sheets = book.GetType().InvokeMember("Worksheets", BindingFlags.GetProperty, 

            null, book, null);
        // SheetsオブジェクトからSheetオブジェクトを取得

        sheet = sheets.GetType().InvokeMember("Item", BindingFlags.GetProperty, 

            null, sheets, new object[]{ sheetName} );
        // Shapeのあるシートをゲット

        shapeSheet = sheets.GetType().InvokeMember("Item", BindingFlags.GetProperty, 

            null, sheets, new object[]{ shapeSheetName} );
        //Shapeをゲッツ

        shapesFrom = shapeSheet.GetType().InvokeMember("Shapes", BindingFlags.GetProperty, 

            null, shapeSheet, null);

        shape = shapesFrom.GetType().InvokeMember("Item", BindingFlags.InvokeMethod, 

            null, shapesFrom, new object[] { itemName });
        //コピペする

        newShape = shape.GetType().InvokeMember("Duplicate", BindingFlags.InvokeMethod, 

            null, shape, null);

        newShape.GetType().InvokeMember("Name", BindingFlags.SetProperty, 

            null, newShape, new object[] { newItemName });

        newShape.GetType().InvokeMember("Cut", BindingFlags.InvokeMethod, null, newShape, null);

        sheet.GetType().InvokeMember("Paste", BindingFlags.InvokeMethod, 

            null, sheet, null);
        //配置

        shapesTo = sheet.GetType().InvokeMember("Shapes", BindingFlags.GetProperty, 

            null, sheet, null);

        newShape2 = shapesTo.GetType().InvokeMember("Item", BindingFlags.InvokeMethod, 

            null, shapesTo, new object[] { newItemName });

        newShape2.GetType().InvokeMember("Left", BindingFlags.SetProperty, 

            null, newShape2, new object[] { x });

        newShape2.GetType().InvokeMember("Top", BindingFlags.SetProperty, 

            null, newShape2, new object[] { y });

    }

    finally

    {

        //COMオブジェクトの掃除

        ReleaseComObject(newShape2);

        ReleaseComObject(newShape);

        ReleaseComObject(shape);

        ReleaseComObject(shapesTo);

        ReleaseComObject(shapesFrom);

        ReleaseComObject(shapeSheet);

        ReleaseComObject(sheet);

        ReleaseComObject(sheets);

        ReleaseComObject(book);

    }

}