Гиперсылка с длинным линком

[valerij]

Всем привет!!
Подскажите, как в гиперссылке вставить длинный линк?

https://www.ozon.ru/product/planshet...ланшеты+с+HDMI

Спасибо

[Eugene-LS]

Сообщение от valerij

как в гиперссылке вставить длинный линк?

'Создание гиперссылки:
Dim sRangeAddress$, sLinkAddress$, vScreenTip, vTextToDisplay
'Куда?:
    sRangeAddress = "A2"
'Адрес гиперссылки - "длинный линк":
     sLinkAddress = "https://www.ozon.ru/product/" & _
        "planshet-dere-ram-16-gb-ssd-1024-gb-intel-uhd-graphics-13-1024gb-seryy-windows-11-pro-seryy-1148692814/"
'Всплывающая подсказка, отображаемая при наведении указателя мыши на текст
    vScreenTip = "Перейти на сайт продукта: ""www.ozon.ru"""  ' Опционально
'Текст гиперссылки. Необязательный параметр.
    vTextToDisplay = "Планшет DERE RAM 16 GB,SSD 1024 GB,Intel UHD Graphics, 13"", 1024GB, Cерый, Windows 11 Pro"
' Добавление ссылки:
'... Hyperlinks.Add — это метод, который добавляет новую гиперссылку к указанному объекту
    ThisWorkbook.Sheets(1).Hyperlinks.Add Range(sRangeAddress), sLinkAddress, , vScreenTip, vTextToDisplay

[valerij]

Сообщение от Eugene-LS

Код

Спасибо, попробую разобраться!!