Para Elsa o quien sepa la respuesta
Copie una macro suya y me es de gran utilidad, sirve para eliminar imágenes de una hoja. Quisiera tener una similar, pero que funcione solo con cuadros de texto, si tiene una opción de que solo borre los vacíos mejor.
El código que copie es el siguiente:
Sub EliminaImagenes()
'macro desarrollada por Elsamatilde 26/05/08
'http://galeon.com/aplicaexcel
N = ActiveSheet.Shapes.Count
For i = N To 1 Step -1
'controla el tipo de objeto y elimina si se trata de Picture
On Error Resume Next
ActiveSheet.Shapes(i).Select
If Left(ActiveSheet.Shapes(i).Name, 7) = "Picture" Or Left(ActiveSheet.Shapes(i).Name, 5) = "Image" Then
ActiveSheet.Shapes(i).Delete
End If
Next
End Sub
Desde ahorita muchas gracias por la atención
Atentamente. Jonathan Gutiérrez
El código que copie es el siguiente:
Sub EliminaImagenes()
'macro desarrollada por Elsamatilde 26/05/08
'http://galeon.com/aplicaexcel
N = ActiveSheet.Shapes.Count
For i = N To 1 Step -1
'controla el tipo de objeto y elimina si se trata de Picture
On Error Resume Next
ActiveSheet.Shapes(i).Select
If Left(ActiveSheet.Shapes(i).Name, 7) = "Picture" Or Left(ActiveSheet.Shapes(i).Name, 5) = "Image" Then
ActiveSheet.Shapes(i).Delete
End If
Next
End Sub
Desde ahorita muchas gracias por la atención
Atentamente. Jonathan Gutiérrez
1 Respuesta
Respuesta de Elsa Matilde
1
Aquí te dejo la rutina ajustada para contemplar cuadros de texto vacíos.
Sub EliminaTextbox()
'macro desarrollada por Elsamatilde 10/08/08
'http://galeon.com/aplicaexcel
N = ActiveSheet.Shapes.Count
For i = N To 1 Step -1
'controla el tipo de objeto y elimina si se trata de Picture
On Error Resume Next
ActiveSheet.Shapes(i).Select
If Left(ActiveSheet.Shapes(i).Name, 8) = "Text Box" Then
ActiveSheet.Shapes(i).Select
texto = Selection.Characters.Text
If texto = "" Then
ActiveSheet.Shapes(i).Delete
End If
End If
Next
End Sub
Sub EliminaTextbox()
'macro desarrollada por Elsamatilde 10/08/08
'http://galeon.com/aplicaexcel
N = ActiveSheet.Shapes.Count
For i = N To 1 Step -1
'controla el tipo de objeto y elimina si se trata de Picture
On Error Resume Next
ActiveSheet.Shapes(i).Select
If Left(ActiveSheet.Shapes(i).Name, 8) = "Text Box" Then
ActiveSheet.Shapes(i).Select
texto = Selection.Characters.Text
If texto = "" Then
ActiveSheet.Shapes(i).Delete
End If
End If
Next
End Sub
