Я пытаюсь показать изображение в столбце из другого столбца, который содержит источники 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