Excel: macros, eliminar shapes

bicilindro

Titanio
Hola a todos.
El problema es que tengo una hoja de EXCEL con varias shapes: unos buttons y unas lines.
La pregunta es cómo eliminar SOLO las lines?
Intento con la instrucción shapes(i).delete donde "i" es la variable de un bucle que proviene de shapes.count.
Pero no sé más de EXCEL y sus misterios.
La ayuda de EXCEL y la Microsoft me remite a unas estupendas explicaciones sobre clases, tipos y mierduncias de programación de "alto nivel", pero lo único que quería era dibujar un par de rayitas y borrarlas.
No sé si me explico.
Gracias de antemano.
 

wenner

Bronce
Prueba así:

Sub EliminarLineas()
Dim Objeto As Shape

For Each Objeto In ActiveSheet.Shapes
If Objeto.Name Like "*Straight Connector" Then Objeto.Delete
Next Objeto
End Sub

Si no funciona sube un ejemplo.
 

bicilindro

Titanio
Muchas gracias wenner!
Funciona y he aprendido una cosa más.
En mi caso es "*Conector recto".
Ahora tengo que olvidar algo, porque me está desbordando la pila.
 
Arriba