前面我们介绍过如何给PowerPoint添加页脚、页码,本文将介绍如何使用Spire.Presentation重新设置日期和编号的位置。
日期的默认位置在左,编号的默认位置在右,如下图所示:
C#
//加载presentation文档
Presentation presentation = new Presentation();
presentation.LoadFromFile("Sample.pptx");
//获取第一张幻灯片
ISlide slide = presentation.Slides[0];
//遍历幻灯片中的形状
foreach (IShape shapeToMove in slide.Shapes)
{
//改变编号的位置
if (shapeToMove.Name.Contains("Slide Number Placeholder"))
{
shapeToMove.Left = 0;
}
//改变日期的位置
else if (shapeToMove.Name.Contains("Date Placeholder"))
{
shapeToMove.Left = presentation.SlideSize.Size.Width / 2;
//改变日期的格式
(shapeToMove as IAutoShape).TextFrame.TextRange.Paragraph.Text = DateTime.Now.ToString("dd.MM.yyyy");
(shapeToMove as IAutoShape).TextFrame.IsCentered = true;
}
}
//保存文档
presentation.SaveToFile("Result.pptx", FileFormat.Pptx2013);
VB.NET
'加载presentation文档
Dim presentation As New Presentation()
presentation.LoadFromFile("Sample.pptx")
'获取第一张幻灯片
Dim slide As ISlide = presentation.Slides(0)
'遍历幻灯片中的形状
For Each shapeToMove As IShape In slide.Shapes
'改变编号的位置
If shapeToMove.Name.Contains("Slide Number Placeholder") Then
shapeToMove.Left = 0
'改变日期的位置
ElseIf shapeToMove.Name.Contains("Date Placeholder") Then
shapeToMove.Left = presentation.SlideSize.Size.Width / 2
'改变日期的格式
TryCast(shapeToMove, IAutoShape).TextFrame.TextRange.Paragraph.Text = DateTime.Now.ToString("dd.MM.yyyy")
TryCast(shapeToMove, IAutoShape).TextFrame.IsCentered = True
End If
Next
'保存文档
presentation.SaveToFile("Result.pptx", FileFormat.Pptx2013)
生成效果截图如下: