如何把圖片插入Excel的一個單元格中

 

前段時間做了個用於winform的excel的插件程序，將從數據庫中的image字段讀出來後顯示在excel中，在csdn上見過好幾個提出這方面的問題，現將我的部分代碼貼出來，分享給有需要的朋友。
我的這個是excel的插件程序，建的是vs.net 2003中的Addin工程，同時適用 vsto程序。
需要添加COM組件--Microsoft Excel 11.0 Object Library 的引用。
代碼的核心在圖片的轉換和設置excel顯示圖片的單元格

    這個方法轉換圖片，傳入一個excel的workbook對象和轉換成字符型的image字段。 

private void ExtractPicture(Excel.Workbook p_Workbook,  string  p_imageStr)
{
    byte[] v_Bytes = Convert.FromBase64String(p_imageStr);
    if (v_Bytes.Length > 0)
    {
        FileStream v_FileStream = new FileStream(p_Workbook.FullName + ".jpeg", FileMode.CreateNew);
        BinaryWriter v_BinaryWriter = new BinaryWriter(v_FileStream);
//        v_BinaryWriter.Write(v_Bytes);
        for(int i=0;i<v_Bytes.Length;i++)
        {
            v_BinaryWriter.Write(v_Bytes[i]);
        }
        v_BinaryWriter.Close();
        v_FileStream.Close();
    }
}

      下面這個方法在Excel中設置圖片位置。 

private void SetPictureToRange(Excel.Workbook p_Workbook, Excel.Worksheet p_Worksheet, string p_strRangeName)
{
    Excel.Pictures v_Pictures = (Excel.Pictures)p_Worksheet.Pictures(Type.Missing);
    Excel.Picture v_Picture = v_Pictures.Insert(p_Workbook.FullName + ".jpeg", Type.Missing);
    // Excel的get_Range方法可以得到Excel的單元格，可以用來設置圖片顯示的位置
    Excel.Range v_Range = p_Worksheet.get_Range(p_strRangeName, Type.Missing);
    double v_fFactor = 1;
    //設置圖片大小
    if (v_Picture.Width * (double)v_Range.Height > v_Picture.Height * (double)v_Range.Width)
        v_fFactor = (double)v_Range.Width / (double)v_Picture.Width;
    else
        v_fFactor = (double)v_Range.Height / (double)v_Picture.Height;
    v_Picture.Left = (double)v_Range.Left + ((double)v_Range.Width - (v_Picture.Width * v_fFactor)) / 2 + 1;
    v_Picture.Top = (double)v_Range.Top + ((double)v_Range.Height - (v_Picture.Height * v_fFactor)) / 2 + 1;
    v_Picture.Width = v_Picture.Width * v_fFactor - 0.5d;
    v_Picture.Height = v_Picture.Height * v_fFactor - 0.5d;
}

      打開一個Excel很簡單 

private bool WorkbookOpen(string p_strWorkBookName)
{
    //returns TRUE if the workbook is open
    if (appObject.Workbooks.get_Item(p_strWorkBookName) != null)
        return true;
    return false;
} 

 

..
if(this.WorkbookOpen(workbookObject.Name))
{
    appObject.Visible = true;
}
..