Notifications
Clear all

VBA EXCEL - AcroPDF erro

9 Posts
4 Usuários
0 Reactions
2,217 Visualizações
(@angelolima)
Posts: 26
Eminent Member
Topic starter
 

Estou desenvolvendo um cadastro em Multi-páginas onde quero na aba CERTIFICADOS inserir a opção de visualizar a cópia do certificado, quando eu clicar no botão (azul) abra uma janela a qual abrirá um formulário que contenha um AcroPDF e nele o certificado em PDF. O meu problema é que não estou conseguindo inserir o AcroPDF, quando tento inserir aparece uma janela com o seguinte aviso: Microsoft Visual Basic Application: Elemento não encontrado. Já tentei de várias formas mas não consigo solução para o problema, alguém poderia me ajudar? Seria necessário anexar o modelo? Agradeço a quem possa me ajudar.

 
Postado : 19/01/2016 2:23 pm
(@messiasmbm)
Posts: 223
Estimable Member
 

Esse código salva planilha que quiser em pdf.

Sub pdfsalva()
 Dim REDE
  Dim GetUserN
    Dim ObjNetwork
    Set ObjNetwork = CreateObject("WScript.Network")
    GetUserN = ObjNetwork.UserName
   REDE = GetUserN
Sheets("IMPM").Select
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:Users" & REDE & "Documentsseu arquivo.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
        Dim FicheiroPDF
FicheiroPDF = "C:Users" & REDE & "seu arquivo.pdf"

End Sub
 
Postado : 19/01/2016 3:04 pm
(@angelolima)
Posts: 26
Eminent Member
Topic starter
 

Agradeço pela sua resposta messiasmbm, mas o meu problema é abrir o pdf dentro de um formulário, usando o AcroPDF, só que, no formulário que criei não aceita o AcroPDF, ele dá essa mensagem de erro: Elemento não encontrado, eu estava querendo apenas uma solução para que pudesse inserir o AcroPDF, e se fosse possível, os códigos para a exibição do PDF. Agradeço, desde já, pela sua resposta e disponibilidade de ajudar-me.

 
Postado : 19/01/2016 3:45 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Mas pq abrir o PDF dentro do formulario...

Qual é a ideia??

So estetico???

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 19/01/2016 3:50 pm
(@messiasmbm)
Posts: 223
Estimable Member
 

Tive uma ideia...Vc cria uma macro para tirar um print(foto) da planilha do tamanho de seu certificado e joga-la em uma imagem para receber no form.

 
Postado : 19/01/2016 5:34 pm
(@angelolima)
Posts: 26
Eminent Member
Topic starter
 

MPrudencio a ideia é facilitar o acesso ao documento, eu vi este exemplo aqui: https://www.youtube.com/watch?v=3BMGvlgtmyQ só que o que está acontecendo comigo é que ao tentar inserir o AcroPDF ele acusa que o tal elemento não foi encontrado, queria ver, ao menos, uma solução para este problema. Por outro lado, as pessoas que irão trabalhar com este projeto não tem um conhecimento grande a respeito de informática, eu iria colocar um botão que, ao clicar nele, a pessoa teria acesso a cópia de um certificado que seria escaneado em PDF com as opções (como no caso do vídeo) do zoom, impressão, salvar, etc. Agradeço pelo seu interesse.

 
Postado : 20/01/2016 6:14 am
(@angelolima)
Posts: 26
Eminent Member
Topic starter
 

messiasmbm seria uma boa, mas queria que, se possível, você verificasse a minha resposta a MPrudencio, minha ideia seria esta, agradeço, mais uma vez, pela sua atenção.

 
Postado : 20/01/2016 6:18 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

No link do youtube nas descrições consta links para download de dll's especificas para essa operação; sem isso somente pelos elementos nativos do office/vba não é viavel essa operação

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/01/2016 6:40 am
(@angelolima)
Posts: 26
Eminent Member
Topic starter
 

Muito obrigado Reinaldo, eu imaginei tudo, sempre os detalhes, vou tentar para ver se consigo, abraços!

 
Postado : 20/01/2016 6:45 am