Alterar tamanho de imagem (VBA)

Olá pessoal, boa tarde.

Encontrei pela internet esse código abaixo. Mas preciso que ele também defina uma dimensão específica para a imagem. Ex: 400x400. O que devo fazer. Muito obrigado.


Sub CroquiBT1_Click()
Dim Pict
Dim Imagem As Object
Dim ImgFileFormat As String

ImgFileFormat = “Image Files JPG (.jpg),.jpg, Image Files GIF (.gif),.gif, Image Files BMP (.bmp),.bmp”

Pict = Application.GetOpenFilename(ImgFileFormat)
If Pict = False Then End

Set Imagem = ActiveSheet.Pictures.Insert(Pict)

Imagem.Top = ActiveCell.Top + 3
Imagem.Left = ActiveCell.Left + 3
Imagem.ShapeRange.LockAspectRatio = msoTrue

'12 = Quantidade de linhas…
Imagem.Height = ActiveCell.Height * 42

'3 = Quantidade de colunas…
'Imagem.Width = ActiveCell.Width * 28

End Sub