Добрый день, нужна помощь с макросом (сам макрос взят из данного форума), в целом меня удовлетворяет его работа но возможно кто-нибудь сумеет его немного доработать. Необходимо доработка, в части возможности установки различного диапазона ячеек для вставки (например диапазон A5:C17 и I18:L30 и т.д.) сейчас же можно установить только лишь один диапазон (Пример) - I19:L54, но в данный диапазон попадают ячейки которые необходимо защитить от вставки (I31:L34). Вторая проблема заключается в том что при копировании картинки в данный диапазон ячеек она вставляется автоматически при нажатии на саму ячейку а не при нажатия сочетания клавиш Ctrl+V, что приводит к постоянным ложным срабатыванием. Можно ли это исправить.
Сам макрос:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("I19:L54")) 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
Цена работы по договорённости.
Сам макрос:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("I19:L54")) 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
Цена работы по договорённости.