Borrar solo las autoformas rectángulos

Tengo una hoja con botones, dibujos, autoformas y rectángulos y necesitaría borrar SOLO las autoformas rectángulos(Rectangle). Usando siguiente instrucción me borra todo y no me interesa:

Dim autoforma As Shape
For Each autoforma In ActiveSheet.Shapes

autoforma.Delete
Next

1 respuesta

Respuesta
2

Intente:

Dim autoforma As Shape
For Each autoforma In ActiveSheet.Shapes
    If autoforma.AutoShapeType = msoShapeRectangle Then autoforma.Delete
Next

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas