Показать пи c в столбце рядом с непустой ячейкой в ​​столбце - PullRequest
0 голосов
/ 27 марта 2020

Я хотел бы показать число 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, если я его запускаю. Что я делаю неправильно / отсутствует в моем коде?

1 Ответ

0 голосов
/ 27 марта 2020

Основная проблема в том, что вы выходите из l oop после первой итерации. Тем не менее, я реорганизовал ваш код ниже, чтобы сделать его более стабильным, читаемым и лучше отображать фактические ошибки.

Option Explicit

Sub testpics()

    Dim Cell As Range
    For Each Cell In Range("A1:A10").Cells

        If Not IsEmpty(Cell) Then

            Dim pictureLoc As String
            pictureLoc = "location here" & Cell & ".jpg"

            Dim mypict As Object
            On Error Resume Next
            Set mypict = ActiveSheet.Pictures.Insert(pictureLoc)
            On Error GoTo 0

            If Not mypict Is Nothing Then

                With Cell.Offset(0, 1)

                    mypict.Height = .RowHeight
                    mypict.Left = .Left
                    mypict.Top = .Top
                    mypict.Placement = xlMoveAndSize
                    mypict.Name = Cell.Value
                    mypict.OnAction = "enlarge"

                End With

            Else

                Cell.Offset(0, 1).Value = "Could Not Find Pic"

            End If

        End If

    Next

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...