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

書きなおしてみました。
そもそも論になりますが、画像はCellに入れるものではないですよね？
Shapes.AddPicture(@"c:\Penguins.jpg", Microsoft.Office.Core.MsoTriState.msoFalse, 
                                                 Microsoft.Office.Core.MsoTriState.msoTrue, 0, 0, 85, 15)
の引数にて、「0,0,85,15」で画像の左右上下の距離を指定してます。

using Microsoft.Office.Interop.Excel;
using System.Runtime.InteropServices;

Microsoft.Office.Interop.Excel.Application xApp = null;
Workbook xWb = null;
Worksheet xWs = null;
Range xRg = null;
Shapes xSp = null;
try
{
     xApp = new Microsoft.Office.Interop.Excel.Application();
     try
     {
          xWb = xApp.Workbooks.Open(@"c:\testX.xls", Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
                                    Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing);
          try
          {
               xWs = (Worksheet)xWb.ActiveSheet;
               try
               {
                    xRg = xWs.get_Range("A1", Type.Missing);
                    try
                    {
                         xSp = xWs.Shapes; 
                         xWs.Shapes.AddPicture(@"c:\Penguins.jpg", Microsoft.Office.Core.MsoTriState.msoFalse, 
                                                 Microsoft.Office.Core.MsoTriState.msoTrue, 0, 0, 85, 15);
                         xApp.Visible = true;
                    }
                    finally
                    {
                         Marshal.ReleaseComObject(xSp);
                    }
               }
               finally
               {
                    Marshal.ReleaseComObject(xRg);
               }
           }
           finally
           {
                Marshal.ReleaseComObject(xWs);
           }
     }
     finally
     {
            Marshal.ReleaseComObject(xWb);
     }
}
finally
{
       Marshal.ReleaseComObject(xApp);
}

■No53123 (魔界の仮面弁士 さん) に返信
> ■No53120 (マサヤ さん) に返信
>>書きなおしてみました。
> 追加で突っ込み。
> 
>> xWb = xApp.Workbooks.Open(@"c:\testX.xls", Type.Missing, Type.Missing, Type.Missing, Type.Missing, …);
> Workbooks も COM Object ではありませんでしたっけ?
> PIA のバージョンによるのかな…。
→ _Application.WorkbooksもCOM Objectですね。Workbooksって宣言できましたでしょうか？

>> xWs = (Worksheet)xWb.ActiveSheet;
> as の方が良いかも。ActiveSheet が Worksheet 型とは限りませんし。
→ありがとうございます。

>>xSp = xWs.Shapes; 
>>xWs.Shapes.AddPicture(@"c:\Penguins.jpg", Microsoft.Office.Core.MsoTriState.msoFalse, …);
> xSp.AddPicture(〜) では?
→はい、勘違いしてました。宣言してるのに使用してない状態になってますね。

> それと、AddPicture は Shape オブジェクトを返しますので、
> 戻り値も受けておかないといけないかと。
→ありがとうございます。
下記に修正
Shape xSh = null;    

xSp = xWs.Shapes;
try
{
        xSh = xSp.AddPicture(@"c:\Penguins.jpg", Microsoft.Office.Core.MsoTriState.msoFalse, 
　　　　　　　　　　　　　　　Microsoft.Office.Core.MsoTriState.msoTrue, 0, 0, 85, 15);
}
finally
{
        Marshal.ReleaseComObject(xSh);
}
xApp.Visible = true;

■No53120 (マサヤ さん) に返信
> 書きなおしてみました。
> そもそも論になりますが、画像はCellに入れるものではないですよね？

Cellに入れるものではないですが、Cellを指定して挿入することはできたと思います。
Shapesを使う部分を、ActiveWorksheetのPictures.Insert()に変更してみてはどうでしょうか？
遅延バインディングになってしまいますが、これならセルを指定して画像を挿入できると思います。

> Shapes.AddPicture(@"c:\Penguins.jpg", Microsoft.Office.Core.MsoTriState.msoFalse, 
>                                                  Microsoft.Office.Core.MsoTriState.msoTrue, 0, 0, 85, 15)
>                xWs = (Worksheet)xWb.ActiveSheet;
>                try
>                {

	            xRg = xWs.get_Range("C1", Type.Missing);
	            xRg.Select();

	            object pics = xWs.GetType().InvokeMember("Pictures", BindingFlags.GetProperty, null, xWs, null);
	            object[] prms = new Object[2];
	            try
	            {
	                prms[0] = @"c:\Penguins.jpg";
	                prms[1] = Type.Missing;
	                pics.GetType().InvokeMember("Insert", BindingFlags.InvokeMethod, null, pics, prms);
	            }
	            finally
	            {
	                Marshal.ReleaseComObject(pics);
	                pics = null;
	            }

>                }
>                finally
>                {
>                     Marshal.ReleaseComObject(xRg);
>                }
>            }