Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
05.03.2021, 10:19:46

Войти
Хотите поблагодарить участника за дельный совет? Нажмите [Повысить]. Так вы заслуженно поднимите репутацию активному участнику.
31 906 Сообщений в 5 144 Тем от 12 157 Пользователей
Последний пользователь: ilyaadswqov
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
  Просмотр сообщений
Страниц: [1]
1  Основные форумы / Вопросы по Excel и VBA / Re:Редактирование макроса замены картинок на названия : 07.02.2018, 14:41:46
Комментарий администратора убрал цитирование

Спасибо, про коды на будущее буду знать
2  Основные форумы / Вопросы по Excel и VBA / Редактирование макроса замены картинок на названия : 07.02.2018, 13:59:03
Добрый день.

Нашел на этом сайте один макрос полезный:

Код: (vb)
Sub Save_Object_As_Picture()
    Dim li As Long, oObj As Shape, wsSh As Worksheet, wsTmpSh As Worksheet
    Dim sImagesPath As String, sName As String
    
    sImagesPath = ActiveWorkbook.Path & "\images\" '"
    If Dir(sImagesPath, 16) = "" Then
        MkDir sImagesPath
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set wsSh = ActiveSheet
    Set wsTmpSh = ActiveWorkbook.Sheets.Add
    For Each oObj In wsSh.Shapes
        If oObj.Type = 13 Then
            li = li + 1
            oObj.Copy
            sName = "img" & li
            With wsTmpSh.ChartObjects.Add(0, 0, oObj.Width, oObj.Height).Chart
                .ChartArea.Border.LineStyle = 0
                .Parent.Select
                .Paste
                .Export Filename:=sImagesPath & sName & ".jpg", FilterName:="JPG"
                .Parent.Delete
            End With
            oObj.TopLeftCell.Value = sImagesPath & sName & ".jpg"
            oObj.Delete ' удаляем картинку с листа
        End If
    Next oObj
    Set oObj = Nothing: Set wsSh = Nothing
    wsTmpSh.Delete
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "Картинки сохранены по пути: " & sImagesPath, vbInformation, "www.excel-vba.ru"
End Sub

Комментарий администратора Коды оформляйте тегами VBCode. п.п. 4.25 Правил форума

Вопрос в том, как его можно изменить, чтобы вместо изображения вставлялся не просто путь к картинке, а ссылка на эту картинку?
Страниц: [1]
Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru