Ano, toto obstarává jeden AiO počítač. Licence office, jak jsem již psal, není jeho součástí a ani nebude, což je nyní celkem zřejmé. Na netu jsem nalezl pár skriptů, ale ani jeden zcela nefungoval. Proto se také obracím na Vás, zdá se totiž, že to nebude taková hračka, jak jsem čekal.

Př.1:

Sub DaysSinceIncident()
    Dim currentDate As String
    Dim lastDate As String
    Dim currentDays As Long
    lastDate = "04/10/2014"
    currentDays = InputBox("365")
    While True
        currentDate = Date
        If currentDate <> lastDate Then
            currrentDays = currentDays + 1
            lastDate = currentDate
            ActivePresentation.Slides(1).Shapes("Number of Days").TextFrame.TextRange.Text = currentDays
        End If
        DoEvents
    Wend
End Sub

Dim lastDate As String
    Dim injfree As Integer
    Dim BnrMsg As String
Sub UpdateBannerText()
    injdate = InputBox("mm/dd/yyyy")
    lastDate = injdate
    injfree = DateDiff("d", injdate, Now)
    BnrMsg = injfree
    ActiveWindow.Selection.ShapeRange(1).TextFrame.TextRange.Text = BnrMsg
End Sub
Sub ResetDate()
    injfree = DateDiff("d", lastDate, Now)
    BnrMsg = injfree
    ActiveWindow.Selection.ShapeRange(1).TextFrame.TextRange.Text = BnrMsg
End Sub