Slet autofigur

ActiveWorkbook.Sheets(1).Shapes(1).Delete

hvis der kun er den samme på ark 1

Der er indtil flere figurer i området a12:y30. Jeg vil gerne bare kunne sætte slettekode ind i eksisterende makro.

er det alle autofigurer på arket som skal slettes ?

Der er indtil flere figurer på arket. Nogle af figurerne må slettes, nemlig i området a12:y30

mit bedste bud lige nu

Sub marker()
For Each Sh In Sheets("Ark1").Shapes
Sh.Select
valg = MsgBox(Sh.Name, vbYesNo, "Skal denne slettes ?")
If valg = vbYes Then Sh.Delete
Next
End Sub

Kan jeg ikke undgå MsgBox, da jeg ønsker automatik i at alle figurer i området a12:y30 slettes?
Alle andre figurer udenfor området må ikke slettes!

det kræver at man kender navne på dem der skal slettes

denne viser navne på figurer i arket:
Sub tst()
For t = 1 To Sheets(1).Shapes.Count
MsgBox ("") & Sheets(1).Shapes(t).Name
Next
End Sub

så kan du slette det med denne ved at indsætte de rigtige navne

Sub nyMark()
Sheets("Ark1").Shapes.Range(Array("AutoShape 30", "AutoShape 31", "AutoShape 32")).Delete
End Sub

Det er åbenbart ikke så ligetil.
Hvad navn angår ved jeg ikke hvilket navn figuren har.
Jeg bruger indbygget autofigur (den samme figur (en blokpil)) 12 gange til forklaring af en tekst/udregning.

du kunne evt. markere dem manuelt via CTRL og taste Delete

Arket er til undervisningsbrug, så derfor må brugeren ikke manuelt kunne slette pilene. Pilene bliver hentet andetsteds i arket, som brugeren ikke ser. Pilene indsættes i området a12:y30 (placering afhængig alt efter hvilken beregning brugeren ønsker at foretage.
Området brugeren ser skal derfor kunne nulstilles (slettes)

Måske kan jeg komme videre, da jeg kan se at hver gang jeg skal kopiere originalautofiguren så får kopien et nyt navn fortløbende som Autofigur2, Autofigur3 osv.
Originalen bibeholder naturligvis sit navn som Autofigur1 og så må jeg kunne slette kopierne ved at slette fra og med Autofigur2,Autofigur3 osv..... , ..
men automatikken hvor ligger den?

hvad mener du med automatikken ?

Ok, jeg hopper til.

En shape har en tip og en left værdi, det har celler også, så man finder dem ned disse værdier.

Her tjekker jeg at toppen ikke er højre oppe end [A12] og at den ikke er under [Y31], samtidig må left ikker være forbi [y30]

sub Makro1()
    For Each sh In ActiveSheet.Shapes
            If sh.Top < [y31].Top And sh.Top > [A12].Top And sh.Left < [y30].Left Then sh.Delete
    Next
End Sub

tip = top

[Y30] skal være [Y31]

sådan kabak :-)
legede selv lidt med shape positionen, men vidste
ikke at celler også havde en sådan

Den skal måske trimmes til at passe:
nu skulle alle shapes der er , eller rager ind i området blive slettet.

Sub Makro1()
    For Each sh In ActiveSheet.Shapes
            If sh.Top < [y31].Top And sh.Top + sh.Height > [A12].Top And sh.Left < [Z31].Left Then sh.Delete
    Next
End Sub

Sådan Kabbak!
Det er lige den perfekte løsning.
Jeg takker mange gange for alle jeres bidrag, men det må vel være kabbak som skal have point? Et svar...

et svar ;-))