Quando você diz que "editou" eu estou supondo que você alterou esse trecho de código:
With oImage
.Left = oCell.Left
.Top = oCell.Top
.Width = oCell.Width
.Height = oCell.Height
End With
Para isso:
With oImage
.Left = oCell.Left
.Top = oCell.Top
.Width = oCell.Width / 1.2
.Height = oCell.Height / 1.2
End With
Ou seja, na prática você reduziu o tamanho da imagem. Assim, para centralizar a imagem na célula (sem se preocupar com quanto de fator foi aplicado) o jeito mais fácil é você adicionar às coordenadas do topo (Left
e Top
) a metade do tamanho da célula e diminuir a metade do tamanho da imagem (que precisa então ser calculado antes, conforme o fator que você está aplicando). Tente assim então:
factor = 1.2 ' Separei em uma variável só pra deixar claro que você pode
'mudar sem precisar mexer nas duas linhas finais.
With oImage
.Width = oCell.Width / factor
.Height = oCell.Height / factor
.Left = oCell.Left + oCell.Width / 2 - .Width / 2
.Top = oCell.Top + oCell.Height / 2 - .Height / 2
End With