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

pip install Spire.Xls

from spire.xls import *
from spire.xls.common import *

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()

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()

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()

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()