前面我们介绍过如何给PowerPoint添加页脚、页码，本文将介绍如何使用Spire.Presentation重新设置日期和编号的位置。

日期的默认位置在左，编号的默认位置在右，如下图所示：

//加载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);

'加载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)

生成效果截图如下：