Вставить изображение на основе значения ячейки - PullRequest
Новая
       17

Вставить изображение на основе значения ячейки

0 голосов
/ 06 декабря 2018

Я пытаюсь обновить изображение, которое соответствует группе ячеек Sheet17.Range ("A2: E3") на основе значения ячейки в Sheet17.Range ("G2").

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G2")) Is Nothing Then Exit Sub
Dim myPict As Shape
With Range("A2:E3")
Set myPict= Range("A2:E2").Parent.Pictures.Insert("\\NPDATASERV1\Factory\Production\5.Records\Product_Pictures\" & Range("G2").Value & ".jpg")
myPict.Top = .Top
myPict.Width = .Width
myPict.Height = .Height
myPict.Left = .Left
myPict.Placement = xlMoveAndSize
End With
End Sub

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

Подробнее об этом файле.Файл создан для создания пакета информации для конкретных рабочих заданий.Пользователь использует форму пользователя для ввода номера инструкции, которая изменяет перечисленные коды предметов.Код товара затем определяет значение в Sheet17.Range ("G2").Sheet17.Range ("G2") является функцией Index (x, Match (y, z, 0)).

Спасибо!

...