Кнопка на форме Вставить рисунок из файла VBA Excel

Формулировка задачи:

Помогите пожайлуста довести кнопку до путя)

Private Sub CommandButton4_Click()
Dim datei As String
 
datei = Excel.Application.GetOpenFilename(" Bilddateien (*.jpg), *.jpg")
 
Range("L2").Select
 
Selection.Delete
 
ActiveSheet.Pictures.Insert(datei).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
 
Selection.ShapeRange.Width = 100
 
End Sub

Как сделать так что бы при каждом добавлении рисунка оно вставляло в новую ячейку столбца. как правильно задать диапазон?

Решение задачи: «Кнопка на форме Вставить рисунок из файла VBA Excel»

textual
                            Листинг программы 
                        

                            Sub Макрос1()
    
    Dim shActive As Excel.Worksheet
    Dim myPath As String
    Dim myPictures As Pictures
    Dim myPicture As Picture
    Dim myShape As Excel.Shape
    Dim myTop As Double
    
    '1. Указываем путь, где находится файл-рисунок.
    myPath = "C:\Users\User\Desktop\Chrysanthemum.jpg"
    
    '2. Даём имя листу Excel.
    Set shActive = ActiveSheet
    
    '3. Даём имя объекту "Pictures".
    Set myPictures = shActive.Pictures
    
    '4. Вставляем рисунок и даём имя рисунку.
    Set myPicture = myPictures.Insert(myPath)
    
    '5. Вырезаем рисунок.
    myPicture.Cut
    
    '6. Вставляем рисунок.
    'Обратите внимание, что можно сразу вставить
        'в нужную ячейку.
    shActive.Range("L2").PasteSpecial
    
    '7. Даём имя рисунку.
    Set myShape = shActive.Shapes(shActive.Shapes.Count)
    
    '8. Воздействуем на рисунок.
    myShape.LockAspectRatio = msoTrue
    myShape.Width = 100
    
End Sub
                        