Asignar nombre a un rango de datos guardado como imagen

NAB_20 · el 25 de febrero

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!

LeandroA · el 25 de febrero

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

NAB_20 · el 26 de febrero

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

LeandroA · el 26 de febrero

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.