MS Word – smazání všech objektů

Můžeš použít jednoduché makro (VBA), které odstraní všechny objekty (např. ikony, obrázky, tlačítka) z listu:

 Postup:

1. Otevři Excel.
2. Stiskni ALT + F11 pro otevření editoru VBA.
3. V menu klikni na Insert > Module.
4. Vlož následující kód:

Sub SmazatVsechnyObjekty()
    Dim obj As Object
    For Each obj In ActiveSheet.Shapes
        obj.Delete
    Next obj
End Sub

Co to udělá:

• Smaže všechny objekty na aktuálním listu – včetně ikon, obrázků, tlačítek, grafických prvků.
• Pokud chceš být opatrnější a mazat jen obrázky s odkazy, můžu upravit kód tak, aby kontroloval typ objektu nebo přítomnost odkazu.

Případně je možné, abychom makrem kontrolovali, zda objekt obsahuje hypertextový odkaz:

Sub SmazatObjektySHypertextovymOdkazem()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoPicture Or shp.Type = msoLinkedPicture Or shp.Type = msoOLEControlObject Then
            If shp.Hyperlink.Address <> "" Then
                shp.Delete
            End If
        End If
    Next shp
End Sub

Co makro dělá:

• Projde všechny objekty na aktivním listu.
• Zkontroluje, zda mají hypertextový odkaz (Hyperlink.Address <> "").
• Pokud ano, smaže je.
• Neodstraní objekty bez odkazu (např. dekorativní obrázky nebo tlačítka bez funkce).

Jak makro spustit:

1. Otevři Excel.
2. Stiskni ALT + F11 pro otevření editoru VBA.
3. Vlož nový modul: Insert > Module.
4. Vlož kód výše.
5. Stiskni F5 nebo klikni na Run.