abrir hiperenlace

Discute sobre la aplicación de hojas de cálculo

abrir hiperenlace

Notapor vtorrijos » Vie Oct 05, 2018 10:25 am

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
vtorrijos
 
Mensajes: 4
Registrado: Mar Oct 02, 2018 9:21 am

Re: abrir hiperenlace

Notapor FJCC-ES » Vie Oct 05, 2018 3:05 pm

Encontré aquí (en inglés) cómo abrir un hipervínculo en Microsoft Edge
Código: Seleccionar todo   Expandir vistaContraer vista
=HIPERVINCULO("microsoft-edge:http://www.cnn.com")

No pude encontrar cómo elegir otros navegadores.
FJCC-ES
 
Mensajes: 663
Registrado: Mié Mar 25, 2009 1:19 am
Ubicación: Colorado, USA

Re: abrir hiperenlace

Notapor fornelasa » Lun Oct 08, 2018 10:55 pm

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   Expandir vistaContraer vista
="C:\Users\Federico\AppData\Local\Vivaldi\Application\vivaldi.exe "&A1

En B2 colocamos una formula similar a esta
Código: Seleccionar todo   Expandir vistaContraer vista
="C:\Program Files\Internet Explorer\iexplore.exe "&A2


Asignamos esta macro al evento "Clic Derecho"
Código: Seleccionar todo   Expandir vistaContraer vista
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) 21 veces
lo 6.1.2 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Avatar de Usuario
fornelasa
 
Mensajes: 3144
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.


Volver a Calc

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 6 invitados