[belajar-excel] tolong utk mengatur ukuran gambar di VB

[Mbah]

minta tolong  cara menambahkan ukuran gambar di kode berikut bagaimana 
TRIMAKASIH ATAS BANTUANNY

Private Sub CommandButton1_Click()
    'Untuk milis belajar-excel
    '(c)2007, Opi.
    On Error GoTo nol
    Dim AlamatGambar As String, sell As String
    AlamatGambar = Range("D1").Value
    sell = Range("D2").Value
    If Dir(AlamatGambar) = "" Then
        MsgBox "File gambar tidak ditemukan mas."
        GoTo nol
    End If
    Range(sell).Select
    ActiveSheet.Pictures.Insert(AlamatGambar).Select
nol:
End Sub