Boa tarde!!

Veja esse exemplo

Sub ChangeImage()
'Fonte:http://stackoverflow.com/questions/22355537/excel-vba-insert-image-using-dialog-box-into-a-certain-cell
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Submit"
        .Title = "Selecione uma imagem..."
        .Filters.Clear
        .Filters.Add "JPG", "*.JPG"
        .Filters.Add "JPEG File Interchange Format", "*.JPEG"
        .Filters.Add "Graphics Interchange Format", "*.GIF"
        .Filters.Add "Portable Network Graphics", "*.PNG"
        .Filters.Add "Tag Image File Format", "*.TIFF"
        .Filters.Add "All Pictures", "*.*"

        If .Show = -1 Then
            Dim img As Object
            Set img = ActiveSheet.Pictures.Insert(.SelectedItems(1))

            'Scale image size
            'img.ShapeRange.ScaleWidth 0.75, msoFalse, msoScaleFromTopLeft
            'img.ShapeRange.ScaleHeight 0.75, msoFalse, msoScaleFromTopLeft

            'Position Image
            img.Left = 50
            img.Top = 150

            'Set image sizes in points (72 point per inch)
            img.Width = 150
            img.Height = 150
        Else
            MsgBox ("Cancelado.")
        End If
    End With
End Sub

Att

Bom dia!!

Para atribuir uma macro em um botão ou objeto nativo do excel, após inserir o obejto (botão de controles ou uma Forma [figuras geometricas] etc), click com o botão direito escolha a opção atribuir macro
http://www.bertolo.pro.br/FinEst/Semana ... oExcel.pdf (Procure por atribuir macro)
https://support.office.com/pt-br/articl ... t-BR&ad=BR

Att