您现在的位置：程式碼之家 >> 編程語言 > >> 更多程式語言 >> 程式設計綜合問答

Apache POI 刪除 Excel 圖片的實戰方案：從 API 缺失到 VBA 替代方案

編輯：程式設計綜合問答

Apache POI 是 Java 操作 Office 文件的標準庫，但其對圖片操作的支持長期存在短板：支持插入、讀取，卻無直接刪除 API。本文分析 POI 刪除圖片的底層難點，提供基於底層 CT 類的代碼方案，並給出 VBA/ Python 替代方案對比。

問題背景


// POI 4.x / 5.x 中
XSSFDrawing drawing = sheet.createDrawingPatriarch();
// 有 createPicture()、getPictures()
// 但沒有 removePicture(int index) 或 deletePicture(Picture picture)

原因：OOXML 標準中圖片錨定在 drawing.xml 中，關聯關係複雜（關係 ID、錨點、圖片數據分離），POI 未封裝高級刪除邏輯。

方案一：POI 底層 API 手動刪除 (推薦純 Java 項目)

核心思路

獲取 XSSFDrawing 底層的 CTDrawing (對應 drawing.xml)
遍歷 CTTwoCellAnchor / CTOneCellAnchor (錨點)
根據條件（行列、圖片 ID、關係 ID）移除對應錨點元素
同步清理 Relationships 部分的關係項

完整代碼實現

import org.apache.poi.xssf.usermodel.*;
import org.openxmlformats.schemas.drawingml.x2006.spreadsheetDrawing.CTDrawing;
import org.openxmlformats.schemas.drawingml.x2006.spreadsheetDrawing.CTTwoCellAnchor;
import org.apache.poi.ooxml.POIXMLDocumentPart;

public void deletePicturesAtCell(XSSFSheet sheet, int row, int col) {
    XSSFDrawing drawing = (XSSFDrawing) sheet.createDrawingPatriarch();
    if (drawing == null) return;

    CTDrawing ctDrawing = drawing.getCTDrawing();
    if (ctDrawing == null) return;

    // 反向遍歷避免索引變化
    for (int i = ctDrawing.sizeOfTwoCellAnchorArray() - 1; i >= 0; i--) {
        CTTwoCellAnchor anchor = ctDrawing.getTwoCellAnchorArray(i);
        // 檢查錨點位置
        if (anchor.getFrom().getRow() == row && anchor.getFrom().getCol() == col) {
            // 1. 獲取關係 ID
            String rId = anchor.getPic().getNvPicPr().getCNvPr().getId(); // 可能需調整
            // 更可靠：從 blip 獲取 r:embed
            String blipRId = anchor.getPic().getBlipFill().getBlip().getEmbed();
            
            // 2. 移除錨點
            ctDrawing.removeTwoCellAnchor(i);
            
            // 3. 移除關係 (關鍵步驟，否則文件損壞)
            if (blipRId != null) {
                POIXMLDocumentPart.RelationPart rp = drawing.getRelationById(blipRId);
                if (rp != null) {
                    drawing.removeRelation(blipRId);
                }
            }
        }
    }
    // 注意：POI 可能不立即持久化 drawing.xml，需手動保存
    // 通常在 workbook.write() 時自動處理
}

關鍵難點提示

命名空間複雜：涉及 spreadsheetDrawing, drawingml, relationships 多個 Schema
錨點類型多樣：TwoCellAnchor (縮放)、OneCellAnchor (固定)、AbsoluteAnchor (絕對位置)
關係清理必須：僅刪除錨點會留下孤立關係，導致 Excel 打開報錯「需修復」

方案二：VBA 宏腳本刪除 (適用於 Windows 環境、批量處理)

Sub DeletePicturesAtSpecificCell()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim shp As Shape
    
    For Each shp In ws.Shapes
        ' 精確匹配左上角單元格地址
        If shp.TopLeftCell.Address = "$B$3" Then
            shp.Delete
        End If
    Next shp
End Sub

Java 調用 VBA 方案

// 使用 Jacob (Java-COM Bridge) 或 Runtime.exec 執行 cscript/wscript
// 或使用 Python + openpyxl/xlwings (見方案三)

方案三：Python openpyxl / xlwings (現代替代方案)

openpyxl (純 Python，無 Excel 依賴)

from openpyxl import load_workbook
from openpyxl.drawing.spreadsheet_drawing import AnchorMarker

wb = load_workbook('file.xlsx')
ws = wb.active

# openpyxl 3.0+ 直接支持刪除
images_to_delete = []
for img in ws._images:
    if img.anchor._from.row == 2 and img.anchor._from.col == 1:  # B3 (0-based)
        images_to_delete.append(img)

for img in images_to_delete:
    ws._images.remove(img)

wb.save('file_cleaned.xlsx')

xlwings (需安裝 Excel，功能最全)

import xlwings as xw
app = xw.App(visible=False)
wb = app.books.open('file.xlsx')
ws = wb.sheets[0]

for shp in ws.api.Shapes:
    if shp.TopLeftCell.Address == "$B$3":
        shp.Delete()

wb.save()
wb.close()
app.quit()

方案對比與選型建議

方案	優點	缺點	適用場景
POI 底層 API	純 Java、無外部依賴、集成度高	代碼複雜、易隨 POI 版本變化、需深入理解 OOXML	Java 服務端、禁止外部進程、需事務一致性
VBA + Jacob	邏輯簡單、利用 Excel 原生能力	僅限 Windows、需安裝 Excel、COM 橋接不穩定、性能差	Windows 內網工具、一次性腳本
Python openpyxl	代碼簡潔、跨平台、無 Excel 依賴、維護性好	需引入 Python 環境、大文件內存佔用高	數據管道、ETL、微服務異步處理
Python xlwings	功能最完整、支持所有 Excel 特性	需 Excel 授權、Windows/macOS、進程啟動慢	複雜報表生成、需圖表/樞紐表操作