19. oktober 2007 - 23:53Der er
5 kommentarer og 2 løsninger
Åbne PDF fra UserForm
Hej Eksperter
Har en UserForm hvor jeg ønsker at bruger skal kunne åbne et PDF dokument ved tryk på Cmd1. Faktisk har jeg tre forskellige PDF dokumenter som hver især viser et produkt alt efter brugerens valg på formen.
Når åben skal brugeren som normalt kunne printe PDF dokumentet. Ved igen at lukke Acrobat Reader skal man retunere til UserFormen.
Er det muligt at have 3 forskellige PDF dokumenter som bilag til en Excel applikation.
Jeg ønsker helst at disse PDF dokumenter er skjulte og følger applikationen når den distribueres. Brugere vil med stor sandsynlighed have forskellige version af Acrobat Reader liggende forskellige steder – kan Excel finde og starte denne ?
Denne kode åbner pdf file D:\index.pdf Private Sub CommandButton1_Click() Dim strXLSFile As String, strPDFFile As String, strFolder As String strFolder = "d:\" strPDFFile = strFolder & "index.pdf" 'Open PDF file ActiveWorkbook.FollowHyperlink Address:=strPDFFile, NewWindow:=True
OK alen32, har forsøgsvis indsat mit flashdrive D:\ med en PDF fil. PDF'en åbner som den skal ved tryk på CommandButton1. Hvordan får jeg nu "vedhæftet" PDF filen til min Excel fil, enten på et skjult Ark eller skjult fil?
Jeg har lavet et eksempel: I ark 1 vælger du indsæt, objekt under fane opret nyt vælger du adobe acrobat dokument og klikker ok-og så finder du den pdf fil som du vil vedhæfte. I ark2 kan du lave en command button og indsætter du denne kode under den: Private Sub CommandButton1_Click() Sheets("Ark1").Select ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End Sub
Jo det virker som det skal - tak for det, smider du et svar kommer der point til dig. Tak for hjælpen
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
