Вставка изображений в объединенные ячейки

[maragva]

Макрос вставляет рисунки в конкретную ячейку А3, а мне необходимо, чтобы рисунки вставлялись в объединенные ячейки, скажем А3:А8, растягиваясь на весь диапазон.
Есть ли решение?

вот вариант вставки, но рисунок не растягивается на объединенную ячейку:

Sub Имя(strFileName As String)
    With ActiveSheet.Pictures.Insert(strFileName).ShapeRange
      .LockAspectRatio = msoFalse
      .Top = ActiveCell.Top
      .Left = ActiveCell.Left
      .Width = ActiveCell.MergeArea.Width
      .Height = ActiveCell.MergeArea.Height
    End With
End Sub

Офис 2007
Файлы прикладываю. Папку закинуть в корень "С"

[Казанский]

Кросс http://www.planetaexcel.ru/forum/ind...ID=1&TID=56145