Adaptar macro de excel a power point

Hola!!!
Tengo una macro en excel que crea un reloj, lo que necesito es adaptar el código de esta macro para que se pueda ejecutar en power point.

Si alguien pudiera ayudarme,

Gracias...

El código es el siguiente:

Sub ActualizaHora()
Dim lReturn As Long
Dim gmt As Long
Dim xml As Object
Dim horaServidor As Date
Set xml = CreateObject("MSXML2.XMLHTTP")
xml.Open "GET", "http://24timezones.com/es_husohorario/chihuahua_hora_actual.php" & Timer, False
xml.send
If xml.readyState = 4 Then
horaServidor = Mid(xml.getResponseHeader("Date"), 5, 20)
gmt = -7 '(chihuahua)
horaServidor = DateAdd("h", gmt, horaServidor)
Else
Exit Sub
End If
Set xml = Nothing
Sheets("sheet1").Range("a1").NumberFormat = "hh:mm"
Range("A1").Value = horaServidor
DisparaActualizador
End Sub
Sub DisparaActualizador()
Application.OnTime Now + TimeValue("00:00:10"), "ActualizaHora"
End Sub
Sub Auto_Open()
ActualizaHora
Application.DisplayFullScreen = True
DisparaActualizador
End Sub