Como borrar, eliminar o similar las siguientes "imágenes"

[gonzalomadrid]

Como borrar, eliminar o similar lo señalado con las flechas en rojo. Borrar solo borra en contenido de la celda pero no ese "puntito" . Eliminar la columna no vale de nada. Los tres puntitos se reproducen en la columna de al lada. Una magia. ¿Como se quitan? no me preguntes como han llegado hasta ahí, lo ignoro.

Gracias

[Gerson Pineda]

Hola

Presiona F5/Especial.../Objetos y Aceptar, luego "suprimir"

[gonzalomadrid]

MIl gracias  Gerson Pineda. Funciona a la perfección. Nunca lo hubiera descubierto yo.
Necesitaría que no me seleccionara todos los objetos de la hoja de excel sino solo los que yo le diga o dentro de un rango concreto. Lo digo porque he visto que incluso me selecciona gráficos o imágeners que he me tido intencionadamente.  ¿Como borrar solo lo que yo quiero?

 

[Gerson Pineda]

Hola

hace 4 horas, gonzalomadrid dijo:

Necesitaría que no me seleccionara todos los objetos de la hoja de excel sino solo los que yo le diga o dentro de un rango

Prueba este procedimiento VBA

Previamente selecciona el rango y córrelo 

Sub EliminarAutoformas()

    Dim sh As Shape
    Dim ws As Worksheet
    Set ws = ActiveSheet
    For Each sh In ws.Shapes
        If Not Intersect(sh.TopLeftCell, Selection) Is Nothing Then sh.Delete
    Next sh
    
End Sub

 

[gonzalomadrid]

Gracias Gerson Pineda.

No tengo muchas tablas com VBA pero voy a intentarlo en una hoja copia por si estropeo algo.  

Sub EliminarAutoformas()

    Dim sh As Shape
´ definimos sh como shape (forma), ignoro qué es forma aquí.
    Dim ws As Worksheet
    Set ws = ActiveSheet
' ws toma el valor de nuestra hoja en curso
    For Each sh In ws.Shapes
'para cada "shape" en ws.shapes. Para cada shape en, no se qué es ws.shapes.
        If Not Intersect(sh.TopLeftCell, Selection) Is Nothing Then sh.Delete
 ' Esto ni idea qué hace   
Next sh
' va a la siguiente "shape" 
    
End Sub

He puesto  ahí,  para intentar entenderlo, el comentario de lo que hace cada línea, con la pregunta correspondiente para ti. Leelo porfa.

Gracias.

 

 

 

Gracias, ya te contaré. 

[Gerson Pineda]

Te lo comento

Sub EliminarAutoformas()
	
	'Declarar variables
    Dim sh As Shape
    Dim ws As Worksheet
	
	'Activar variable 
    Set ws = ActiveSheet

	'Recorrer las formas de la hoja
    For Each sh In ws.Shapes
		'Eliminar las formas donde hay rango seleccionado
        If Not Intersect(sh.TopLeftCell, Selection) Is Nothing Then sh.Delete
    Next sh
    
	'Desactivar variable
	Set ws = Nothing

End Sub

 

[Israel Cassales]

Saludos cordiales a todos.

Como propuesta adicional y haciendo otros pasos (no tan inmediatos como la propuesta de Gerson), además pensando en futuras vistas de esta consulta se puede recomendar la selección de objetos "manual". Esto permitirá seleccionar solamente los objetos que deseamos eliminar "sombreando".

En la cinta de opciones hay que personalizar y agregar el comando "seleccionar objetos"

[gonzalomadrid]

Agregar seleccionar objetos a la Ribbon supone hacerlo a un grupo personalizado.No puede hacerse a uno existente. ¿o si?

Una vez Agregado Seleccionar objeto. No se como usarlo Le doy RIBBON>GRUPO PERSONALIZADO>Seleccionar objetos. Ahora voy al objeto y no se si lo he seleccionado o no. Ymenos aun puedo borrarlo.. Lo mismo que antes de empezar. 

[Israel Cassales]

Extraño, se supone que debería servir. Por la recomendación de Gerson y la confirmación de que sí borrabas los objetos pero querías seleccionar por tu cuenta para no eliminar todo pensé que te ayudaría. En ese caso te recomiendo usar el código que te mando, éste sirve de manera correcta, solo toma en cuenta tener seleccionadas las celdas donde se encuentren los objetos.

Saludines

[DiegoPC]

Hola

Se puede seleccionar los objetos haciendo un arrastre del ratón con la opción "Seleccionar objetos" o se puede ver un listado de ellos en el "panel de selección", ambos métodos podrían ser trabajosos dependiendo de la cantidad y disposición de las formas.