Acronis
Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 Re: Calc » Export oříznutých fotografii makrem » 18. 4. 2020 10:30:01

Děkuji za radu, ještě zkusím pohledat co by se s tím dalo dělat. Já v těch makrech fakt plavu, ať na to koukám jak koukám žádnou logiku v tom kódu nevidím smile)) Já se to snad na stará kolena budu muset doučit.

#3 Re: Calc » Export oříznutých fotografii makrem » 12. 4. 2020 10:41:37

Hledám kde se dá ale nevím jak na to. Kdyby někdo tušil tak přikládám soubor s makrem které funguje ale s tím že exportuje celý obrázek namísto ořezu do složky kde máte umístěnou danou tabulku.
CROP.png

Odkaz na tabulku s makrem ZDE

#4 Re: Calc » jak odstranit řádky, které nemají požadovanou výšku » 11. 4. 2020 11:15:04

A nebylo by jednoduší prostě smazat makrem prázdné řádky bez ohledu jakou mají výšku?

Sub Smazat
Dim oCell as Object, oSheet as Variant, oSheets as Variant, oString as String
Dim oDoc as Object 
oDoc=ThisComponent 
oSheet=oDoc.Sheets(0)
For i = 2000 To 0 Step -1
oCell = oSheet.GetCellByPosition(0, i)
oRows = oSheet.getRows() 
oString = oCell.getString()
If oString = "" Then 
oRows = oSheet.getRows() 
oRows.removeByIndex(i,1)
End If
Next i
End Sub

číslovku 2000 můžeš měnit na to kolik cca potřebuješ prohledat řádků, nula za tím znamená že začíná na řádku 1.
oSheet.GetCellByPosition(0, i) ta nula znamená jaký sloupec má kontrolovat 0= sloupec A, sloupec B by byla 1, atd...
If oString = "" mezi uvozovkama nic není takže to znamená že pokud nenajde nic tak vymaže celý řádek.

#5 Re: Calc » Export oříznutých fotografii makrem » 10. 4. 2020 18:43:26

Jde jen o čistý export, pokud dám uložit fotografii ručně pravým klikem na fotografii tak se mě zeptá zda chci uložit původní nebo ořízlou. Tuším že v LO5 to ještě nešlo. v šestce je to už nějak ošetřené. Což o to pootočení je méně pro mě důležité to spíš to oříznutí.

Toto makro používám na export fotek z ceníku a jejich pojmenování v tabulce a následně to slouží v jiném programu aby si uměl natáhnout náhledy podle exportované tabulky.

#6 Calc » Export oříznutých fotografii makrem » 10. 4. 2020 14:03:02

barevnej
Odpovědí: 6

Zdravím,

používám uvedené Makro k exportu fotografii a získání jejich jmen... Vše funguje jak potřebuji až teď jsem narazil že pokud mám v Calcu oříznutou fotografii tak toto makro vyexportuje fotografii v plné neořízlé podobě. Je možné upravit to makro tak aby fotografii vyexportoval přesně tak jak vypadá (výřez, otočení)
Crop-handles.jpg

sub EXPORT_FOTEK
   doc = thiscomponent
   a_url = split(doc.URL, "/")

   GP = createUnoService("com.sun.star.graphic.GraphicProvider")
   dim props(1) as new com.sun.star.beans.PropertyValue
   props(0).Name = "URL"
   props(1).Name = "MimeType"

   for each sheet in doc.Sheets
      drawpage = sheet.DrawPage
      for n = drawpage.Count-1 to 0 step -1
         elem = drawpage.getByIndex(n)
         if elem.supportsService("com.sun.star.drawing.GraphicObjectShape") then
           a_url(ubound(a_url)) =  elem.Name & ".jpg"
           props(0).Value = convertToURL(join(a_url, "/"))
           props(1).Value = elem.Graphic.MimeType
           GP.storeGraphic(elem.Graphic, props)
           on error resume next   'image could be anchored to page
           elem.Anchor.setString(elem.Name)
           drawpage.remove(elem)
         end if      
      next n
   next sheet
   msgbox "done"
end sub

#8 Re: Calc » Hromadná komprimace fotografii » 26. 2. 2020 13:27:57

Zatím tato poslední verze funguje nejlépe, první obrázek mi to sice udělá miniaturní ale musím zkusit v reálu jak moc se tato chyba projeví, možná že všechny fotky budou klasické jpg nebo png a nebude to problém. Jinak je to fakt dobré. Skoro je to na nějaké zveřejnění jelikož si myslím že tohle by ocenilo hromada lidí. Jste fakt dobrej. Děkuji mnohokrát.

#10 Re: Calc » Hromadná komprimace fotografii » 25. 2. 2020 17:48:07

Případně mě napadá všechny fotky najednou změnit velikost na požadovanou výšku. Jenže ať najdu co najdu tak výsledek je že musím zadat i výslednou šířku což nevím když je každý obrázek jinak široký.

#11 Re: Calc » Hromadná komprimace fotografii » 25. 2. 2020 16:08:20

Tak aby se neměnila výška řádku by mi šlo upravit. Jak ale vyřešit to dpi netuším. Hledám jak rovnou při importu nastavit že obrázek se má nastavit třeba na "height 75px" bez ohledu na to jaká je ralita

#12 Re: Calc » Hromadná komprimace fotografii » 25. 2. 2020 15:19:00

kamlan napsal(a)

Ještě co se týká různé výšky obrázků tak ono záleží i na velikosti DPI toho každého obrázku, s čímž může být též problém a nevím jak ošetřit případná různá DPI.

Koukám že tady je taky zakopanej pes... Testuji

#13 Re: Calc » Hromadná komprimace fotografii » 25. 2. 2020 15:05:39

Je to čím dál lepší, upřímně kdyby to vůbec neměnilo výšku řádku ale prostě jen obrázek vložilo bez ohledu na jeho velikost čily 1:1 tak by to bylo lepší.

kamlan napsal(a)

Mimochodem jak centrujete ty obrázky doprostřed? Mě to nešlo, zkoušel jsem svislé centrování obsahu buňky a nic.

Normálně ručně smile)) Prostě vyberu jeden obrázek a pak Ctrl+A a Formát > Zarovnání > Na střed. Já vím není to moc profi postup ale je to snadné.

#14 Re: Calc » Hromadná komprimace fotografii » 25. 2. 2020 11:29:31

Dělám pokusy, vše jsem zmenšil v průběhu makra na výšku 75px ale v reálu jsou importované fotky různě jinak vysoké, skoro jako by to vypočítávalo výšku řádku z šířky obrázku.
pokus1.png

Nešlo by aby vzal výšku obrázku a ze zhora a třeba i ze spoda přidal 5px aby nebyla fotka tak nalepená na spodní a vrchní buňce. Doprostřed vycentrovat to zvládnu to je hračka.
Predstava_01.png

#15 Re: Calc » Hromadná komprimace fotografii » 25. 2. 2020 11:15:35

Aha funguje to, musel jsem smazat všechny ostatní makra co tam mám. Jen ještě poladit tu velikost jelikož to pak změní tu velikost řádků což není žádoucí. Jde to nějak vypnout aby to neměnilo velikost řádků?

#16 Re: Calc » Hromadná komprimace fotografii » 25. 2. 2020 11:09:14

Stále stejná chyba a hodí to tu chybu syntaxe 4x za sebou. Nemohl by jsem poprosit o vzorovou tabulku na které to testujete? Třeba je problém v názvu listu nebo že některé fotky nejsou jpg ale třeba i png... Asi bych to z vzorového souboru uměl odvodit.

#18 Re: Calc » Hromadná komprimace fotografii » 25. 2. 2020 10:12:23

Furt se mu to nějak nelíbí. Je fakt že jsem měl třeba makra v LO 6.2 a fungovala i když tam třeba nebyly uzavřené závorky a od 6.4 mi chyby neodpouští a musel jsem to opravit. Tady ovšem nevím jak to opravit.

chyba02.png

#20 Re: Calc » Hromadná komprimace fotografii » 24. 2. 2020 10:20:07

Ono to ale zmenší obrázek vizuálně ale nekomprimuje, naopak nepotřebuji měnit vizuálně ale zmenšit jeho datovovou velikost. Po tomto makru se zmenšil viditelný rozměr ale stále mají obrázky třeba 2000KiB. Pokud dám obrázek ručně komprimovat tak výsledná velikost je třeba jen 5KiB
.
Před makrem
01.png
.
.
Po makru
02.png
.
.
Velikost i po makru zůstala, potřebuji ale komprimovat viz obrázek.
03.png

#21 Re: Calc » Hromadná komprimace fotografii » 22. 2. 2020 17:37:25

Upřímně expert nejsem, používám Makra které jsem různě posbíral po netu a moc je upravovat neumím. Toto používám na export všech fotek ven a nahrání jejich jmen do původních buněk.

sub EXPORT_FOTEK
   doc = thiscomponent
   a_url = split(doc.URL, "/")

   GP = createUnoService("com.sun.star.graphic.GraphicProvider")
   dim props(1) as new com.sun.star.beans.PropertyValue
   props(0).Name = "URL"
   props(1).Name = "MimeType"

   for each sheet in doc.Sheets
      drawpage = sheet.DrawPage
      for n = drawpage.Count-1 to 0 step -1
         elem = drawpage.getByIndex(n)
         if elem.supportsService("com.sun.star.drawing.GraphicObjectShape") then
           a_url(ubound(a_url)) =  elem.Name & ".jpg"
           props(0).Value = convertToURL(join(a_url, "/"))
           props(1).Value = elem.Graphic.MimeType
           GP.storeGraphic(elem.Graphic, props)
           on error resume next   'image could be anchored to page
           elem.Anchor.setString(elem.Name)
           drawpage.remove(elem)
         end if      
      next n
   next sheet
   msgbox "done"
end sub

#22 Re: Calc » Hromadná komprimace fotografii » 22. 2. 2020 12:33:48

Tak asi mi nezbude je pomocí makra dostat ven a hromadně mimo zmenšit, a pomocí jiného makra zase dostat zpět. Ale přijde mi to tak trochu nepraktické zvláště když výchozí komprimátor funguje dokonale akorát že po jednom.

#23 Calc » Hromadná komprimace fotografii » 20. 2. 2020 20:38:31

barevnej
Odpovědí: 31

Nevíte jak hromadně zmenšit velikost obrázků v calcu. Po jednom to funguje výborně ale když jich jsou stovky ba tisíce...

Asi by to chtělo Makro alá vše zmenšit na px krát px.

#24 Re: Calc » Pohyb šipkama » 19. 2. 2020 08:09:55

U mě na 6.4 na Ubuntu bez problémů.
Vypadá to na chybu právě v 5.3 která byla už v následujících verzích opravena. Možná by mohlo pomoct stisknutí na klávesnici "Scroll Lock"

https://bugs.documentfoundation.org/sho … ?id=111627

Zápatí

Používáme FluxBB