December 8, 2014 at 22:43How to vote directly in PowerPoint?
Many presenters speaking to PowerPoint presentations come up with the idea that it would be nice to ask their listeners a specific question, to 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 modify our SMS-voting service .
We made a simple html request with which you can get the text of the question of the required vote and, in tabular form, the results of this vote:
| How do you think prices for apple products will change? | Vote |
|---|---|
| Will grow | 84 |
| Will remain unchanged | 49 |
| Will fall | thirteen |
| I do not know... | 25 |
This html table can serve as a data source for Excel. Connection is made using Web Data Connection. Then, using standard Excel tools, a graph is built that can be imported (pasted as a link) into any program that supports linking with Excel graphs, for example, in PowerPoint. This reference Excel document is already set up for test voting.
But one problem turned out. By default, Excel allows you to update data from a source no more than 1 time per minute. Using the VBA macro, this limitation was circumvented.
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 voting results, which is updated as votes become available in almost real time.
An example of a “live” chart in PowerPoint:
PS The cost of voting is the standard tariff for an SMS message to a long number to another subscriber (from free to 2 rubles, depending on the tariff plan).
Only registered users can participate in the survey. Please come in.
SMS voting in PowerPoint
- 40% May be helpful 64
- 63.1% Unlikely to come in handy 101