How to vote directly in PowerPoint?
Many speakers, speaking to an audience with presentations in PowerPoint, come up with the idea that it would be nice to contact your listeners with a specific question, conduct a survey or even a survey. In this case, it is desirable that the results would be an organic part of the presentation.
For these purposes, we decided to refine our SMS voting service .
')
We made a simple html-request , with which you can get the text of the question required voting and, in tabular form, the results of this vote:
| How do you think prices for apple products will change? | Vote |
|---|---|
| Will grow up | 84 |
| Will remain unchanged | 49 |
| Will fall | 13 |
| I do not know... | 25 |
This html table can serve as a data source for Excel. Connection is made using Web Data Connection. Next, standard Excel tools build a graph that can be imported (pasted as a link) into any program that supports linking to Excel graphs, for example, to PowerPoint. This reference Excel document is already set up for test voting.
But it turned out one problem. By default, Excel allows you to update data from a source at most once a minute. With the help of a VBA macro, this restriction was bypassed.
Macro text
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 The result is a graph with the results of the vote, updated as the votes are received in almost real time.
An example of live graphics in PowerPoint:
PS The cost of participation in voting is equal to the standard tariff for an SMS message to a long number to another subscriber (from free of charge up to 2 rubles, depending on the tariff plan).
Source: https://habr.com/ru/post/245315/
All Articles