В обоих случая рассказывается, как вписать картинку в одну ячейку, а мне нужно именно в диапазон

Большое спасибо, работает без ошибок! Только я указал диапазон С1:Х23 а картинка вставляется в Т1:АС23. Отчего такой сдвиг?

Там просто небольшие расчеты идут

Скрытый текст

Код ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Sub рассчет() Dim a As Single, b1 As Single, b2 As Single, pl As Single, s As Single, s1 As Single, s2 As Single Dim zz As Integer, f As String, tip As String Dim rng As Range, shp As ShapeRange   Set rng = Range("D1:X23")   tip = Worksheets(1).Cells(28, 5) For zz = 2 To 50     If tip = Worksheets(2).Cells(zz, 1) Then     f = Worksheets(2).Cells(zz, 2) GoTo nashel                 End If             Next zz nashel: ActiveSheet.Pictures.Delete ActiveSheet.Cells(1, 3).Activate 'ActiveSheet.Pictures.Insert ("D:\slep\" & f & ".png") Set shp = ActiveSheet.Pictures.Insert("D:\slep\" & f & ".png").ShapeRange shp.LockAspectRatio = False            shp.Left = rng.Left     shp.Top = rng.Top            shp.Height = rng.Height     shp.Width = rng.Width     a = Worksheets(1).Cells(30, 11) b1 = Worksheets(1).Cells(32, 11) b2 = Worksheets(1).Cells(34, 11) pl = Worksheets(1).Cells(36, 11) s1 = a * b2 / 1000000 s2 = ((a - 2 * pl) * (b1 - b2)) / (2 * 1000000) s = s1 + s2 Worksheets(1).Cells(40, 11) = s     End Sub

Убрал все - все равно вставляет картинку не в том диапазоне. Конечный диапазон оказывается как бы сдвинутым на 17 столбцов

Приложил файлы, код на втором листе модуля, к нему привязана кнопка "Рассчитать".
На втором листе список и названия картинок. Мне нужно сделать так, чтобы при изменении ячейки E28 автоматически вставлялась соответствующая картинка в область С1:Х23.
Картинки не получилось приложить - слишком большой объем. Нужно на локальном диске D создать папку Slep и туда поместить картинку, для того чтобы все работало, назовите ее kupec или посмотрите в соответствии со списком на втором листе.

ESTerekhov, нашел причину ошибки. Оказывается, если код находится в модуле листа и не указывать лист, то подразумевается не активный лист, а лист, в котором находится код.
Явно указывайте в коде лист:

код

Код ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub AdjustImage()           Dim rng As Range, shp As ShapeRange            Set rng = ActiveSheet.Range("D1:X23")            'Здесь укажите путь и имя картинки     Set shp = ActiveSheet.Pictures.Insert("C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg").ShapeRange            shp.LockAspectRatio = False            shp.Left = rng.Left     shp.Top = rng.Top            shp.Height = rng.Height     shp.Width = rng.Width        End Sub

Спасибо, все работает теперь)))

Можно мне еще спросить про картинки тут, чтобы не плодить новые темы?
1) У меня есть выпадающий список (в файле ячейка E28), как сделать так, чтобы макрос запускался отдельно при выборе нового значения из этого списка?
2) Можно ли запрограммировать перемещение картинки по листу по условию?

Пробую вот таким вот образом - игнорит. Ошибку не выдает, просто ничего не происходит

Скрытый текст

Код ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("E28")) Is Nothing And Range("E28").Value <> "" Then Set rng = ActiveSheet.Range("C1:X23")           tip = Worksheets(1).Cells(28, 5)                     For zz = 2 To 50                         If tip = Worksheets(2).Cells(zz, 1) Then                         f = Worksheets(2).Cells(zz, 2)                         GoTo nashel                         End If                     Next zz nashel:     ActiveSheet.Pictures.Delete     ActiveSheet.Cells(1, 3).Activate     Set shp = ActiveSheet.Pictures.Insert("D:\slep\" & f & ".png").ShapeRange     shp.LockAspectRatio = False                shp.Left = rng.Left         shp.Top = rng.Top                shp.Height = rng.Height         shp.Width = rng.Width End If End Sub

По поводу второго вопроса, как двигать конкретные изображения, если их будет несколько на листе?

Подскажите, пожалуйста еще один момент. Как при помощи VBA поместить только что вставленную картинку на задний или передний план?

Никак не получается сделать так, чтобы картинка сразу вставлялась на задний или на передний план.
Может есть функция какая? Подскажите, пожалуйста

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

уже не ругается, я немного по другому сделал)))
Я, возможно, нелогичен, но у меня теперь обратный вопрос: как сделать так, чтобы программа удаляла все вставленные изображения из определенного диапазона ячеек