Insertar imagen .jpg en una celda

[cserrano]

Buenas tardes! Quiero insertar una imagen en formato JPG si se cumple una condición, tengo una celda donde me arroja un porcentaje, a lo cual debido a ese porcentaje me aparezca una imagen .jpg a lo que pretendo tener 3 imágenes 0-50% muestra img01.jpg 51-70% muestra img02.jpg y 71-100% muestra img03.jpg

[chkenshin]

aca tienes un excelete archivo hecho por el maestro MACRO ANTONIO, lo puedes adapatar a tus necesidades.

Tema

[Antoni]

Te dejo estas macros a insertar en la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then   'Dirección del porcentaje

   If Not Target > 50 Then

      Insertar ThisWorkbook.Path & "\img01.jpg"

   ElseIf Not Target > 70 Then

      Insertar ThisWorkbook.Path & "\img02.jpg"

   ElseIf Not Target > 100 Then

      Insertar ThisWorkbook.Path & "\img03.jpg"

End If

End Sub

'----------------------------------------------------------------------------------

Private Sub Insertar(Imagen As Variant): On Error Resume Next

Lugar = "B1"                               'Dirección de la imagen

ActiveSheet.Shapes("Imagen").Delete        'Elimina imagen anterior

ActiveSheet.Pictures.Insert(Imagen).Select 'Inserta la imagen

With Selection.ShapeRange

  .Name = "Imagen"                         'Nombre de la imagen

  .LockAspectRatio = False                 'Permite modificar la imagen

  .Top = Range(Lugar).Top                  'Distancia al borde superior

  .Left = Range(Lugar).Left                'Distancia al borde izquierdo

  .Height = Range(Lugar).Heigh             'Alto de la imagen

  .Width = Range(Lugar).Width              'Ancho de la imagen

End With

End Sub[/CODE]

[color=#ff0000][b]Están sin probar porqué no has subido archivo para ello tal como se te ha indicado al crear esta consulta.

Has obtenido respuesta por ser tu primera consulta, toma nota para las siguientes.[/b][/color]