Centrar Imagen en celda excel

[rishart]

Hola amigos este post es para solicitar de su ayuda.

existe alguna manera de que al compiar una imagen a una celda mediante el codigo siguiente este se copie centrado en la celda?

es decir este es el codigo que utilizo para copiar la imagen de celda a celda:

Código:

For Each myImg In ActiveSheet.Shapes
  If myImg.TopLeftCell.Address = "$A$1" Then
    With myImg.Duplicate
      .Left = Target.Left: .Top = Target.Top
    End With
    Exit For
  End If
Next

pero me gustaria saber si hay una forma que al copiar la imagen esta pase a la celda pero centrada.


muchas gracias por el apoyo y ojala puedan ayudarme.

saludos!!

[mrocf]

Hola! rishart. Tan solo reemplaza:

.Left = Target.Left: .Top = Target.Top

por:
.Left = Target.Left + (Target.Width - .Width) / 2
.Top = Target.Top + (Target.Height - .Height) / 2

Saludos, Cacho R.