Пробовал дома с paint результат тот же, а вот с фотошопом работает как нужно.
Но с другим редактором кроме paint работать нет возможности.

Копирую часть картинки из программы Paint, выделяю нужные ячейки, нажимаю в екселе кнопку на этот макрос и картинка принимает размер выделенной области, но при этом позиционируется в верхний левый угол ячейки A1, но если эту картинку уже вставленную скопировать снова, уже из екселя, то дальше она вставляется как нужно, в любую ячейку и их количество.
p.s. Файл не прикладываю он полностью пустой только макрос и стандартного размера ячейки.

1 2 3 4 5 6 7 8 9 10 11 12

Sub InsPicture()  Dim w, h  With Selection    w = .Width: h = .Height  End With  If ActiveSheet.Paste Then    With Selection      .ShapeRange.LockAspectRatio = msoFalse      .Width = w: .Height = h    End With  End If End Sub

Уважаемые форумчане, подскажите вдруг кто сталкивался с такой аномалией.
Сперва этот код работал отлично, но потом начал привязывать картинку к левому верхнему углу ячейки A1 хоть и по размерам выделенной области, в чём может быть загвоздка?
p.s. проверял на совершенно пустом файле вновь созданном, Лист Microsoft Excel (1).xlsm вставляет, с нужными размерами, но не в выделенную область.

Огромное Спасибо!!!

Уважаемые гуру VBA, подскажите как данный код заставить работать от кнопки и что бы картинка вставлялась в выделенный мышкой диапазон, метод научного тыка не сработал, а изучение VBA на очень начальном уровне.