Criar Hipelink

2024 - VBA & Macros

Post Recente por xandrinho 8 anos atrás

3 Posts

2 Usuários

0 Reactions

1,033 Visualizações

RSS

xandrinho

(@xandrinho)

Posts: 0

Estimable Member

Topic starter

Bom Dia Mestres!!!
Preciso de uma grande ajuda:
Tenho uma pasta na área de trabalho que contem documentos em pdf. Na planilha anexa na coluna A recebe o numero destes documentos salvo (pdf).
Gostaria que ao clicar no botão Inserir Hiperlink, o código criasse os hiperlinks.
O módulo do código, já esta criando os hiperlinks, mas o mesmo não abre o PDF. Tem algum detalhe no código que eu não consigo visualizar qual a informação incorreta.
Poderiam por favor, me auxiliarem?
Antecipadamente,
Agradeço.

Hiperlinks.zip

Postado : 29/08/2016 6:21 am

engeel2014

(@engeel2014)

Posts: 207

Estimable Member

Caro amigo, você não especificou o formato do arquivo que você está criando o hiperlink. É só alterar a linha abaixo no seu código:

 ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:UsersAlexandreDesktop" & Range("A" & lControle).Value & ".pdf", TextToDisplay:="" & Range("A" & lControle).Value

Anexo planilha modificada.

Hiperlinks.zip

Lucélio Ferreira dos Santos
Eng. Eletricista
CREA: DF-7165/TD
[email protected]

Postado : 29/08/2016 11:50 am