Есть очень много картинок в соцсети.
Необходимо вписать все эти картинки в одинаковые ячейки (см. вложения)
Если просто нажать копировать картинку, а потом в файле нажимать вставить, то картинка вставляется большая (см. вложения)
Растягивать, сужать каждую вручную очень долго.
Подскажите способ делать это быстро и чтобы картинка сразу принимала нужный размер по ячейкам.
Темы похожие находил, но мои познания не позволяют воспринимать эту информацию
Вот нашел такое, но не знаю как применять и подходит ли мне это
Помогите
| Код |
|---|
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10000")) Is Nothing Then
If ActiveSheet.Paste Then
On Error GoTo 10
With Selection
.ShapeRange.LockAspectRatio = msoFalse
.Width = Target.Width
.Height = Target.Height
End With
End If
End If
10: End Sub |
Скрытый текст |
|---|
 |
