Лист Excel на слайде PowerPoint

@OleksiiZheldak · Регистрация: 27.02.2020

Доброго времени суток всем.
Дано: слайд PowerPoint, на который вставлен лист Excel. На листе формула (количество дней) с привязкой к текущей дате. На слайде количество дней обновляется только если открыть и закрыть лист Excel.
Вопрос: как обновлять количество дней при открытии презентации автоматически.

Заранее благодарен всем причастным, файл на всякий случай прилагаю.

@GeoCod · 29.02.2020, 11:57

OleksiiZheldak, тогда лучше не лист excel'я с формулами, а макросы использовать.

Visual Basic

Sub DateEntry()
    ActivePresentation.Slides.Item(1).Shapes(3).TextFrame.TextRange = dtDif
End Sub
 
Function dtDif()
Dim date1 As Date, date2 As Date
    date1 = #4/19/2017#          'дата от которой считаем
    date2 = Date                 'дата до которой считаем
    dtDif = DateDiff("d", date1, date2)   'разница дат в днях
End Function

Единственное, что бы он автоматически запускался при открытии презентации нужно создать и подключить надстройку с Sub Auto_Open(), и через нее запускать DateEntry

Или запускать каждый раз через Alt+F8, или если в режиме показа слайдов назначить запуск макроса по клику мышки

Опции темы