Я хотел бы показать число c, загруженное из сетевого расположения рядом с каждой непустой ячейкой в диапазоне A1: A10, и присвоить названию изображение значение в этом диапазоне.
Sub testpics()
Dim Cell As Range
For Each Cell In Range("A1:A10").Cells
If Not IsEmpty(Cell) Then
On Error GoTo ErrNoPhoto
pictureloc = "location here" & Cell & ".jpg"
With Cell.Offset(0, 1)
Set mypict = ActiveSheet.Pictures.Insert(pictureloc)
mypict.Height = .RowHeight
mypict.Left = .Left
mypict.Top = .Top
mypict.Placement = xlMoveAndSize
mypict.Name = Cell
mypict.OnAction = "enlarge"
End With
Exit Sub
ErrNoPhoto:
MsgBox "Unable to Find Photo for " & Cell
End If
Next Cell
End Sub
Итак Пока я придумал код выше, но он показывает только пи c позади А1, если я его запускаю. Что я делаю неправильно / отсутствует в моем коде?