ROMPER TODOS LOS VÍNCULOS CREADOS EN UN POWERPOINT

Hola a todos:

Aunque esta web trata fundamentalmente sobre Excel, hoy voy a hacer una excepción para tratar un tema recurrente en el mundo de las presentación y los trabajos realizados entre Excel y PowerPoint.

En muchas ocasiones, las presentación que se realizan en PowerPoint utilizan objetos embebidos para mantener las vinculaciones de los datos que se generar desde otros programas, por ejemplo, desde Excel.

Os mostraré un sencillo ejemplo de cómo se realiza esta tarea, imaginad que tenemos este gráfico en una hoja excel:

Si queremos que nuestra presentación de PowerPoint contenga este gráfico y se pueda actualizar automáticamente, no basta con cortar en Excel y pegar en Point, es necesario pegar de una forma especial:

Como podéis ver en la imagen, estamos pegando un vinculo con el pegado especial. De esta forma cualquier cambio que se produzca en Excel se reflejará en PPT:

Pero ¿qué sucede cuando queremos enviar esa presentación por correo?, pues que al abrirse en archivo nos va a preguntar si queremos actualizar los vínculos a, en este caso, el archivo de Excel. Para evitar que el usuario al que hemos enviado la presentación tenga que elegir si actualiza o no los vínculos, la única opción que tenemos es romperlos.

Para romper los vínculos a otros archivos en una presentación, tenemos tres opciones:

La primera opción consiste en pulsar en «Archivo» y luego en la opción «Información y buscar en la parte inferior derecha: «Editar vínculos a archivos»:

Una vez que pulsamos en esa opción se mostrará una ventana «vínculos» y solo tendremos que pulsar el botón «romper vínculo» para eliminar todas las vinculaciones a nuestra presentación.

La segunda opción es agregando el botón de «Romper vínculo» a la cinta de opciones. Para eso debemos ir a Archivo > Opciones > Personalizar cinta de Opciones y agregar Romper vínculo. El botón quedaría así:

Esta modalidad permite eliminar los vínculos sobre el objeto que seleccionemos, a diferencia del anterior que elimina todos los vínculos de la presentación.

Por último, os dejo otra forma, esta vez con VBA. Ejecutando este código en un módulo estándar de nuestra presentación eliminará todos los vínculos de la presentación:

Sub Romper_vinculos()
'Declaramos variables
Dim obj As Shape
Dim diapo As Slide
'Primer bucle recorremos todas las diapositivas
For Each diapo In ActivePresentation.Slides
'Segundo bucle recorremos todos los objetos de la diapo
For Each obj In diapo.Shapes
'si se trata de un objeto embebido eliminamos el link
If obj.Type = msoLinkedOLEObject Then
obj.LinkFormat.BreakLink
End If
Next obj
Next diapo
End Sub

Como es obvio, lo lógico es que esto lo hagamos sobre una copia de la presentación original, dado que de otra forma perderíamos las vinculaciones de nuestro trabajo.

Para este post no dejaré archivo dado que no es necesario y la información está dispuesta a modo de tutorial.

Espero que os haya resultado de interés : )

¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.



¡¡Muchas gracias!!

Mediante la suscripción al blog, la realización comentarios o el uso del formulario de contacto estás dando tu consentimiento expreso al tratamiento de los datos personales proporcionados según lo dispuesto en la ley vigente (LOPD). Tienes más información al respecto en esta página del blog: Política de Privacidad y Cookies