
Многим докладчикам, выступающим перед аудиторией с презентациями в 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 руб., в зависимости от тарифного плана).
Только зарегистрированные пользователи могут участвовать в опросе. Войдите, пожалуйста.
SMS-голосования в PowerPoint
40% Могут быть полезны64
63.13% Вряд ли пригодятся101
Проголосовали 160 пользователей. Воздержались 23 пользователя.