abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
    dnes 14:00 | Zajímavý článek

    Byl publikován aktuální přehled vývoje renderovacího jádra webového prohlížeče Servo (Wikipedie).

    Ladislav Hagara | Komentářů: 0
    dnes 12:00 | Nová verze

    V programovacím jazyce Go naprogramovaná webová aplikace pro spolupráci na zdrojových kódech pomocí gitu Forgejo byla vydána ve verzi 12.0 (Mastodon). Forgejo je fork Gitei.

    Ladislav Hagara | Komentářů: 0
    včera 18:44 | Zajímavý článek

    Nová čísla časopisů od nakladatelství Raspberry Pi zdarma ke čtení: Raspberry Pi Official Magazine 155 (pdf) a Hello World 27 (pdf).

    Ladislav Hagara | Komentářů: 1
    včera 16:11 | Nová verze

    Hyprland, tj. kompozitor pro Wayland zaměřený na dláždění okny a zároveň grafické efekty, byl vydán ve verzi 0.50.0. Podrobný přehled novinek na GitHubu.

    Ladislav Hagara | Komentářů: 2
    včera 15:55 | Komunita

    Patrick Volkerding oznámil před dvaatřiceti lety vydání Slackware Linuxu 1.00. Slackware Linux byl tenkrát k dispozici na 3,5 palcových disketách. Základní systém byl na 13 disketách. Kdo chtěl grafiku, potřeboval dalších 11 disket. Slackware Linux 1.00 byl postaven na Linuxu .99pl11 Alpha, libc 4.4.1, g++ 2.4.5 a XFree86 1.3.

    Ladislav Hagara | Komentářů: 5
    16.7. 21:22 | IT novinky

    Ministerstvo pro místní rozvoj (MMR) jako první orgán státní správy v Česku spustilo takzvaný „bug bounty“ program pro odhalování bezpečnostních rizik a zranitelných míst ve svých informačních systémech. Za nalezení kritické zranitelnosti nabízí veřejnosti odměnu 1000 eur, v případě vysoké závažnosti je to 500 eur. Program se inspiruje přístupy běžnými v komerčním sektoru nebo ve veřejné sféře v zahraničí.

    Ladislav Hagara | Komentářů: 18
    16.7. 16:22 | IT novinky

    Vláda dne 16. července 2025 schválila návrh nového jednotného vizuálního stylu státní správy. Vytvořilo jej na základě veřejné soutěže studio Najbrt. Náklady na přípravu návrhu a metodiky činily tři miliony korun. Modernizovaný dvouocasý lev vychází z malého státního znaku. Vizuální styl doprovází originální písmo Czechia Sans.

    Ladislav Hagara | Komentářů: 25
    16.7. 15:33 | Upozornění

    Vyhledávač DuckDuckGo je podle webu DownDetector od 2:15 SELČ nedostupný. Opět fungovat začal na několik minut zhruba v 15:15. Další služby nesouvisející přímo s vyhledáváním, jako mapyAI asistent jsou dostupné. Pro některé dotazy během výpadku stále funguje zobrazování například textu z Wikipedie.

    bindiff | Komentářů: 8
    16.7. 13:33 | Bezpečnostní upozornění

    Více než 600 aplikací postavených na PHP frameworku Laravel je zranitelných vůči vzdálenému spuštění libovolného kódu. Útočníci mohou zneužít veřejně uniklé konfigurační klíče APP_KEY (např. z GitHubu). Z více než 260 000 APP_KEY získaných z GitHubu bylo ověřeno, že přes 600 aplikací je zranitelných. Zhruba 63 % úniků pochází z .env souborů, které často obsahují i další citlivé údaje (např. přístupové údaje k databázím nebo cloudovým službám).

    Ladislav Hagara | Komentářů: 5
    16.7. 00:11 | Nová verze

    Open source modální textový editor Helix, inspirovaný editory Vim, Neovim či Kakoune, byl vydán ve verzi 25.07. Přehled novinek se záznamy terminálových sezení v asciinema v oznámení na webu. Detailně v CHANGELOGu na GitHubu.

    Ladislav Hagara | Komentářů: 0
    Jaký je váš oblíbený skriptovací jazyk?
     (59%)
     (27%)
     (7%)
     (3%)
     (0%)
     (1%)
     (4%)
    Celkem 410 hlasů
     Komentářů: 16, poslední 8.6. 21:05
    Rozcestník

    OpenOffice Impress - škálování obrázku na velikost slidu

    11.3.2009 12:14 | Přečteno: 1186× | OpenOffice | poslední úprava: 11.3.2009 12:47

    Funkce uveřejněného makra: Vybraný obrázek (či jiný objekt) zvětší tak, aby se právě vešel na velikost slidu. Přitom ponechá původní poměr stran.

    Podotýkám, že nikdy nebylo mým přáním studovat dokumentaci k OpenOffice Basic. A ani v tomto směru nehodlám směřovat svůj osud. Nicméně když jsem se ocitl před problémem, který bez napsání vlastního makra vyřešit nešel, co mi zbývalo.

    Dostal jsem do ruky powerpointovou prezentaci (mimochodem ve výsledku úspěšnou), která kromě textových slidů obsahovala velké množství samostatných fotografií. Nicméně autor je ponechal tak, jak je vložil, tudíž v závislosti na rozlišení značně rozsah slidu přesahovaly či ho naopak nezakrývaly celý. Půl hodiny jsem trávil hledáním řešení přes standardní funkce OO, nicméně k výsledku jsem se nedobral. Ani google mi v tomto nepomohl (nenabídl ani makro). Než manuálně (a nepřesně) měnit roztahovat desítky obrázků, rozhodl jsem se sáhnout k systémovějšímu řešení.

    Výsledkem je makro CenterScaledObject, které přesně plní zadání: je-li v OpenOffice Impress (či OpenOffice Draw) vybraný právě jeden objekt, po spuštění makra jej zvětší na velikost slidu, zachová poměr velikostí a umístí jej do středu. Je-li vybráno více objektů nebo žádný, ohlásí chybu.

    Uveřejňuji zde makro v dobré víře, že by někomu mohlo být užitečné, případně že někdo v něm najde mušky, které by stály za opravení nebo vylepšení (např. je možné, aby různé slidy v prezentaci měly různou velikost => má smysl se ptát po slidu, na kterém obrázek je?).

    'Scales selected object so that it just fits into the slide while keeping the aspect ratio.
    Sub CenterScaledObject
    	'Get selection
    	oSelection = ThisComponent.CurrentSelection
    
    	'Check for errors - either there is nothing selected or there are too many objects
    	If isNull(oSelection) Then
    		MsgBox("No object selected.")
    	ElseIf oSelection.count <> 1 Then
    		MsgBox("Too many objects selected - select just one.")
    	'Now there should be only one object selected    	
    	Else
    		'The selected object will be represented by selected
    		selected = oSelection.getByIndex(0)
    		
    		'Select the page so that we know to which to scale	
    		page = ThisComponent.drawPages(0)
    		'***TODO: Possibly there are slides of different sizes?
    		'***However we take the size of the first one
    
    		'Get actual size of the object
    		w = selected.Size.Width
    		h = selected.Size.Height
    		
    		Dim size As New com.sun.star.awt.Size    'New size
    		Dim point As New com.sun.star.awt.Point   'New position
    		
    		'Default values - only one will change
    		point.x = 0
    		point.y = 0
    		
    		'Calculate the position and size
    		If (w / h) > (page.Width / page.Height) Then
    			size.Width = page.Width
    			size.Height = Int(page.Width * h / w)
    			point.y = Int((page.Height - size.Height) / 2)
    		Else
    			size.Height = page.Height
    			size.Width = Int(page.Height * w / h)
    			point.x = Int((page.Width - size.Width) / 2)
    		End If
    		
    		'Resize
    		selected.setSize(size)
    		'And move to the center
    		selected.Position = point
    		'DONE
    	End if
    End Sub
    
           

    Hodnocení: 100 %

            špatnédobré        

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    Komentáře

    Vložit další komentář

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.