Вставка изображений в столбец из другого столбца с помощью функции формулы в Excel - PullRequest
0 голосов
/ 17 февраля 2020

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

  • Он всегда переходит к блоку "Err"
  • Он вставляет изображения, но вставляет в текущую выбранную ячейку, которая в интерфейсе Excel, а не ячейку, в которой отрисовывается Excel , Таким образом, XPos и ​​YPos ниже никогда не используются Excel ...

Как решить эти проблемы? Спасибо!

Public Function ShowImage(PicFile As String)
    XPos = ActiveSheet.Range(Application.Caller.Address).Cells(0, 0).Left
    YPos = ActiveSheet.Range(Application.Caller.Address).Cells(0, 0).Top
    On Error GoTo Err
        With ActiveSheet.Pictures.Insert(PicFile)
            With .ShapeRange
                .LockAspectRatio = msoTrue
                .Width = 75
                .Height = 100
            End With
            .LinkToFile = msoFalse
            .SaveWithDocument = msoFalse
            .Left = XPos
            .Top = YPos
            .PrintObject = True
        End With
Done:
    ShowImage = "Done"
    Exit Function
Err:
    ShowImage = "Error"
End Function
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...