импорт картинки из внешней папки

[Iskin]

Нашел код в инете, который по пути указанных в ячейках B1:B5 вставляет/заливает в A1:A5 картинки в виде примечания. И все как-то сложно и куча ошибок, то размер не тот, то еще чего-то не хватает. Как можно упростить код, сделать его более универсальным. Чтобы если нет фото, то и примечание не создавать. В целом задумка же не плохая, многим бы пригодилась

Sub InsertPicturesInComments()
 
    Dim rngPics As Range, rngOut As Range
    Dim i As Long, p As String, w As Long, h As Long
     
    Set rngPics = Range("B1:B5")    'диапазон путей к картинкам
    Set rngOut = Range("A1:A5")     'диапазон вывода примечаний
     
    rngOut.ClearComments        'удаляем старые примечания
     
    'проходим в цикле по ячейкам
    For i = 1 To rngPics.Cells.Count
     
        p = rngPics.Cells(i, 1).Value       'считываем путь к файлу картинки
        w = LoadPicture(p).Width            'и ее размеры
        h = LoadPicture(p).Height
         
        With rngOut.Cells(i, 1)
            .AddComment.Text Text:=""       'создаем примечание без текста
            .Comment.Visible = True
            .Comment.Shape.Select True
        End With
        With rngOut.Cells(i, 1).Comment.Shape   'заливаем картинкой
            .Fill.UserPicture p
            .ScaleWidth 1, msoFalse, msoScaleFromTopLeft
            .ScaleHeight h / w * 1.8, msoFalse, msoScaleFromTopLeft     'корректируем размеры
        End With
    Next i
End Sub

в частности ругается на

 .Fill.UserPicture p

указанное значение выходит за допустимые пределы

[Serge_Bliznykov]

Код взяли тут - https://www.planetaexcel.ru/techniques/9/128/ ?

Можете доработать под себя, как Вам надо.

Но зачем, есть же платное решение - надстройка PastePictures

[Iskin]

Оно. Но в целом не особо помогло. Там люди тоже спрашивают что делать с размерами

w = LoadPicture(p).Width
h = LoadPicture(p).Height

, а ответов нет

[Serge_Bliznykov]

Сообщение от Iskin

а ответов нет

так в статье же написано:

P.S.
Вставленные в примечания картинки и фотографии будут неизбежно утяжелять файл. При большом количестве изображений имеет смысл их заранее обработать (сжать до нужных размеров, оптимизировать цветовую гамму и разрешение) с помощью специальных программ.
Отобразить или скрыть сразу все примечания можно на вкладке Рецензирование - Показать все примечания (Review - Show all comments).
Удалить все примечания из выделенных ячеек можно на вкладке Главная - Очистить - Примечания (Home - Clear - Comments).

[Iskin]

В общем, не тот случай. Действительно утяжеляет файл и только. Наверное рациональнее сделать ссылку на папку, где лежит этот графический файл