Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Guarda una imagen

David Maidana

New member
Registrado
16 May 2023
Mensajes
7
Buenos tardes estimados, por mucho que piense y busque, no puedo encontrar una macro que simule la siguiente acciones:
1 click derecho sobre la imagen
2 Guardar como Imagen
[ATTACH type="full"...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

  • 1684258884523.webp
    1684258884523.webp
    67,3 KB · Visitas: 14
Solución
El siguiente codigo me soluciono el problema, lo dejo aquí por si alguien lo necesita.

Sub GuardarImagenAltaResolucion3()
Dim NombreArchivo As String
Dim RutaArchivo As String
Dim HojaActual As Worksheet
Dim RangoImagen As Range
Dim Imagen As Picture

' Establecer la hoja actual
Set HojaActual = ActiveSheet

' Establecer el rango que contiene la imagen
Set RangoImagen = HojaActual.Range("D1:D19") ' Cambia esto al rango que contiene tu imagen

' Crear una copia de la imagen en el Portapapeles
RangoImagen.CopyPicture xlScreen, xlPicture

' Crear un nuevo objeto Imagen y pegar la imagen del Portapapeles
Set Imagen = HojaActual.Pictures.Paste

' Solicitar al...
Volver
Arriba