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

}

}

Tweet