.NET技术：如何移除XLSX文件中复选框的3D阴影效果

问题分析 #

用NPOI填充XLSX数据后，复选框出现边框和3D阴影，通过Office Interop移除边框成功，但shape.ThreeD.Visible = msoFalse无法消除3D阴影——原因是部分Form控件的3D样式需要通过重置预设3D格式彻底关闭，而非仅设置可见性。

解决方案 #

优化Office Interop代码 #

修改遍历Shapes的逻辑，在设置3D可见性的同时重置3D预设格式，确保彻底关闭阴影：

Dim xlApp As New Excel.Application()
Dim xlWorkbook As Excel.Workbook = xlApp.Workbooks.Open(tempFile)

For Each s As Excel.Worksheet In xlWorkbook.Sheets
    s.Cells(12, 1).Value = "TEST"

    Dim shapes As Excel.Shapes = s.Shapes
    For Each shape As Excel.Shape In shapes
        If shape.Name.Contains("Check Box") Then
            ' 移除边框
            shape.Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse
            ' 彻底重置3D格式为无效果
            shape.ThreeD.SetThreeDFormat(Microsoft.Office.Core.MsoPresetThreeDFormat.msoThreeDOff)
            ' 额外确保3D可见性关闭
            shape.ThreeD.Visible = Microsoft.Office.Core.MsoTriState.msoFalse
        End If
    Next
Next

xlWorkbook.Close(True)
Marshal.ReleaseComObject(xlWorkbook)
Marshal.ReleaseComObject(xlApp)

修复OpenXml代码（同时处理边框和3D阴影） #

如果想用OpenXml一次性解决两个问题，需同时设置3D关闭属性和边框隐藏：

Using document As SpreadsheetDocument = SpreadsheetDocument.Open(tempFile, True)
    Dim workbookPart As WorkbookPart = document.WorkbookPart

    For Each ws As WorksheetPart In workbookPart.WorksheetParts
        For Each controlPropPart In ws.ControlPropertiesParts
            Dim formProps = controlPropPart.FormControlProperties
            ' 关闭3D阴影效果
            formProps.NoThreeD = "1"
            ' 移除复选框边框
            If formProps.LineStyle Is Nothing Then
                formProps.LineStyle = New LineStyle()
            End If
            formProps.LineStyle.Value = LineStyleValues.None
            controlPropPart.FormControlProperties.Save()
        Next
        ws.Worksheet.Save()
    Next

    document.Save()
    document.Close()
End Using

关键说明 #

• Interop中SetThreeDFormat(msoThreeDOff)会直接重置所有3D相关属性，比仅设置Visible更彻底，能解决顽固的3D阴影问题。
• OpenXml中需同时操作NoThreeD和LineStyle，才能同步移除3D阴影和边框，还原原始文档样式。

内容的提问来源于stack exchange，提问作者f.lechleitner