Macro para crear hipervinculos

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
Avatar de Usuario
rhuerta
Mensajes: 51
Registrado: Vie Nov 21, 2008 8:06 am

Macro para crear hipervinculos

Mensaje por rhuerta »

Hola

En una columna de una hoja Calc tengo direcciones url que hacen referencia a unas imagenes en la red. Qué instruccion puedo usar para convertir esas celdas en hipervinculos que apunten al texto que contiene cada celda?

El codigo con excel era el siguiente

Código: Seleccionar todo

Sub hipervincular()
'
' Converts each text hyperlink selected into a working hyperlink
'
  For Each xCell In Selection
      ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
  Next xCell
'
End Sub
OpenOffice 3.2.1 en OpenSuse 11.2 con gnome
http://migasfree.org/
Avatar de Usuario
mauricio
Mensajes: 6093
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Macro para crear hipervinculos

Mensaje por mauricio »

Hola...

¿Puedes mostrarnos un ejemplo de como tienes los datos en tus celdas?...

Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
rhuerta
Mensajes: 51
Registrado: Vie Nov 21, 2008 8:06 am

Re: Macro para crear hipervinculos

Mensaje por rhuerta »

Aquí tienes un ejemplo parecido al de la hoja que tengo. No subo el original por contener información de los servidores de mi empresa. pero básicamente lo que quiero es que con una macro asociada a un atajo de teclado me convierta estas celdas en hipervínculos que apunten a la url contenida en cada celda.

Un saludo.
Adjuntos
Ejemplo.ods
(9.33 KiB) Descargado 1019 veces
OpenOffice 3.2.1 en OpenSuse 11.2 con gnome
http://migasfree.org/
Responder