Center Align Image

Hello,

I am positioning 36 images inside 36 cells.
It is working but the images are top left aligned.
How can I make them centered?

Here is my code:

' Reposition
Sub Reposition(ByRef game As GameType)

    ' Variables declaration
    Dim i As Integer, j As Integer, output As Range
    
    ' Define output
    Set output = Range("B3:G8")
    
    ' Reposition alghoritm
    For i = 1 To 6
        For j = 1 To 6
            With ActiveSheet.Shapes(game.Images(i, j))
                .Left = output.Cells(i, j).Left
                .Top = output.Cells(i, j).Top
            End With
        Next j
    Next i
    
End Sub ' Reposition

Thanks,
Miguel