figuur verwijderen met code

[jammi]

Beste,

Ik heb een vraag omtrent het verwijderen van een afbeelding (shape 11)

Ik heb een form dat wordt opgeslagen dmv een macro, nu wil ik in deze macro het volgende toevoegen.

"ActiveSheet.Shapes.Range(Array("Rounded Rectangle 11")).Delete"

Dit werkt prima, maar indien het figuur reeds verwijderd is loopt de macro vast.
Heeft hier iemand een oplossing voor.

Alvast bedankt

 

[JEC.]

Die shape heet altijd shape 11?

 

[jammi]

Ja het figuur heet altijd "Rounded Rectangle 11", de naam wijzigt niet.

 

[JEC.]

Bvb

Sub jvr()
  On Error Resume Next
  ActiveSheet.Shapes("Rounded Rectangle 11").Delete
  On Error GoTo 0
End Sub

 

[jammi]

Hallo JVeer

Dit werkt inderdaad prima.
Bedankt alweer :thumb:

Gr