Jak zobaczyc linki zamiast nazw w hiperlinku?

[Dawidek990]

Witam, mam w pliku ok 150 hiperlinkow... jednak zamiast widocznego linku... htttp://.... sa nazwy produktow... da sie zrobic cos zeby calc pokazal mi linki, i zebym mogl to skopiowac i wkleic np w przegladarke jako link a nie jako nazwe?
(wiem ze moge kliknac, ale potrzebuje odpalic np 50 linkow naraz a nie klikac pojedynczo)

[Jan_J]

Wygląda, że całkiem łatwo (tj. bazując na samym interfejsie użytkowym Calca) się nie da. Kwerenda https://www.google.com/search?q=libreof ... hyperlinks
https://duckduckgo.com/?q=libreoffice+c ... hyperlinks
pokazała m.in.
https://ask.libreoffice.org/en/question ... wable-url/
https://ask.libreoffice.org/en/question ... xt-column/

[Dawidek990]

Ok, znalazlem marko na to ;]

Kod: Zaznacz cały

REM  *****  BASIC  *****
Option Explicit

Function CELL_URL(lSheetIndex as long,lRowIndex as long, iColIndex as long)
Dim oDoc as object
Dim oSheet as Object
Dim oCell as object

   oDoc = ThisComponent
   oSheet = oDoc.Sheets.getbyindex(lSheetIndex)
   oCell = oSheet.getCellByPosition(lRowIndex,iColIndex)
   CELL_URL = "nothing"
   if vartype(oCell) = 9 then
      CELL_URL = oCell.getTextfields.getByIndex(0).URL
   end if
End Function