Как провести голосование прямо в PowerPoint?

Многим докладчикам, выступающим перед аудиторией с презентациями в PowerPoint, приходит в голову мысль о том, что было бы неплохо обратиться к своим слушателям с определённым вопросом, провести опрос или даже анкетирование. При этом, желательно, чтобы результаты являлись бы органичной частью презентации.

Для этих целей мы решили доработать наш сервис SMS-голосований.




Мы сделали простой html-запрос, с помощью которого можно получить текст вопроса требуемого голосования и, в табличной форме, результаты этого голосования:

Как, на Ваш взгляд, изменятся цены на яблочную продукцию?	Голоса
Вырастут	84
Останутся неизменными	49
Упадут	13
Не знаю...	25

Эта html-таблица может служить источником данных для Excel. Подключение происходит с помощью Web Data Connection. Далее стандартными средствами Excel строится график, который можно импортировать (вставить как ссылку) в любую программу, поддерживающую связывание с графиками Excel, например, в PowerPoint. Этот референсный Excel-документ уже настроен на тестовое голосование.

Но выяснилась одна проблема. По умолчанию Excel позволяет обновлять данные из источника не чаще 1 раза в минуту. С помощью VBA-макроса это ограничение удалось обойти.

Текст макроcа

Public dTime As Date
Private Sub auto_open()
    Run "RefreshIt"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    If Cancel = False Then Application.OnTime dTime, "RefreshIt", , False
    On Error GoTo 0
End Sub
 
Sub RefreshIt()
    i = Int(Sheets(1).Range("H25").Value)
    If i > 0 Then
        On Error Resume Next
        Sheets(1).Range("A1").QueryTable.Refresh
        If i < 5 Then i = 5
        If i < 10 Then
            dt = "00:00:0" & i
        Else
            dt = "00:00:" & i
        End If
        dTime = Time + TimeValue(dt)
        Application.OnTime dTime, "RefreshIt"
    End If
End Sub

В результате получается график с результатами голосования, обновляющийся по мере поступления голосов практически в реальном времени.

Пример «живого» графика в PowerPoint:



P.S. Стоимость участия в голосовании равна стандартному тарифу на SMS-сообщение на длинный номер другому абоненту (от бесплатно до 2 руб., в зависимости от тарифного плана).