Sub InsertPic(Optional ByVal rngPic As Range, Optional pathPic As String, Optional ByVal namePic As String)
If rngPic Is Nothing Then Set rngPic = ActiveCell
If pathPic = "" Then pathPic = rngPic.Value
On Error Resume Next
With rngPic.Parent.Pictures.Insert(pathPic)
If namePic <> "" Then .Name = namePic
.Top = rngPic.Top
.Height = rngPic.Height
End With
On Error GoTo 0
End Sub
Sub InsertPictures()
InsertPic
End Sub
Можно ли как то сделать что бы выделить диапозон ячеек с сылками и вставлялось несколько картинок в эти ссылки, данный макрос работает с одной ссылкой
Sub InsertPic2()
Dim rngSelect As Range, rngPic As Range
Dim pathPic As String
Set rngSelect = Selection
For Each rngPic In rngSelect
pathPic = rngPic.Value
On Error Resume Next
With rngPic.Parent.Pictures.Insert(pathPic)
.Top = rngPic.Top
.Height = rngPic.Height
End With
On Error GoTo 0
Next rngPic
Set rngSelect = Nothing
End Sub
Добавил это сейчас в макрос, он завис потом вставил огромные картинки, есть возможность что бы я выставил сам размер ячейки, и уже фото подставилось под эти размеры?
Евген1788, свои сообщения можно дополнять, а не беседовать с собой.
Почему у Вас код уходит в debug и почему картинки большие - не скажу. Обход ошибки в макросе вписан. Размеры картинки должны подгоняться под размеры ячеек (сообщение №7). Возможно, где-то ошибка, я не тестировал показанное. Покажите архив: папка, там книга небольшого объема с макросом и правильными ссылками на картинки, рядом пара картинок