Как добавить фотографии в определенные ячейки листа Excel с компьютера? [закрытый]

это код, который я использую :

Private Sub Image1_Click()
  Range("C1").Select
  Application.Dialogs(xlDialogInsertPicture).Show
End Sub


Private Sub Image2_Click()
  Range("D1").Select
  Application.Dialogs(xlDialogInsertPicture).Show
End Sub

Private Sub Image3_Click()
  Range("E1").Select
  Application.Dialogs(xlDialogInsertPicture).Show
End Sub

Private Sub Image4_Click()
  Range("F1").Select
 Application.Dialogs(xlDialogInsertPicture).Show
End Sub

Private Sub Image5_Click()
  Range("G1").Select
  Application.Dialogs(xlDialogInsertPicture).Show
End Sub

Private Sub Image6_Click()
  Range("K1").Select
  Application.Dialogs(xlDialogInsertPicture).Show
End Sub

Я хочу сделать именно так:

• когда я нажимаю инструменты изображения в моей пользовательской форме, если добавить фотографию, это будет похоже на:(1)
• когда я добавляю две фотографии, это будет автоматически две части и размер будет равен:(2)
• если я добавлю три фотографии, это будет автоматически три части и размер будет равен:(3)

I хочу добавить фото, когда я нажимаю на изображение в моей пользовательской формы они будут apperar в моем workseet ячеек Excel, который я хочу (специфические клетки я хочу). Я особенно хочу добавить фотографии между строками 1-5 и столбцами C-L, и автоматически их размер будет равен.

я использовал этот код, чтобы добавить, что я не могу сделать то, что я сказал с этим:

Когда я использовал этот код фотографии не равны в конкретных ячейках, когда я хочу, и не быть в определенном размере, который я хочу (слева один из них-мои инструменты userform и image, которые я нажимаю, справа - это то, как скрипт добавляет фотографии на лист)

мне нужно исправить их размер автоматически. В сценарии Каца я могу добавить их в определенные ячейки, но если я добавляю фотографию, ее размер не заполняет ячейки, которые я хочу, или если я добавляю две фотографии, не заполняют ячейки автоматически, которые я хочу . В итоге этот скрипт добавляет фотографии в ячейку и размер, который я написал в скрипт . Не исправлять их автоматически в конкретные ячейки как равные .
(Хочу сделать как первую фотографию но могу по этому скрипту вторую фотографию)

Private Sub Image1_Click()
Dim fileName1 As Variant
fileName1 = Application.GetOpenFilename(filefilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Choose picture", MultiSelect:=False)
    If fileName1 = False Then
    'if cancel pressed
    Exit Sub
Else
ActiveWorkbook.Sheets("Coursebooking").Select
Range("A4").Select 'choose your start range
Dim picture1 As Object
Set picture1 = ActiveWorkbook.Sheets("Coursebooking").Pictures.Insert(fileName1)
With picture1
    .Top = Range("A4").Top 'set as needed
    .Left = Range("A4").Left 'set as needed
    .Width = 600 'set as needed
    .Height = .Width * 3 / 4 'set as needed
End With
End If
End Sub