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
Estimad@s buen día,
Tengo una consulta estoy trabajando en un Proyecto con base de datos, y tengo una consulta haber si me pueden ayudar con ello:
Tengo una lista con resultados que se extraen de una tabla, lo que quiero es que cuando valla marcando cada checkbox que esta en el orden de la lista, se valla agregando a las posiciones(textbox) si en caso no marcara un checkbox deje en blanco la posicion de acuerdo a su orden.
adjunto un ejemplo de formulario.
Muchas gracias por el apoyo.
Saludos Cordiales,
formulario_Muestra2.xlsm
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!