VBA ændre størrelse af billede

Jeg bruger følgende til at indsætte et billede i mit ark:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
    Select Case Target
        Case 1
            ActiveSheet.Pictures.Delete
            ActiveSheet.Pictures.Insert ("Y:\Logoer\logo1.jpg")
        Case 2
            ActiveSheet.Pictures.Delete
            ActiveSheet.Pictures.Insert ("Y:\Logoer\logo2.jpg")
        Case 3
            ActiveSheet.Pictures.Delete
            ActiveSheet.Pictures.Insert ("Y:\Logoer\logo3.jpg")
        Case Else
            ActiveSheet.Pictures.Delete
    End Select
End If
End Sub

Hvordan sikrer jeg, at størrelsen er den samme på de forskellige billeder ala:

ActiveSheet.Pictures("logo1.jpg").Shape.Height = 50
ActiveSheet.Pictures("logo1.jpg").Shape.Width = 50