VBA для вставки изображений, чтобы появиться над наведением мыши на ячейку - PullRequest
Новая
       16

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

0 голосов
/ 02 ноября 2019

Я довольно новичок в VBA, и мой начальник хочет, чтобы я добавил картинки для каждого из серийных тегов инвентаря, который у нас есть, и чтобы они появлялись, когда курсор наведен на ячейку. Было бы трудно сделать это вручную, так как в таблице Excel есть более 1000 строк. У меня есть папка с изображениями с соответствующими серийными номерами в качестве имени файла (файлы .jpg), и мне нужно сопоставить их с строкой в ​​листе Excel, в которой уже указан каждый серийный номер. Вот как выглядит лист Excel:

enter image description here

Я попытался использовать некоторый код VBA безрезультатно, и я боюсь, что если этот код будетработа - это просто заполняет лист изображениями без ограничений по размеру и вообще не ограничивается ячейкой. 

Sub insertpic()

    Range("C1:C1028").Select
    Dim imgselect As String
    Dim i As Integer
    For i = 1 To 1028
        Range(i & "3").Activate
        imgselect = CStr(ActiveCell.Value)
        ActiveSheet.Pictures.Insert "C:\Users\(username)\Desktop\(picture folder)" & imgselect & ".jpg"
    Next i

End Sub

Я получаю несколько разных ошибок, совсем недавно возникли проблемы с реализацией функции вставки изображений. Любая помощь приветствуется, если все остальное не удается вставить их в виде отформатированных комментариев, это то, к чему я могу прибегнуть.

...