Обновление объектов на листе - добавленных макросом.

[perven1]

Добрый день. Помогите разобраться со скриптом.
Макрос добавляет картинки на лист. Событие Worksheet Change.

Однако если адрес в ячейке меняется - он просто накладывает одну картинку на другую.
Как заставить макрос - не накладывать объекты друг на друга, а просто обновлять объект ?

[Казанский]

удалить текущую картинку (если есть), добавить новую.
В процедуру удобно передавать саму ячейку, а не набор параметров

'код листа

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Cells.Count > 1 Then Exit Sub
  вставить_фото Target
End Sub

'код модуля

Sub вставить_фото(oneCell As Range)  'для офиса после 2003
Dim s As Shape, a$
  On Error Resume Next
  With oneCell
    If Dir(.Value) <> "" Then 'если файл существует
      a = .Offset(1).Address  'адрес ячейки ниже
                              'ищем фигуру, верхний левый угол которой расположен в ячейке ниже...
      For Each s In .Worksheet.Shapes
        If s.TopLeftCell.Address = a Then s.Delete: Exit For '... и удаляем ее
      Next
      .Worksheet.Shapes.AddPicture _
        Filename:=.Value, _
        linktofile:=msoFalse, _
        savewithdocument:=msoCTrue, _
        Left:=.Left, _
        Top:=.Top + 20, _
        Width:=300, _
        Height:=200
    End If
  End With
End Sub

[perven1]

Казанский, все работает. Спасибо.