How 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 grow84
    Will remain unchanged49
    Will fallthirteen
    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
            If i < 5 Then i = 5
            If i < 10 Then
                dt = "00:00:0" & i
                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

    Also popular now: