Então, eu pesquisei bastante aqui e nos vários sites nas interwebs, mas estou tendo dificuldade em encontrar uma resposta. Também não sou o usuário mais experiente em VBA.

Basicamente, o que eu preciso: Com um clique no botão, a caixa de diálogo "Inserir imagem" é exibida, o usuário seleciona um único arquivo de imagem e a imagem deve ser inserida na célula B2. Idealmente, gostaria de dimensionar esta imagem para que ela não seja mais longa que X e nem mais alta que Y.

Este é o meu código até agora (o que me dá um 'erro em tempo de execução 424' e aponta para a linha TextBox1.Value). Todas as sugestões / melhorias são sempre muito apreciadas!

Sub ChangeImage()

With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.ButtonName = "Submit"
.Title = "Select an image file"
.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
    TextBox1.Value = .SelectedItems(1)
    Image1.PictureSizeMode = fmPictureSizeModeZoom
    Image1.Picture = LoadPicture(.SelectedItems(1))

Else
    MsgBox ("Cancelled.")
End If
End With
End Sub

Obrigado!

-UMA