C týden
Tento týden až 80% sleva na e-learning týkající se jazyka C
50 % bodů zdarma na online výuku díky naší Slevové akci!

Diskuze: Jak zajistit, aby otevřené PDF bylo vždy na stejné pozici a se stejnými rozměry?

Aktivity (5)
Avatar
Filip Schneider:6. srpna 9:22

Mám vytvořený formulář na zadávání materiálů při vstupní kontrole. Makro se pouští při spuštění excelu, a sešit i formulář jsou nastaveny na start na levé polovině obrazovky. Během spouštění formuláře vyskočí okno na výběr příslušného dodavatelského atestu v PDF, ze kterého potřebuji do formuláře přepsat údaje a chci aby se toto PDF otevřelo na pravé polovině obrazovky.

Zkusil jsem: Googlil jsem na mnoha stránkách a fórech, ale nikde jsem nenarazil na způsob, kterým bych to rozchodil. Většinou jsem nacházel pouze formátování excelovských sešitů. okno pro výběr pdf souboru funguje, soubor se otevře, ale nedokážu jej nijak uchopit a zformátovat na potřebný rozměr.

[Private Sub Workbook_Open()

Application.Win­dowState = xlNormal
With ActiveWorkbook
.Application.Top = True
.Application.Left = True
.Application.Width = 723.25
.Application.Height = 800.25

End With

Application.Dis­playAlerts = False
With Application.Fi­leDialog(msoFi­leDialogFilePic­ker)
.InitialFileName = "Z:\120_QA\PUB\05-Vstupni kontrola\Mate­rialy\Atesty\"
.Title = "Vyber adresář"
.Filters.Add "Soubory PDF (pdf)", "*.pdf", 1
.Show
If .SelectedItem­s.Count = 0 Then
MsgBox "Nebyly načteny žádné soubory": Exit Sub
ElseIf .SelectedItem­s.Count > 1 Then
MsgBox "Vyberte pouze jeden soubor!": Exit Sub
Else
zdrojovy_soubor = .SelectedItems(1)
Dim nazev As String
nazev = .SelectedItem­s.Creator
End If
End With

Dim adresa As String

adresa = zdrojovy_soubor

MsgBox adresa, vbOKOnly
MsgBox nazev, vbOKOnly
ActiveWorkbook­.FollowHyperlink adresa

'Application.hwnd­.Top = True
'Application.hwnd­.Left = 725.26
'Application.hwnd­.Width = 715.25
'Application.hwnd­.Height = 800.25

'End With

ThisWorkbook.Ac­tivate

UserForm1.Show

End Sub]

Chci docílit: V zásadě mi jde o zjednodušení procesu, přepínání mezi okny během zapisování hodnot je nepohodlné a může dojít jednoduše k chybě. Je samozřejmě možné přetáhnout okno myší ale kvůli běžícímu makru je excel s formulářem schovaný na liště a nezobrazí se jako okno pro výběr na druhou polovinu obrazovky. Potřebuji aby s tímto formulářem pracovalo více lidí, a bylo tedy ovládání co nejjednodušší.

 
Odpovědět
6. srpna 9:22
Avatar
lostak.petr
Člen
Avatar
lostak.petr:11. srpna 9:20

Ahoj,
asi přesně nerozumím tvé otázce. Když otevřeš to PDFko, co s ním děláš? Nebo Ti jde jen o to mít 2 dokumenty na jednom monitoru? A přepsat data z Excelu do PDFka? Pokud ano, tak bych šel cestou, udělat si to co máš v PDFku na list v Excelu a výsledek uložit jako PDFko, na cestu kam potřebuješ.

 
Nahoru Odpovědět
11. srpna 9:20
Tento výukový obsah pomáhají rozvíjet následující firmy, které dost možná hledají právě tebe!
Avatar
Odpovídá na lostak.petr
Filip Schneider:11. srpna 11:19

Vlastně mi jde o to, abych měl tyto dva dokumenty otevřené a usazené vždy na stejném místě, z pdf přepisujeme data do formuláře. Z formuláře to pak ukládáme do jiné tabulky, to už mám pořešené.
Kvůli jednoduchosti používání bych chtěl, aby se během startu makra otevřela nabídka, kde vyberu pdf, které potřebuji a to se mi následně umístilo na pravou polovinu obrazovky a makro pokračovalo dále (Excel s formulářem mám již umístěný na levé polovině). Během přesouvání oken operátorem může dojít ke spoustě chyb a překliknutí, kterým bych se rád vyhnul.

 
Nahoru Odpovědět
11. srpna 11:19
Avatar
lostak.petr
Člen
Avatar
lostak.petr:11. srpna 15:37

Já bych to řešil takto, vybrat PDFko klidně v Excelu. Z PDFka vyexportovat do XML (exustují placené a neplacené cesty) a data vyparsovat a online přenést do patřičných buňek v Excelu. Proč toto: předpokládám, že PDFko se spouští v nějakém Acrobat Readru a ne v Excelu; obecně přes Excel ovládat jiné aplikace je peklo. Jak jsi psal, obecně by díky tomu mohlo být mnoho chyb. Excel si dobře rozumí s XML, tak proč toho nevyužít.

 
Nahoru Odpovědět
11. srpna 15:37
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 4 zpráv z 4.