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

  • Pergunta

  • 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?

    terça-feira, 12 de janeiro de 2016 00:13

Todas as Respostas

  • 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.....

    terça-feira, 12 de janeiro de 2016 00:33