activesheet.pictures.insert selecionar imagem antes de inserir

Question

Prezados, bom dia

Estou com um pouco de dificuldade em adaptar um c&oacute;digo,

activesheet.pictures.insert

Preciso dessa fun&ccedil;&atilde;o, por&eacute;m que seja poss&iacute;vel selecionar qual imagem eu vou inserir.

Algu&eacute;m pode me ajudar.

Desde j&aacute; agrade&ccedil;o

Answer

Chame a caixa de dialogo.
Exemplo:
[code=vb]

Dim img         As Object
With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = Confirmar
        .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

Set img = ActiveSheet.Pictures.Insert(.SelectedItems(1))

Else
            MsgBox A&ccedil;&atilde;o Cancelada!, 16, Aviso
        End If
    End With

[/code]

Ferramentas

Mover Tópico