Excel преобразовать все адреса

Перейти к содержимому

Znet

Это я. Имею опыт продвижения крупных проектов (более 15К уников дейли), владею небольшой сеткой собственных сайтов.

1. Откройте вкладку средства разработки, чтобы вызвать функцию программирования VB.

Два, три метода преобразования URL в изображение

1. Сохраняйте одновременно картинки и соединения (напишите программу vb и вызовите соответствующий макрос)

Сначала преобразуйте все ссылки в форму гиперссылки (синий шрифт с подчеркиванием)

Средство разработки — Visual Basic (или сочетание клавиш ALT + F11) войдите в интерфейс VB, а затем дважды щелкните кнопку Sheet1, чтобы открыть окно программирования VB.

Введите следующий код и сохраните

Sub loadimage()
Dim HLK As Hyperlink, Rng As Range
 Для каждого HLK в ActiveSheet. Гиперссылки на каждую гиперссылку в активном листе.
         Если HLK.Address Like "* .jpg" или HLK.Address Like "* .gif" Then 'Если расположение ссылки - изображение в формате jpg или gif (здесь только для этих двух типов изображений можно создать больше типов, создав массив или Словарь или обычный судить)
                 Set Rng = HLK.Parent.Offset (, 1) 'Установить позицию для вставки целевого изображения
                 С помощью ActiveSheet.Pictures.Insert (HLK.Address) 'Вставьте изображение в адрес ссылки
                         Если .Height / .Width> Rng.Height / Rng.Width Then 'Оцените отношение соотношения сторон изображения к соотношению сторон ячейки, чтобы определить коэффициент масштабирования ячейки
                .Top = Rng.Top
                .Left = Rng.Left + (Rng.Width - .Width * Rng.Height / .Height) / 2
                .Width = .Width * Rng.Height / .Height
                .Height = Rng.Height
            Else
                .Left = Rng.Left
                .Top = Rng.Top + (Rng.Height - .Height * Rng.Width / .Width) / 2
                .Height = .Height * Rng.Width / .Width
                .Width = Rng.Width
            End If
        End With
    End If
Next
End Sub

Инструменты разработки-Макро-Выполнение

2. Удалите ссылку и оставьте только картинку (вставьте метод сценария VB)

Создайте новый блокнот и сохраните следующий код в формате .bas.

'charset GB2312. Ссылка на изображение в Excel преобразуется в файл изображения.

Attribute VB_Name = "LoadImage"
Sub LoadImage()
Dim HLK As Hyperlink, Rng As Range
 Для каждого HLK в ActiveSheet. Гиперссылки на каждую гиперссылку в активном листе.
         Если UCase (HLK.Address) как «* .JPG» или UCase (HLK.Address) как «* .JPEG» или UCase (HLK.Address) как «* .PNG» или UCase (HLK.Address) как «*. GIF "Then'Если расположение ссылки - изображение в формате jpg или gif (здесь только для этих двух типов изображений можно определить другие типы, создав массив, словарь или обычный)
                 Set Rng = HLK.Parent.Offset (, 0) 'Установить позицию для вставки целевого изображения
                 С помощью ActiveSheet.Pictures.Insert (HLK.Address) 'Вставьте изображение в адрес ссылки
                         Если .Height / .Width> Rng.Height / Rng.Width Then 'Оцените отношение соотношения сторон изображения к соотношению сторон ячейки, чтобы определить коэффициент масштабирования ячейки
                .Top = Rng.Top
                .Left = Rng.Left + (Rng.Width - .Width * Rng.Height / .Height) / 2
                .Width = .Width * Rng.Height / .Height
                .Height = Rng.Height
            Else
                .Left = Rng.Left
                .Top = Rng.Top + (Rng.Height - .Height * Rng.Width / .Width) / 2
                .Height = .Height * Rng.Width / .Width
                .Width = Rng.Width
            End If
        End With
                 HLK.Parent.Value = "" 'Удалить ссылку на изображение ячейки
    End If
Next
End Sub

Щелкните правой кнопкой мыши страницу листа в интерфейсе VB и выберите Импортировать файл.

Средства разработки-Макро-Выполнение модуля LoadImage

3. Активно выбирайте, открывать ли картинку

То же, что и метод 1, но вам нужно выбрать объявление как BeforeRightClick, и он будет срабатывать, когда вы установите его для щелчка правой кнопкой мыши

Вставьте следующий код в соответствующий метод времени

With Target
                 If Left (.Value, 7) = "http: //" Then'Если содержимое ячейки является URL-адресом
                         'Добавить сетевое изображение и установить размер и положение изображения для изменения при изменении ячейки
            ActiveSheet.Shapes.AddPicture(.Value, msoCTrue, msoCTrue, .Left, .Top, .Width, .Height).Placement = xlMoveAndSize
                         .WrapText = True 'Ячейка настроена на автоматический перенос, чтобы скрыть URL
        End If
End With

Щелкните ячейку правой кнопкой мыши, чтобы отобразить изображение

дополнение

Решите проблему отображения URL-адресов без гиперссылок в виде изображений в области комментариев.

Sub loadimage()
Dim ranTotal As Range, rng As Range, imageRng As Range 'Установить три переменные диапазона
 Set rngTotal = Range ("o: o") 'Выберите столбец o, в котором хранится URL
 Для каждого rng ​​In rngTotal'traverse все ячейки столбца
         If Left (rng.Value, 7) = "http: //" Then'Если содержимое ячейки является URL
                 Установить imageRng = rng.Offset (, 1) 'Адрес, где хранится изображение
        With ActiveSheet.Pictures.Insert(rng.Value)
                         Если .Height / .Width> imageRng.Height / imageRng.Width Then 'Определите отношение соотношения сторон изображения к соотношению сторон ячейки, чтобы определить коэффициент масштабирования ячейки
                .Top = imageRng.Top
                .Left = imageRng.Left + (imageRng.Width - .Width * imageRng.Height / .Height) / 2
                .Width = .Width * imageRng.Height / .Height
                .Height = imageRng.Height
            Else
                .Left = imageRng.Left
                .Top = imageRng.Top + (imageRng.Height - .Height * imageRng.Width / .Width) / 2
                .Height = .Height * imageRng.Width / .Width
                .Width = imageRng.Width
            End If
        End With
    End If
Next
End Sub