使用 NPOI 在匯出的 Excel 檔中逐列內嵌圖片

相信很多人都有使用 NPOI 匯出 Excel 工作表的經驗了，這次來分享一下在 Excel 中內嵌圖片的範例。

在分享的案例中，我將使用 ASP.NET MVC / C# 利用 Google 搜尋圖片的功能，將關鍵字搜尋到的圖片，導出至 Excel 工作表中的每一列，見圖如下：

匯出的 Excel 內容為搜尋到的每張圖片，不過我沒將圖片完整輸出，而是產生縮圖後才輸出。

因為重點在以 NPOI 產生內嵌圖片的 Excel 工作表，因此我假設讀者都有使用 NPOI 的基礎，只對產生 HSSFWorkbook 的關鍵程式碼說明，其餘的部分可以參考我上傳的 ASP.NET MVC 2 專案，就不另行解釋。

實際上利用 NPOI 產生 workbook 的程式碼如下，關於本文主旨如何利用 NPOI 在 Excel 中插入圖片，特別留意的就是高亮的那幾行程式碼。

private HSSFWorkbook GenerateSearchResult(IEnumerable urls)
{
    int rowIndex = 0;
    int cellIndex = 0;
    int pictureIndex = 0;

    var request = new WebClient();

    var workbook = new HSSFWorkbook();
    var sheet = workbook.CreateSheet("Search Result");
    var patriarch = sheet.CreateDrawingPatriarch();

    #region 樣式
    HSSFCellStyle headerStyle = workbook.CreateCellStyle();
    headerStyle.Alignment = HSSFCellStyle.ALIGN_CENTER;
    headerStyle.VerticalAlignment = HSSFCellStyle.VERTICAL_CENTER;
    headerStyle.FillBackgroundColor = HSSFColor.BLACK.index;
    headerStyle.FillPattern = HSSFCellStyle.SOLID_FOREGROUND;
    headerStyle.BorderTop = headerStyle.BorderLeft =
        headerStyle.BorderRight = headerStyle.BorderBottom = 1;
    HSSFFont headerFont = workbook.CreateFont();
    headerFont.Color = HSSFColor.WHITE.index;
    headerFont.Boldweight = HSSFFont.BOLDWEIGHT_BOLD;
    headerStyle.SetFont(headerFont);

    HSSFCellStyle cellStyle = workbook.CreateCellStyle();
    cellStyle.Alignment = HSSFCellStyle.ALIGN_LEFT;
    cellStyle.VerticalAlignment = HSSFCellStyle.VERTICAL_CENTER;
    cellStyle.BorderTop = cellStyle.BorderLeft =
        cellStyle.BorderRight = cellStyle.BorderBottom = 1;
    cellStyle.WrapText = true;
    #endregion

    #region 表頭參數
    var headers = new[]
    {
        new { Caption = "URL", Width = 40 },
        new { Caption = "Picture", Width = 20 }
    };
    #endregion

    #region 表頭
    HSSFRow row = sheet.CreateRow(rowIndex++);
    HSSFCell cell;
    foreach (var header in headers)
    {
        if (header.Width > 0)
        {
            sheet.SetColumnWidth(cellIndex, header.Width * 256);
        }
        cell = row.CreateCell(cellIndex++);
        cell.SetCellValue(header.Caption);
        cell.CellStyle = headerStyle;
    }
    HSSFCell colorHeader = row.GetCell(cellIndex - 1);
    #endregion

    #region 表身
    foreach (var url in urls)
    {
        row = sheet.CreateRow(rowIndex++);
        cellIndex = 0;

        cell = row.CreateCell(cellIndex++);
        cell.CellStyle = cellStyle;
        cell.SetCellValue(url);

        cell = row.CreateCell(cellIndex++);
        cell.CellStyle = cellStyle;
        try
        {
            // 下載圖片
            var image = Image.FromStream(request.OpenRead(new Uri(url)));

            // 產生縮圖
            decimal sizeRatio = ((decimal)image.Height / image.Width);
            int thumbWidth = 100;
            int thumbHeight = decimal.ToInt32(sizeRatio * thumbWidth);
            var thumbStream = image.GetThumbnailImage(thumbWidth, thumbHeight, () => false, IntPtr.Zero);
            var memoryStream = new MemoryStream();
            thumbStream.Save(memoryStream, ImageFormat.Jpeg);

            // 將縮圖加入到 workbook 中
            pictureIndex = workbook.AddPicture(memoryStream.ToArray(), HSSFWorkbook.PICTURE_TYPE_JPEG);

            // 將縮圖定位到 worksheet 中
            var anchor = new HSSFClientAnchor(0, 0, 0, 0, cell.CellNum, row.RowNum, 0, 0);
            var picture = patriarch.CreatePicture(anchor, pictureIndex);
            var size = picture.GetImageDimension();
            row.HeightInPoints = size.Height;
            picture.Resize();

            // 為了不讓圖片壓線，必須讓圖片有一點位移，你可以把它移除掉看看會產生什麼情況
            // (我得承認這裡是程式中的魔術數字 Orz，但是一時找不到更好的方法)
            anchor.Dx1 = 5;
            anchor.Dy1 = 2;
        }
        catch (Exception ex)
        {
            // 圖片載入失敗，顯示錯誤訊息
            cell.SetCellValue(ex.Message);
        }
    }
    #endregion

    return workbook;
}

參考資料

• 本文程式碼下載：ExcelEmbedPictures.rar
  
• NPOI
  
• Excel 的規格及限制