INSERIR LINK DE ARQUIVO NA PLANILHA ATRAVÉS DA USE FORM!

Question

Pessoal,

Estou tentando inserir um link de um arquivo (varias extensões PDF, JPG, BMT ....) através de um botão (Add..) na use form, e uma text box para exibir o endereço do arquivo. Esse arquivo devera ser salvo em sequencia nas proximas linhas conforme for cadastrando.

Estou inserindo link para a planilha não ficar muito pesada, posteriormente ao cadastro precisarei de criar um botão para chamar esse link e abrir ele.

Algum pode me ajudar?

Answer 1

Private Sub CommandButton1_Click()


'mostra a caixa para selecionar um arquivo
Set myFile = Application.FileDialog(msoFileDialogOpen)
With myFile
.Title = "Choose File"
.AllowMultiSelect = False
If .Show <> -1 Then
Exit Sub
End If
FileSelected = .SelectedItems(1)
End With


'define onde será inserido o link
With Sheets(1)
 .Hyperlinks.Add Anchor:=.Range("a5"), _
 Address:=FileSelected, _
 ScreenTip:="Microsoft Web Site", _
 TextToDisplay:="Microsoft"
End With



End Sub

 

O código acima inseri o link certinho, porem não consegui configurar a txtbox para exibir o endereço. E na planilha

• também não esta aparecendo o endereço. PRECISO salvar esses arquivos na A1,B1,C1,D1........... Quando abrir a use form para  novo  registro salvar na A2,B2,C2,D2.....