Wie kann ich direkt in PowerPoint abstimmen?

    Bild
    Viele Moderatoren, die mit PowerPoint-Präsentationen sprechen, haben die Idee, dass es schön wäre, ihren Zuhörern eine bestimmte Frage zu stellen, eine Umfrage oder sogar eine Umfrage durchzuführen. In diesem Fall ist es wünschenswert, dass die Ergebnisse ein organischer Teil der Präsentation sind.

    Zu diesem Zweck haben wir beschlossen, unseren SMS-Abstimmungsdienst zu ändern .


    Bild

    Wir haben eine einfache HTML-Anfrage gestellt, mit der Sie den Text der Frage der erforderlichen Abstimmung und in tabellarischer Form die Ergebnisse dieser Abstimmung erhalten können:
    Wie werden sich Ihrer Meinung nach die Preise für Apfelprodukte ändern?Stimmen
    Wird wachsen84
    Wird unverändert bleiben49
    Wird fallen13
    Weiß nicht...25

    Diese HTML-Tabelle kann als Datenquelle für Excel dienen. Die Verbindung wird über die Webdatenverbindung hergestellt. Anschließend wird mithilfe von Standard-Excel-Tools ein Diagramm erstellt, das in jedes Programm importiert (als Link eingefügt) werden kann, das das Verknüpfen mit Excel-Diagrammen unterstützt, z. B. in PowerPoint. Dieses Referenz- Excel-Dokument ist bereits für die Testabstimmung eingerichtet.

    Aber ein Problem stellte sich heraus. Standardmäßig können Sie in Excel Daten aus einer Quelle nicht mehr als einmal pro Minute aktualisieren. Mit dem VBA-Makro wurde diese Einschränkung umgangen.
    Makrotext
    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
    


    Das Ergebnis ist eine Grafik mit den Abstimmungsergebnissen, die aktualisiert wird, sobald die Stimmen in nahezu Echtzeit verfügbar sind.

    Ein Beispiel für ein "Live" -Diagramm in PowerPoint:

    Bild

    PS Die Abstimmungskosten entsprechen dem Standardtarif für eine SMS-Nachricht an eine lange Nummer an einen anderen Teilnehmer (von kostenlos bis 2 Rubel, abhängig vom Tarifplan).

    Nur registrierte Benutzer können an der Umfrage teilnehmen. Bitte komm rein .

    SMS-Abstimmung in PowerPoint

    • 40% können hilfreich sein 64
    • 63,1% Unwahrscheinlich nützlich 101

    Jetzt auch beliebt: