Borrar dibujos y pegar dibujos.

No necesitas borrar/copiar imágenes (o dibujos).




Puedes insertar cada imagen en un control de formulario ActiveX y (sin necesidad de tener las imágentes en la hoja)
cargas las imágenes con algo similar a:




Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$J$1" Then

Image1.Picture = LoadPicture(Cells([J1]))

Image2.Picture = LoadPicture(Cells([J1]))

Image3.Picture = LoadPicture(Cells([J1]))

Image4.Picture = LoadPicture(Cells([J1]))

' . . .

End If

End Sub




Estoy suponiendo que en J1 tienes algo similar a:




C:\Windows\Grano de café.bmp




Cuando quieras cambiar de imagen, te basta con escribir en J1 la ruta de la nueva imagen.



Saludos desde Tenerife: Antonio.

******************************************

"GRIEGO59" escribió en el mensaje
news:

Hola!
Tengo una hoja de Excel que uso para imprimir 70 etiquetas en una página.

La hoja contiene 70 etiquetas de identificación de mercancía y cada etiqueta
tiene un dibujo insertado.

El dibjo es el mismo en cada na de las 70 etiquetas.

A veces me toca borrar los dibujos para cambiarlos por otros, yo los
selecciono uno por uno manteniendo presionado "Ctrl"y luego suprimir. A veces
se me hace largo, hay otra forma de borrarlos todos de una sola vez? hay una
forma de seleccionarlos todos para borrarlos sin borrar las fórmulas de las
etiquetas?

Tambien para pegarlos uso "Ctrl + C" y luego "Ctrl + V" por cada uno de los
70 dibujitos que son todos iguales, pero no se como hacerlo por grupo, saben
como se hace?

Dario.

Muchas gracias
Funciona bien
Dario

"AnSanVal" escribió:

No necesitas borrar/copiar imágenes (o dibujos).




Puedes insertar cada imagen en un control de formulario ActiveX y (sin necesidad de tener las imágentes en la hoja)
cargas las imágenes con algo similar a:




Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$J$1" Then

Image1.Picture = LoadPicture(Cells([J1]))

Image2.Picture = LoadPicture(Cells([J1]))

Image3.Picture = LoadPicture(Cells([J1]))

Image4.Picture = LoadPicture(Cells([J1]))

' . . .

End If

End Sub




Estoy suponiendo que en J1 tienes algo similar a:




C:\Windows\Grano de café.bmp




Cuando quieras cambiar de imagen, te basta con escribir en J1 la ruta de la nueva imagen.



Saludos desde Tenerife: Antonio.

******************************************

"GRIEGO59" escribió en el mensaje
news:
> Hola!
> Tengo una hoja de Excel que uso para imprimir 70 etiquetas en una página.
>
> La hoja contiene 70 etiquetas de identificación de mercancía y cada etiqueta
> tiene un dibujo insertado.
>
> El dibjo es el mismo en cada na de las 70 etiquetas.
>
> A veces me toca borrar los dibujos para cambiarlos por otros, yo los
> selecciono uno por uno manteniendo presionado "Ctrl"y luego suprimir. A veces
> se me hace largo, hay otra forma de borrarlos todos de una sola vez? hay una
> forma de seleccionarlos todos para borrarlos sin borrar las fórmulas de las
> etiquetas?
>
> Tambien para pegarlos uso "Ctrl + C" y luego "Ctrl + V" por cada uno de los
> 70 dibujitos que son todos iguales, pero no se como hacerlo por grupo, saben
> como se hace?
>
> Dario.