Как стать автором
Обновить

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

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

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


image

Мы сделали простой 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:

image

P.S. Стоимость участия в голосовании равна стандартному тарифу на SMS-сообщение на длинный номер другому абоненту (от бесплатно до 2 руб., в зависимости от тарифного плана).
Только зарегистрированные пользователи могут участвовать в опросе. Войдите, пожалуйста.
SMS-голосования в PowerPoint
40% Могут быть полезны64
63.13% Вряд ли пригодятся101
Проголосовали 160 пользователей. Воздержались 23 пользователя.
Теги:
Хабы:
Всего голосов 15: ↑5 и ↓10-5
Комментарии7

Публикации

Истории

Ближайшие события

11 – 13 февраля
Epic Telegram Conference
Онлайн
27 марта
Deckhouse Conf 2025
Москва
25 – 26 апреля
IT-конференция Merge Tatarstan 2025
Казань