Modificar los vínculos en powerpoint

Hola, me gustaría saber si hay alguna forma de modificar varios vínculos en distintas transparencias, sin hacerlo uno a uno. He visto el código de ayuda de powerpoint

For Each hl In ActivePresentation.Slides(1).Hyperlinks
If hl.Address = "c:\current work\sales.ppt" Then
hl.Address = "c:\new\newsales.ppt"
End If
Next

pero no sé como aplicarlo a todas las diapositivas al mismo tiempo.

Gracias de antemano.

Un saludo. Walden.