Saltar al contenido

Marc_Ba

Miembro
  • Unido

  • Última visita

    • 47 downloads
    • Version 1.0.0
    Buenos días a todos, Antes que nada, muchas gracias a los interesados en ayudar a personas Noob en esto de las macros como yo. Normalmente grabo algunas macros y le puedo entender un poco. He estado trabajando en un documento en el cual me permita actualizar la imagen de una hoja al cambiar una celda con una lista, y que ejecutar la macro actualice la imagen. Comencé por crear nombrar a todas las imágenes con el mismo prefijo "IMG_" en una "tabla" . Ahora bien, grabé la macro y le puse "Santander", y me funcionó pero ahora no sé cómo definir una variable del nombre de la imagen ------ Sub ActualizarImg() Range("D1").Select ActiveCell.FormulaR1C1 = "=CONCATENATE(""IMG_"",RC[-1])" Range("D1").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Selection.Copy ActiveSheet.Previous.Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveSheet.Shapes.Range(Array("IMG_Santander")).Select ------------> aquí es donde no sé cómo pudiera cambiarle para que sea el valor de la celda seleccionada. Selection.Copy ActiveSheet.Next.Select Range("D1").Select ActiveSheet.Paste End Sub --------------- Igual subo el documento para que quede más claro: