MS Excel

A čo tak klávesa DEL? Prípadne Delete?citovat

Případně, jestli je tam tvarů víc, tak:
karta Domů > ikona Najít a vybrat > Přejít na-jinak
> Objekty > OK. Pak najednou smazat - Delete.
Edit: Pardon, předchozí příspěvek byl rychlejší. Ale i tak vyzkoušejtecitovat

Podľa obrázku je to objekt, ktorý je v editovacom móde (možno ho cez Delete mazať). Je ale celkom možné, že týchto objektov je tam NA SEBE veľa a preto sa jedno Delete nepostará o očividné vymazanie. Nezobrazil si v obrázku Pole názvov, kde by mal byť objekt pri vybratí idetifikovaný.
Dve možnosti zistenia či zbavenia sa objektov: stlač klávesu F5, vyber Jinak a vyber Objekty. Tabulátorom sa presúvaj postupne po objektoch a v poli názvov uvidíš koľko ich je.
Skús použiť nasledovnú procedúru na výpis objektov a podľa toho zvoľ ďalší postup:

Sub Lister_Objets()
Application.ScreenUpdating = False
Set Zone = ActiveSheet
On Error Resume Next
Nomfeuil = "Liste objets de " & ActiveSheet.Name
Worksheets.Add.Name = Nomfeuil
With Sheets(Nomfeuil)
.UsedRange.Clear
.[A1] = "Meno objektu"
.[B1] = "Typ objektu"
.[C1] = "Makro"
.[D1] = "Text"
.[E1] = "Adresa"
.[F1] = "Zľava"
.[G1] = "Zhora"
.[H1] = "Šírka"
NbObjet = Zone.DrawingObjects.Count
For Each objet In Zone.DrawingObjects
Cpte = Cpte + 1
Application.StatusBar = "Récup a " & Format(Cpte / NbObjet, "0%") & " réalisée"
lgn = .[A65536].End(xlUp).Row
.[A1].Offset(lgn) = objet.Name
.[B1].Offset(lgn) = TypeName(objet)
.[C1].Offset(lgn) = objet.OnAction
.[D1].Offset(lgn) = objet.Characters.Text
If .[D1].Offset(lgn) = "#N/A" Then .[D1].Offset(lgn).Value = ""

.[E1].Offset(lgn) = objet.TopLeftCell.Address
.[F1].Offset(lgn) = objet.Left
.[G1].Offset(lgn) = objet.Top

.[H1].Offset(lgn) = objet.Width
Next
Application.StatusBar = False
.Columns("A:H").AutoFit
.Activate
End With

Exit Sub
End Subcitovat