使用 Python 在 Excel 中添加和自定义文本框

在制作说明性表格、仪表盘或带批注的报表时仅靠单元格往往难以承载大段说明文字或自由排版的注释。Excel 的**文本框TextBox**提供了一种独立于单元格网格的容器它可以放置在任意位置、容纳多行文本、单独设置字体与背景并且不影响周边单元格的数据与公式。当需要在自动化流程中批量生成这类带注释的表格时用程序操控文本框比手工绘制更高效也更容易保持一致。本文将介绍如何用 Python 在 Excel 工作表中插入文本框并对其进行文本、对齐、字体、背景、内边距、自动换行等常见设置以及读取和替换文本框中的文字。为什么使用文本框而非普通单元格相比把说明文字直接写进单元格文本框有几个实际优点自由定位可以悬浮在任意位置不必依附于单元格的行列结构。独立样式字体、颜色、背景、边框都能单独设置与表格主体样式解耦。承载长文本适合放置说明、注释、图例等多行内容并通过自动换行保持排版。便于查找替换可以把文本框当作模板占位符的载体批量填充或替换文字。环境准备处理 Excel 文本框可以使用 Spire.XLS for Python通过 pip 安装pip install Spire.Xls在脚本中按如下方式导入主模块与通用模块from spire.xls import * from spire.xls.common import *插入文本框并设置文本与对齐在工作表中插入文本框使用sheet.TextBoxes.AddTextBox()参数依次是文本框所在的行、列、高度和宽度均以 Excel 内部单位计。插入后即可通过Text属性写入内容并通过HAlignment/VAlignment控制文字的水平与垂直对齐。from spire.xls import * from spire.xls.common import * workbook Workbook() workbook.Version ExcelVersion.Version2013 sheet workbook.Worksheets[0] # 在第 2 行第 2 列插入文本框高度 18、宽度 65 个单位 textbox sheet.TextBoxes.AddTextBox(2, 2, 18, 65) textbox.Text Spire.XLS for Python 是一款专业的 Excel Python API... textbox.HAlignment CommentHAlignType.Center textbox.VAlignment CommentVAlignType.Center workbook.SaveToFile(TextBox.xlsx, ExcelVersion.Version2013) workbook.Dispose()需要注意的是AddTextBox的前两个参数行、列决定文本框左上角锚定在哪一个单元格位置后两个参数决定它自身的尺寸这与单元格本身的宽高不是同一套单位设置时以实际显示效果为准。设置字体与背景文本框的文字外观通过富文本RichText机制设置可以精确控制从某个字符到另一个字符的区间字体。背景则通过Fill属性填充纯色。from spire.xls import * from spire.xls.common import * workbook Workbook() workbook.LoadFromFile(Template_Xls_5.xlsx) sheet workbook.Worksheets[0] shape sheet.TextBoxes[0] # 创建字体并设置属性 font workbook.CreateFont() font.FontName Century Gothic font.Size 10 font.IsBold True font.Color Color.get_Blue() # 将字体应用到整个文本框文本 rt RichText(shape.RichText) rt.SetFont(0, len(shape.Text) - 1, font) # 设置纯色背景 shape.Fill.FillType ShapeFillType.SolidColor shape.Fill.ForeKnownColor ExcelColors.BlueGray workbook.SaveToFile(SetFontAndBackground.xlsx, ExcelVersion.Version2013) workbook.Dispose()这里RichText.SetFont(start, end, font)的三个参数分别是起始索引、结束索引和字体对象索引从 0 开始、包含两端。如果只对整段文本统一设置样式用0到len(text) - 1覆盖全部字符即可需要局部高亮时再传入对应的区间即可。设置内边距与自动换行当文本框内文字较多时可以通过内边距属性控制文字与边框的间距并通过IsWrapText开启自动换行避免文字溢出或过度拥挤。from spire.xls import * from spire.xls.common import * workbook Workbook() workbook.LoadFromFile(Template_Xls_4.xlsx) sheet workbook.Worksheets[0] textbox sheet.TextBoxes.AddTextBox(4, 2, 100, 300) textbox.Text 在 Excel 中插入文本框并设置内边距 textbox.HAlignment CommentHAlignType.Center textbox.VAlignment CommentVAlignType.Center # 设置文本框内部边距 textbox.InnerLeftMargin 1 textbox.InnerRightMargin 3 textbox.InnerTopMargin 1 textbox.InnerBottomMargin 1 workbook.SaveToFile(SetInternalMarginOfTextbox.xlsx, ExcelVersion.Version2013) workbook.Dispose()对于已存在、文字较长的文本框直接开启自动换行即可from spire.xls import * from spire.xls.common import * workbook Workbook() workbook.LoadFromFile(TextBoxSampleB.xlsx) sheet workbook.Worksheets[0] shape sheet.TextBoxes[0] shape.IsWrapText True workbook.SaveToFile(TextBoxWithWrapText.xlsx, ExcelVersion.Version2013) workbook.Dispose()内边距单位为磅point数值越大文字离边框越远自动换行会让文本框随内容在设置好的尺寸内重新排列行两者配合能显著改善长文本的排版观感。读取与替换文本框中的文本文本框本质上是文档中的可访问对象遍历sheet.TextBoxes即可读取或批量替换其中的文字这非常适合做模板占位符填充。from spire.xls import * from spire.xls.common import * workbook Workbook() workbook.LoadFromFile(ReplaceTextInTextBox.xlsx) sheet workbook.Worksheets[0] # 遍历所有文本框替换指定文本 for tb in sheet.TextBoxes: if tb.Text ! and TAG_1 in tb.Text: tb.Text tb.Text.replace(TAG_1, Spire.XLS for .NET) workbook.SaveToFile(ReplaceTextInTextBox.xlsx, ExcelVersion.Version2013) workbook.Dispose()如果文档中文本框较多还可以为文本框命名之后按名称直接定位而不必依赖索引from spire.xls import * from spire.xls.common import * workbook Workbook() sheet workbook.Worksheets[0] textbox sheet.TextBoxes.AddTextBox(2, 2, 18, 65) textbox.Name FirstTextBox textbox.Text 需要被检索的说明文字 # 按名称获取文本框 found sheet.TextBoxes[FirstTextBox] print(found.Text) workbook.Dispose()命名方式在生成大量带标识的文本框时尤为实用例如把每个说明框命名为注释_客户信息注释_费用说明等后续维护就能精准命中目标。实用建议区分锚定与尺寸AddTextBox(row, col, height, width)中行列决定锚点高度宽度决定文本框自身大小二者单位不同初次使用建议小范围试值。替换前先判空遍历替换时加上tb.Text ! 的判断可避免空文本框引发的意外。字号与背景搭配浅色背景配深色文字、深色背景配浅色文字能提升文本框在密集报表中的可读性。及时释放资源批量处理多份工作簿后调用Dispose()避免文件句柄占用。总结本文围绕 Excel 文本框的常见操作介绍了插入文本框并设置文本对齐、设置字体与背景、调整内边距与自动换行以及读取和替换文本框文字四个方向。这些能力的统一入口是工作表的sheet.TextBoxes集合AddTextBox()负责创建Text与RichText负责内容与样式Fill负责背景Inner*Margin与IsWrapText负责排版而遍历或按名称访问则支撑了批量维护。在此基础上还可以把文本框与图表、形状、数据验证等功能组合例如为图表添加带说明的文本框、在仪表盘里用文本框承载动态提示语从而让自动生成的 Excel 文档既数据严谨又说明清晰