Excel VBA - вставить изображение (используя диалоговое окно) в определенную ячейку
Так что я много раз просматривал здесь и различные веб-сайты на сайтах, но мне трудно найти ответ. Я также не самый опытный пользователь VBA.
В основном, что мне нужно: при нажатии кнопки появляется диалоговое окно «Вставить изображение», пользователь выбирает один файл изображения, и изображение должно быть вставлено в ячейку B2. В идеале я хотел бы, чтобы размер этого изображения был таким, чтобы он был не длиннее X и не выше Y.
Пока это мой код (который выдает «ошибку времени выполнения 424» и указывает на строку TextBox1.Value). Любые предложения / улучшения всегда приветствуются!
Sub ChangeImage()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.ButtonName = "Submit"
.Title = "Select an image file"
.Filters.Clear
.Filters.Add "JPG", "*.JPG"
.Filters.Add "JPEG File Interchange Format", "*.JPEG"
.Filters.Add "Graphics Interchange Format", "*.GIF"
.Filters.Add "Portable Network Graphics", "*.PNG"
.Filters.Add "Tag Image File Format", "*.TIFF"
.Filters.Add "All Pictures", "*.*"
If .Show = -1 Then
TextBox1.Value = .SelectedItems(1)
Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.Picture = LoadPicture(.SelectedItems(1))
Else
MsgBox ("Cancelled.")
End If
End With
End Sub
Спасибо!
-А