Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Corrección código

13/09/2009 - 11:16 por José Rafael | Informe spam
Ayuda Hacer una pregunta
Alguien me puede corregir el código? Me da error (Error 438 en tiempo de
ejecución "El objeto no admite la propiedad o metodo") y no sé que falta
o sobranecesito que el bucle me borre los botones que existan (menos de
50)

For y = 1 To 50
If ActiveSheet.Shapes("Button " & y).noexist Then y = y + 1
ActiveSheet.Shapes("Button " & y).Select

Selection.Delete
y = y + 1
Next
Saludos y gracias
José Rafael
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 pepe
13/09/2009 - 16:43 | Informe spam
si quieres borrar todos los botones

Dim Hoja As Worksheet

Set Hoja = Worksheets("Hoja1")
Hoja.Shapes.SelectAll
Selection.Delete






"José Rafael" escribió en el mensaje de noticias
news:
Alguien me puede corregir el código? Me da error (Error 438 en tiempo de
ejecución "El objeto no admite la propiedad o metodo") y no sé que
falta o sobranecesito que el bucle me borre los botones que existan
(menos de 50)

For y = 1 To 50
If ActiveSheet.Shapes("Button " & y).noexist Then y = y + 1
ActiveSheet.Shapes("Button " & y).Select

Selection.Delete
y = y + 1
Next
Saludos y gracias
José Rafael

Preguntas similares

 

Busqueda sugerida :