1

現在の日付を自動的に表示するフィールドをプレゼンテーション/スライドにマクロで追加したいと思います。

 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

説明したように、結果のtextshapeには、一定のテキストと現在の日付を示すフィールドが含まれているはずです。

4

1 に答える 1

3

これにより、時間/日付フィールドがテキストボックスに挿入されます。

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

With oSh.TextFrame.TextRange
    .Text = "Some text | "
    .InsertDateTime ppDateTimeHmm, True
End With
于 2012-11-26T21:47:17.953 に答える