Pergunte aqui
0

Hiperlink na caixa de listagem

perguntadas 2019-01-28 16:30:17 +0200

imagem do gravatar de luiz1828

updated 2019-02-17 16:59:07 +0200

Olá pessoal,

Gostaria de saber se tem como inserir um hiperlink para cada menu da minha caixa de listagem, gostaria que quando clicasse em um dos menus, abrisse um arquivo pdf do computador, sei q tem como abrir documentos através de hyperlinks, porém não sei como por eles na caixa de listagem.

Obrigado desde já

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

3 Respostas

1

respondidas 2019-01-28 17:19:13 +0200

imagem do gravatar de Conrado

updated 2019-01-30 18:12:04 +0200

Segue o arquivo corrigido para verificação. Fiz os testes aqui, e ocorreu tudo bem.

C:\fakepath\15488664064067464.ods


Neste caso você não coloca o hyperlink na caixa de listagem, mas sim algum nome, que ao concatenar com um endereço aonde os arquivos estão, ele abrirá o arquivo.

Segue o código:

Sub AbrirArquivo

    Dim Endereco, ArqName as String

    oDoc = ThisComponent
    oPlan = oDoc.Sheets.getByName ("Nome_da_sua_Plan")

    'Nome do arquivo salvo e a extensão. Pode ser outra extensão
    ArqName = oPlan.getCellRangeByName ("C2").String & ".pdf"

    'Link aonde está o arquivo
    Endereco = oPlan.getCellRangeByName ("B4").String

    'Converte em link genérico e global, usado principalmente para computadores em rede
    sArquivo =  ConvertToUrl (Endereco & ArqName)

    oSys = CreateUnoService("com.sun.star.system.SystemShellExecute")
    oSys.execute(sArquivo, "", 0)

End Sub
editar assinalar como ofensivo Excluir Link mais

Comentários

Neste caso pelo oq eu entendi eu não consigo abrir um documento em cada menu da minha caixa de listagem isso?. Consegui usar esse codigo que vc me passou, porém se eu jogar ele na caixa de listagem em todos os menus ele vai abrir apenas um arquivo.

imagem do gravatar de luiz1828luiz1828 ( 2019-01-29 12:19:46 +0200 )editar

No caso, você precisa definir que a macro abra conforme vc mudar as o evento dela, dessa forma ela irá pegar o valor que está na caixa de listagem, concatenar com o endereço que está o arquivo (lembrando que este endereço deve ser padrão para todos) e abrir o arquivo. Agora, se precisar abrir todos os arquivos que estão na caixa de listagem de uma vez, o procedimento deve ser outro.

imagem do gravatar de ConradoConrado ( 2019-01-29 13:48:17 +0200 )editar
0

respondidas 2019-01-28 17:25:19 +0200

esta mensagem está marcada como wiki comunitário

Esta mensagem é um wiki. Qualquer pessoa com karma >75 é bem-vinda para a melhorar.

editar assinalar como ofensivo Excluir Link mais
0

respondidas 2019-01-30 17:40:22 +0200

imagem do gravatar de luiz1828

C:\fakepath\Sem título 1.ods Mas como faço para definir q a macro abra conforme mude os eventos e pegue o valor que está na caixa de listagem?. Pois configurei dois hiperlinks de dois arquivos diferentes na planilha, configurei a macro de acordo com o que vc me passou, mas quando executo a macro na caixa de listagem, ela abre apenas um arquivo nos dois menus que ela possue.

Estou anexando também a planilha que eu fiz para vc entender melhor.

Obrigado

editar assinalar como ofensivo Excluir Link mais

Comentários

Olhe na minha resposta atualizada com seu arquivo

imagem do gravatar de ConradoConrado ( 2019-01-30 18:10:47 +0200 )editar

Agora deu certo, obrigado pela grande ajuda amigo, sou meio leigo nesses assuntos ainda rsrs.

imagem do gravatar de luiz1828luiz1828 ( 2019-01-30 18:16:17 +0200 )editar

Fique tranquilo...estamos aqui para ajudar. Apenas marque minha resposta como correta na bolinha cinza para que outras pessoas possam ver a resposta correta.

imagem do gravatar de ConradoConrado ( 2019-01-30 18:20:15 +0200 )editar

Feito. Obrigado

imagem do gravatar de luiz1828luiz1828 ( 2019-01-30 18:45:24 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-01-28 16:30:17 +0200

Lidas: 41 vezes

Última atualização: Jan 30