Страницы: 1
RSS
Макрос для копирования картинок в ячейку с автоподстройкой размера, Макрос для копирования картинок в ячейку с автоподстройкой размера
 
Добрый день, нужна помощь с макросом (сам макрос взят из данного форума), в целом меня удовлетворяет его работа но возможно кто-нибудь сумеет его немного доработать. Необходимо доработка, в части возможности установки различного диапазона ячеек для вставки (например диапазон 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

Цена работы по договорённости.
 
можно конечно все поправить, написал в личные
Спасибо
 
Работа выполнена
 
Сами сделали, либо кто то с форума "помог" ?
Спасибо
Страницы: 1
Наверх