Excel 2007 - odstranění obrázků společně s řádky

[Chrobak_cz]

Dobrý den,
prosím o radu jak docílit naprosto triviální záležitosti a to smazání obrázků společně s řádkem resp. buňkou, ve které je vložen ?
Nevím, zda nastavit nějaký parametr při samotném vkládaní obrázku či někde v globálním nastavení Excelu, ale vždy při pokusu o odstranění řádku v kterém je obrázek dojde k tomu, že řádky se bez problému odstraní, ale obrázky na nich umístěné se "navrství" na sebe na první řádek, který byl pod těmi smazanými a já poté musím ručně odstraňovat jeden obrázek po druhem. Lze tuto nepříjemnost nějak odstranit a obrázek "svázat" s buňkou, nad kterou je umístěn a poté jednoduše odstranit i s řádkem ?
Děkuji mnohokrát za radu.

[Reklama]

[cmuch]

Vítej na PC-Help

Takto lze odstranit obrázek z vybraného řádku (obrázek musí mít levý horní roh na daném řádku)

Kód: Vybrat vše

Sub DelPicture()

  Dim rngOblast As Range
  Dim shpObjekt As Shape
 
  'Oblasti pro vložení obrázku (vybrany radek) nebo ("A10:B20")
  Set rngOblast = Worksheets("List1").Range(ActiveCell.EntireRow.Address)
 
  With rngOblast.Parent
 
     'pro každý objekt kolekce Shapes na listu
     For Each shpObjekt In .Shapes
 
       'leží horní levý roh objektu v oblasti
       If Not Application.Intersect(shpObjekt.TopLeftCell, rngOblast) Is Nothing Then
         'je objekt typu obrázek
         If (shpObjekt.Type = msoPicture) _
                  Or (shpObjekt.Type = msoLinkedPicture) Then
             'odstranění obrázku
             shpObjekt.Delete
         End If
       End If
     Next shpObjekt
  End With
End Sub