slivator
04-03-2015, 01:54 AM
Hello, Say please, how is it possible to output automatically on the title page of sliding seat running headlines with Date of the last updates of presentation and Date of printing of presentation for Powerpoint 2013? What are variants of decision?I found a code, but he does not work, a code is tied to inscription of running headline. Who does have what suggestions?
Sub UpdateModifyDateOnMaster()
Dim oShp As Shape
For i = 1 To ActivePresentation.Designs.Count
With ActivePresentation.Designs(i).SlideMaster.Shapes
For j = 1 To .Placeholders.Count
If .Placeholders(j).PlaceholderFormat.Type = ppPlaceholderDate Then
.Placeholders(j).TextFrame.TextRange.Text = "Last Modified: " & Format(Now(), "mm/dd/yyyy")
End If
Next
End With
Next
End Sub
Sub UpdateModifyDateOnMaster()
Dim oShp As Shape
For i = 1 To ActivePresentation.Designs.Count
With ActivePresentation.Designs(i).SlideMaster.Shapes
For j = 1 To .Placeholders.Count
If .Placeholders(j).PlaceholderFormat.Type = ppPlaceholderDate Then
.Placeholders(j).TextFrame.TextRange.Text = "Last Modified: " & Format(Now(), "mm/dd/yyyy")
End If
Next
End With
Next
End Sub