VS2008でエクセルファイルへのセル右挿入と色指定方法

Question

お世話になります。

Vista：VS2008で以下のエクセルへの制御をしたいのですが、フォーラム参照してもヒントがつかめなくて困っています。

１）エクセルの指定セルを挿入して、右に移動したい。

　　Dim app As Excel.Application
    Dim book As Excel.Workbook
    Dim sheet As Excel.Worksheet

　　sheet.Cells(3, 3).Insert()

    このコマンドだと、下に移動してしまう。

２）エクセルの指定セルのフォントを赤色にしたい。

    sheet.Cells(3, 3).Value = Date.Now.Date
    With sheet.Cells(3, 3)
         .Font(style, size, color)
    End With

   このコマンドだとエラーになる。（正式の書式が判りません。）

何方かご存じの方、ご教授お願いします。

Answer 1

(2) については、下記ページが参考になるかもしれません。

http://www.red.oit-net.jp/tatsuya/vb/Excel.htm#ColorIndex

 

---

なかむら(http://d.hatena.ne.jp/griefworker)

Answer 2

１）エクセルの指定セルを挿入して、右に移動したい。

　　Dim app As Excel.Application
    Dim book As Excel.Workbook
    Dim sheet As Excel.Worksheet

　　sheet.Cells(3, 3).Insert()

    このコマンドだと、下に移動してしまう。

Insert メソッドの第一パラメータに XlInsertShiftDirection.xlShiftToRight を指定します。以下、参考にしてください。

http://msdn.microsoft.com/ja-jp/library/microsoft.office.interop.excel.range.insert(office.11).aspx

---

ひらぽん http://d.hatena.ne.jp/hilapon/

Answer 3

ひらぽん様、　なかむら様

ご教授ありがとうございました。

お陰さまで、以下のコマンドで解決できました。

１）　sheet.Cells(4, 3).Insert(Excel.XlInsertShiftDirection.xlShiftToRight)

２）　sheet.Cells(3, 3).Font.Size = 9

　　　但し、Font Size変更後、sheet.Cells(4, 3)に書き込むと、Font Sizeがそのまま引用されるので注意が必要です。

お二方様、ありがとうございました。