Buenas tardes,

Tengo una dudilla e invoco a vuestra sabiduría

Tengo un rango de datos que copio y pego como imagen en otra hoja. El tema es que a esa imagen me gustaría poder nombrarla de alguna manera para poder más adelante, utilizando "shapes", trabajar con ella(x ejemplo algo tan simple como borrarla...).

Saludos y gracias!

 

Sub Test()

    Dim oImg As Picture
    

    Call Range("A1:C3").CopyPicture(xlScreen, xlPicture)


    Set oImg = ActiveSheet.Pictures.Paste
    oImg.Name = "MiImagen"
    
    oImg.Left = 0
    oImg.Top = Range("A1:C3").Height
       
    'oImg.ShapeRange  <-- aca lo tratas tal como un shape
        
    MsgBox ActiveSheet.Shapes("MiImagen").Name
End Sub

 

Muchas gracias LeandroA por participar y resolverme la duda.

Me surgen un par de dudas. Por qué utilizas el "call" delante de range ("A1:C3").copyPicture.

Con esta línea de código le estás diciendo donde quieres que lo pegue?  oImg.Left = 0

 oImg.Top = Range("A1:C3").Height

Saludos y gracias!

 

Hace 22 horas, LeandroA dijo:

Sub Test()

    Dim oImg As Picture
    

    Call Range("A1:C3").CopyPicture(xlScreen, xlPicture)


    Set oImg = ActiveSheet.Pictures.Paste
    oImg.Name = "MiImagen"
    
    oImg.Left = 0
    oImg.Top = Range("A1:C3").Height
       
    'oImg.ShapeRange  <-- aca lo tratas tal como un shape
        
    MsgBox ActiveSheet.Shapes("MiImagen").Name
End Sub

 

Hace 12 minutos , NAB_20 dijo:

Muchas gracias LeandroA por participar y resolverme la duda.

Me surgen un par de dudas. Por qué utilizas el "call" delante de range ("A1:C3").copyPicture.

Con esta línea de código le estás diciendo donde quieres que lo pegue?  oImg.Left = 0

 oImg.Top = Range("A1:C3").Height

Saludos y gracias!

 

Hola el uso del call es indiferente si se pone o no, a veces se pone porque se utilizan los paréntesis al final entonces tienes que anteponer el call

 Call Range("A1:C3").CopyPicture(xlScreen, xlPicture)

es lo mismo que esto

 Range("A1:C3").CopyPicture xlScreen, xlPicture

lo del Left y Top era solo un ejemplo, en ese ejemplo oImg.Left = 0 poner la imagen en la izquierda de la hoja y oImg.Top = Range("A1:C3").Height poner la imagen justo debajo del el rango copiado.

Muchas gracias por la respuesta! 

Doy el tema por resuelto!

?