Python操作PowerPoint实现添加与设置文本框完整教程

pip install Spire.Presentation

from spire.presentation.common import *
from spire.presentation import *

# 创建演示文稿实例
ppt = Presentation()

# 添加一个矩形形状作为文本框
shape = ppt.Slides[0].Shapes.AppendShape(
    ShapeType.Rectangle, 
    RectangleF.FromLTRB(50, 100, 500, 250)
)

# 设置文本内容
shape.TextFrame.Text = "这是一个示例文本框"

# 保存文档
ppt.SaveToFile("TextBox.pptx", FileFormat.Pptx2013)
ppt.Dispose()

from spire.presentation.common import *
from spire.presentation import *

ppt = Presentation()

# 添加文本框
shape = ppt.Slides[0].Shapes.AppendShape(
    ShapeType.Rectangle, 
    RectangleF.FromLTRB(50, 100, 500, 250)
)

# 设置文本内容
shape.TextFrame.Text = "PowerPoint 自动化处理"

# 设置文本格式
paragraph = shape.TextFrame.Paragraphs[0]
textRange = paragraph.TextRanges[0]

# 设置字体
textRange.LatinFont = TextFont("微软雅黑")
textRange.FontHeight = 24  # 字体大小

# 设置字体颜色
textRange.Fill.FillType = FillFormatType.Solid
textRange.Fill.SolidColor.Color = Color.get_Red()

# 设置加粗
textRange.Format.IsBold = TriState.TTrue

# 设置形状边框
shape.ShapeStyle.LineColor.Color = Color.get_Black()

ppt.SaveToFile("FormattedTextBox.pptx", FileFormat.Pptx2013)
ppt.Dispose()

from spire.presentation.common import *
from spire.presentation import *

ppt = Presentation()

# 添加文本框
shape = ppt.Slides[0].Shapes.AppendShape(
    ShapeType.Rectangle, 
    RectangleF.FromLTRB(50, 80, 650, 320)
)

# 获取 TextFrame
tf = shape.TextFrame

# 设置第一个段落
para0 = tf.Paragraphs[0]
para0.Text = "第一段:标题文本"
para0.TextRanges[0].FontHeight = 20
para0.TextRanges[0].Fill.FillType = FillFormatType.Solid
para0.TextRanges[0].Fill.SolidColor.Color = Color.get_DarkBlue()
para0.TextRanges[0].Format.IsBold = TriState.TTrue

# 添加第二个段落
para1 = TextParagraph()
tf.Paragraphs.Append(para1)
para1.Text = "第二段:正文内容"
para1.TextRanges[0].FontHeight = 16
para1.TextRanges[0].Fill.FillType = FillFormatType.Solid
para1.TextRanges[0].Fill.SolidColor.Color = Color.get_Black()

# 添加第三个段落
para2 = TextParagraph()
tf.Paragraphs.Append(para2)
para2.Text = "第三段:补充说明"
para2.TextRanges[0].FontHeight = 14
para2.TextRanges[0].Fill.FillType = FillFormatType.Solid
para2.TextRanges[0].Fill.SolidColor.Color = Color.get_Gray()

ppt.SaveToFile("MultiParagraphTextBox.pptx", FileFormat.Pptx2013)
ppt.Dispose()

from spire.presentation.common import *
from spire.presentation import *

ppt = Presentation()

# 添加文本框
shape = ppt.Slides[0].Shapes.AppendShape(
    ShapeType.Rectangle, 
    RectangleF.FromLTRB(50, 100, 500, 250)
)

# 设置文本内容
shape.TextFrame.Text = "设置了内边距的文本框,文本与边框之间有合适的间距。"

# 设置文本框内边距
shape.TextFrame.MarginTop = 15      # 上边距
shape.TextFrame.MarginBottom = 20   # 下边距
shape.TextFrame.MarginLeft = 25     # 左边距
shape.TextFrame.MarginRight = 25    # 右边距

# 设置段落对齐方式
shape.TextFrame.Paragraphs[0].Alignment = TextAlignmentType.Left

# 设置形状样式
shape.Fill.FillType = FillFormatType.Solid
shape.Fill.SolidColor.Color = Color.get_LightBlue()
shape.ShapeStyle.LineColor.Color = Color.get_Black()

ppt.SaveToFile("TextBoxWithMargins.pptx", FileFormat.Pptx2013)
ppt.Dispose()

from spire.presentation.common import *
from spire.presentation import *

ppt = Presentation()

# 添加文本框
shape = ppt.Slides[0].Shapes.AppendShape(
    ShapeType.Rectangle, 
    RectangleF.FromLTRB(50, 80, 650, 350)
)

tf = shape.TextFrame

# 第一段:左对齐,无缩进
para0 = tf.Paragraphs[0]
para0.Text = "左对齐文本"
para0.Alignment = TextAlignmentType.Left
para0.Indent = 0

# 第二段:居中对齐
para1 = TextParagraph()
tf.Paragraphs.Append(para1)
para1.Text = "居中对齐文本"
para1.Alignment = TextAlignmentType.Center

# 第三段:右对齐
para2 = TextParagraph()
tf.Paragraphs.Append(para2)
para2.Text = "右对齐文本"
para2.Alignment = TextAlignmentType.Right

# 第四段:左对齐,带缩进
para3 = TextParagraph()
tf.Paragraphs.Append(para3)
para3.Text = "缩进文本示例"
para3.Alignment = TextAlignmentType.Left
para3.Indent = 50  # 缩进50磅

ppt.SaveToFile("TextBoxAlignment.pptx", FileFormat.Pptx2013)
ppt.Dispose()

shape.TextFrame.Paragraphs[0].LineSpacing = 150  # 1.5倍行距

shape.TextFrame.Paragraphs[0].TextDirection = TextDirectionType.Vertical

from spire.presentation.common import *
from spire.presentation import *

ppt = Presentation()
ppt.LoadFromFile("input.pptx")

slide = ppt.Slides[0]

# 遍历并移除所有形状(包括文本框)
i = 0
while i < slide.Shapes.Count:
    shape = slide.Shapes[i] if isinstance(slide.Shapes[i], IAutoShape) else None
    if shape:
        slide.Shapes.Remove(shape)
    else:
        i += 1

ppt.SaveToFile("RemovedTextBox.pptx", FileFormat.Pptx2013)
ppt.Dispose()