Compartir a través de

Objeto Hyperlinks (PowerPoint)

  • Artículo

Colección de todos los objetos Hyperlink en una diapositiva o patrón.

Ejemplo:

Utilice la propiedad Hyperlinks para devolver la colección Hyperlinks. En el siguiente ejemplo actualiza todos los hipervínculos de la diapositiva uno de la presentación activa que tengan la dirección especificada.

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

Utilice la propiedad Hyperlink para crear un hipervínculo y agregarlo a la colección Hyperlinks. En el siguiente ejemplo se establece un hipervínculo que se activará cuando el usuario hace clic en la forma tres de la diapositiva uno de la presentación activa durante una presentación con diapositivas y agrega el nuevo hipervínculo a la colección. Tenga en cuenta que si la forma tres ya tiene definido un hipervínculo de clic del mouse, en el siguiente ejemplo se eliminará este hipervínculo de la colección al agregar el nuevo, para que no cambie el número de elementos de la colección Hyperlinks.

With ActivePresentation.Slides(1).Shapes(3) _
        .ActionSettings(ppMouseClick)

    .Action = ppActionHyperlink
    .Hyperlink.Address = "https://www.microsoft.com"

End With

Consulte también

Referencia del modelo de objetos de PowerPoint

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.