vba - 在幻灯片中使用 VBA 添加日期时间字段

Question

我想通过宏向我的演示文稿/幻灯片添加一个自动显示当前日期的字段。

 Shape shape = [Find a text shape to edit]
 shape.TextFrame.TextRange.Text = "Some Text  | " + [Field showing Current date]

我不想插入包含当前日期的文本：

 Shape shape = [Find a text shape to edit]
 shape.TextFrame.TextRange.Text = "Some Text  | " + DateTime.Now

正如我所描述的，生成的文本形状应该包含一些常量文本 + 一个显示当前日期的字段。

Answer 1

这将在您的文本框中插入一个时间/日期字段：

Dim oSh As Shape
Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange
    .Text = "Some text | "
    .InsertDateTime ppDateTimeHmm, True
End With