abrir hiperenlace

Discute sobre la aplicación de hojas de cálculo
Responder
vtorrijos
Mensajes: 4
Registrado: Mar Oct 02, 2018 9:21 am

abrir hiperenlace

Mensaje por vtorrijos »

Alguien sabe si es posible cuando pulso un hiperenlace que se abra con un navegador determinado??

Por ejemplo... En una hoja quiero poner varios enlaces pero unos se tienen que abrir con Explorer y otros con Mozilla... Como puedo hacerlo para que cada uno se abra con el navegador que yo elija??
OpenOffice 3.1 en Windows Vista
FJCC-ES
Mensajes: 873
Registrado: Mié Mar 25, 2009 1:19 am
Ubicación: Colorado, USA

Re: abrir hiperenlace

Mensaje por FJCC-ES »

Encontré aquí (en inglés) cómo abrir un hipervínculo en Microsoft Edge

Código: Seleccionar todo

=HIPERVINCULO("microsoft-edge:http://www.cnn.com")
No pude encontrar cómo elegir otros navegadores.
Avatar de Usuario
fornelasa
Mensajes: 3268
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: abrir hiperenlace

Mensaje por fornelasa »

Otra posible opción:
Supón que en A1 tienes la dirección http://www.hotmail.com y deseas que esta url sea abierta con Vivaldi
Supón que en A2 tienes la dirección http://www.hotmail.com y deseas que esta url sea abierta con Internet Explorer
Lo primero que debemos hacer es averiguar donde está el ejecutable de tus exploradores, en mi caso serían por ejemplo:
Para Vivaldi C:\Users\Federico\AppData\Local\Vivaldi\Application\vivaldi.exe
Para Internet Explorer C:\Program Files\Internet Explorer\iexplore.exe

En B1 colocamos una formula similar a esta

Código: Seleccionar todo

="C:\Users\Federico\AppData\Local\Vivaldi\Application\vivaldi.exe "&A1
En B2 colocamos una formula similar a esta

Código: Seleccionar todo

="C:\Program Files\Internet Explorer\iexplore.exe "&A2
Asignamos esta macro al evento "Clic Derecho"

Código: Seleccionar todo

Sub Explorador(Dato)
		On Error Resume Next
   oDoc = ThisComponent
   hoja = oDoc.CurrentController.ActiveSheet
  celda = hoja.getCellRangeByName(Dato.AbsoluteName)
   oURL = Dato.string
 Pagina = Shell(oUrl)
End Sub
Mira el ejemplo adjunto (Dando clic derecho en B1 o B2), solo cambia la ruta por tu ruta correcta.
Ojala puedas adaptarlo a tus necesidades.
Saludos, Federico.
Adjuntos
Explorador.ods
Abrir URL con diferente explorador
(9.9 KiB) Descargado 152 veces
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Responder