Reemplazar imágenes de cuadro de texto
Al insertar la imagen me queda seleccionada y me parece perfecto, aprovechando eso y otra vez usando el grabado de macro
Copie la imagen agregada con la macro que me facilito, y lo pegue 40 veces que es lo que necesito quedando así los datos :
Sub Macro5()
'
' Macro5 Macro
'
'
Selection.Copy
Range("C45:C46").Select
ActiveSheet.Paste
Range("C83:C84").Select
ActiveSheet.Paste
Range("C121:C122").Select
ActiveSheet.Paste
Range("C159:C160").Select
ActiveSheet.Paste
Range("C197:C198").Select
ActiveSheet.Paste
Range("C235:C236").Select
ActiveSheet.Paste
Range("C273:C274").Select
ActiveSheet.Paste
Range("C311:C312").Select
ActiveSheet.Paste
Range("C349:C350").Select
ActiveSheet.Paste
Range("C387:C388").Select
ActiveSheet.Paste
Range("C425:C426").Select
ActiveSheet.Paste
Range("C463:C464").Select
ActiveSheet.Paste
Range("C501:C502").Select
ActiveSheet.Paste
Range("C539:C540").Select
ActiveSheet.Paste
Range("C577:C578").Select
ActiveSheet.Paste
Range("C615:C616").Select
ActiveSheet.Paste
Range("C653:C654").Select
ActiveSheet.Paste
Range("C691:C692").Select
ActiveSheet.Paste
Range("C729:C730").Select
ActiveSheet.Paste
Range("C767:C768").Select
ActiveSheet.Paste
Range("C805:C806").Select
ActiveSheet.Paste
Range("C843:C844").Select
ActiveSheet.Paste
Range("C881:C882").Select
ActiveSheet.Paste
Range("C919:C920").Select
ActiveSheet.Paste
Range("C957:C958").Select
ActiveSheet.Paste
Range("C995:C996").Select
ActiveSheet.Paste
Range("C1033:C1034").Select
ActiveSheet.Paste
Range("C1071:C1072").Select
ActiveSheet.Paste
Range("C1109:C1110").Select
ActiveSheet.Paste
Range("C1147:C1148").Select
ActiveSheet.Paste
Range("C1185:C1186").Select
ActiveSheet.Paste
Range("C1223:C1224").Select
ActiveSheet.Paste
Range("C1261:C1262").Select
ActiveSheet.Paste
Range("C1299:C1300").Select
ActiveSheet.Paste
Range("C1337:C1338").Select
ActiveSheet.Paste
Range("C1375:C1376").Select
ActiveSheet.Paste
Range("C1413:C1414").Select
ActiveSheet.Paste
Range("C1451:C1452").Select
ActiveSheet.Paste
Range("C1489:C1490").Select
ActiveSheet.Paste
End Sub
en caso que de querer remplazar la imagen pegada en los 40 rangos utilice :
Sub Eliminarseleccion()
Selection.Delete
End Sub
Pero solo queda seleccionada (y en caso de que ninguna quede seleccionada, no se podría eliminar nada) la ultima imagen pegada y por lo tanto solo se elimina esa.
Habría alguna manera de que reconozca los cuadros de texto recientemente agregados y poder eliminarlos todos. No lo hago por rango ya que se eliminaría el contenido de mis celdas, si no lo estoy molestando mucho con esas modificaciones terminaría mis inquietudes
1 Respuesta
Sorprendente una sola línea de código puede hacer eso y uno complicandose, para excluir qué se borren las imágenes desde la columna " P" hacia adelante como se podría hacer?, así no me borra mis botones también, muchas gracias Dante Amor, me esta ayudando bastante
De esta forma
Sub Borrar_Imagenes()
'Por.Dante Amor
For Each img In ActiveSheet.DrawingObjects
If img.Left >= Columns("P").Left Then
img.Select
Selection.Delete
End If
Next
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
