вставка рисунков с привязкой к ячейкам

[brutWin]

Добрый день!
Может быть кому то просто и не составит труда, но у меня вызвало сложности.
Нужно создать макрос, который будет вставлять картинки, лежат  в отдельной папке  (они пронумерованы 1(1) 2 (1) и т.д.) в определенные ячейки (всего 23), при этом нужно сохранять пропорцию,  уменьшать картинки на высоту  ячейки и вставлять их ровно по центру.
EXEL 2007
Пытался записать  макрос и сделать на основе его, но картинка вставляется совсем не туда.
Понимания в используемых аргументах нет.

  

Код: (vb)

  ActiveSheet.Range("K13").Activate
    
    ActiveSheet.Pictures.Insert( _
        "\\.jpg"). _
        Select
    Selection.ShapeRange.IncrementLeft 323.5714173228
    Selection.ShapeRange.IncrementRotation 90
    Selection.ShapeRange.IncrementLeft -238.9285826772
    Selection.ShapeRange.Height = 151.937007874
    Selection.ShapeRange.Width = 145.7007874016
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Height = 151.937007874
    Selection.ShapeRange.IncrementLeft 80
    Selection.ShapeRange.IncrementTop 0

[sboy]

Добрый день.

Может быть кому то просто и не составит труда

Да, но зачем=)
Первый ответ поисковика дает отличный готовый код

[brutWin]

То то и оно что не удаётся найти релевантный код
Настолько оказалось не проще, что даже не лень сюда писать !

[brutWin]

Что то накопал и даже работает
Теперь нужно повернуть изображение, на сколько я понимаю команда rotation, но как правильно синтаксис выполнить не понимаю

Код: (vb)

Sub картинка()
'
' картинка

    Dim d As Range
    Set d = Cells(13, 11)
    With ActiveSheet.Pictures.Insert("D:\BrutWin\Work\P7 group\ÏÏÐ\ÔÎÒÎ\1 (1).jpg" & Selection(1).Offset(, 1))
        .Width = d.Width 
        .Height = d.Height 
        .Top = d.Top 
        .Left = d.Left 
    End With
End Sub

Комментарий глобального модератора

не забывайе оформлять код

[brutWin]

В итоге получилось, но немного по другому, а проблема с переворотом все равно осталась, если добавляю .rotation  картинка сдвигается относительно ширины и высоты ячейки, если ротацию убрать и поворачивать картинку в исходнике, то все вставляется как нужно, может кто подсказать почему так?

Код: (vb)

Sub картинка()
'
ActiveSheet.Pictures.Insert("D:\BrutWin\Work\P7 group\ппр\фото\1 (1).jpg").Select
            With Selection.ShapeRange
             .Rotation = 90
             .Height = Range("k13").Height
             .Width = Range("k13").Width
             .Top = Range("k13").Top + (Range("K13").Height - .Height) / 2
             .Left = Range("k13").Left + (Range("K13").Width - .Width) / 2
               
            End With

End Sub