Извлечь гиперссылку из картинки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Извлечь гиперссылку из картинки (Макросы/Sub)

meliorist

Дата: Четверг, 19.02.2015, 13:01 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день!

Подскажите, пожалуйста, знатоки.

Вроде несложная задача, а решить никак не получается.
Есть ячейка, в ней располагается картинка. Картинка является гиперссылкой.

Есть необходимость, чтобы эта гиперссылка располагалась в соседней ячейке, например (без картинки).

Пробовал данную функцию, но с картинкой она не сработала:

[vba]

Код

Function Get_Hyperlink_Address(ByVal rCell As Range) As String
      If rCell.Hyperlinks.Count = 0 Then
          If Mid$(rCell.Formula, 2, 9) = "HYPERLINK" Then
              Get_Hyperlink_Address = Mid$(rCell.Formula, 13, InStr(13, rCell.Formula, Chr(34)) - 13)
          Else
              Get_Hyperlink_Address = "В ячейке нет гиперссылки!"
          End If
      Else
          Get_Hyperlink_Address = rCell.Hyperlinks(1).Address
      End If
End Function

[/vba]
[moder]Для кода VBA кнопочка #.
Поправил.

К сообщению приложен файл: 9241570.xlsx (11.5 Kb)

Ответить

Саня

Дата: Четверг, 19.02.2015, 13:35 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

[vba]

Код

Sub GetHLFromShapes()
     Dim sh As Shape
     With ActiveSheet
         For Each sh In .Shapes
             .Hyperlinks.Add Anchor:=sh.BottomRightCell.Offset(, 1), _
                             Address:=sh.Hyperlink.Address, _
                             TextToDisplay:=sh.Hyperlink.Address
         Next sh
     End With
End Sub

[/vba]

Ответить

meliorist

Дата: Пятница, 20.02.2015, 15:50 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Саня, огромное спасибо!!!

yes

Ответить

Lana18

Дата: Суббота, 23.05.2020, 23:48 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Цитата Саня, 19.02.2015 в 13:35, в сообщении № 2 ()

Sub GetHLFromShapes()
    Dim sh As Shape
    With ActiveSheet
        For Each sh In .Shapes
            .Hyperlinks.Add Anchor:=sh.BottomRightCell.Offset(, 1), _
                            Address:=sh.Hyperlink.Address, _
                            TextToDisplay:=sh.Hyperlink.Address
        Next sh
    End With
End Sub

Он мне обработал 4 позиции и далее пишет ошибка. что я делаю не так? помогите пожалуйста

К сообщению приложен файл: 9037790.jpg (46.7 Kb)

Ответить

Lana18

Дата: Суббота, 23.05.2020, 23:52 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

разобралась почему "спотыкается". там есть еще мизерные картинки. теперь задача их убрать оптом

Сообщение отредактировал Lana18 - Воскресенье, 24.05.2020, 00:37

Ответить

Извлечь гиперссылку из картинки (Макросы/Sub)

Страница 1 из 1
1