Bylo řečeno, že až 50 procent prezentací v PowerPointu obsahuje data, která byla zkopírována přímo z Excelu. Tomuto tvrzení není těžké uvěřit. Často je mnohem jednodušší analyzovat a vytvářet grafy a zobrazení dat v Excelu než v PowerPointu. Proč byste je po vytvoření těchto grafů a zobrazení dat jednoduše nepřesunuli do PowerPointu? Makro v této části umožňuje dynamicky vytvářet snímky PowerPoint, které obsahují data z rozsahu, který určíte.
Můžete si stáhnout funkční příklad odesílání dat aplikace Excel do aplikace PowerPoint .
V tomto příkladu zkopírujete rozsah ze souboru aplikace Excel a vložíte tento rozsah na snímek v nově vytvořené prezentaci PowerPoint.
Mějte na paměti, že protože tento kód bude spouštěn z Excelu, musíte nastavit odkaz na Microsoft PowerPoint Object Library. Referenci můžete nastavit otevřením Editoru jazyka Visual Basic v Excelu a výběrem položky Nástroj→Odkazy. Přejděte dolů, dokud nenajdete položku Microsoft PowerPoint xx Object Library, kde xx je vaše verze PowerPointu. Zaškrtněte políčko vedle položky.
Sub CopyRangeToPresentation ()
'Krok 1: Deklarujte své proměnné
Dim PP As PowerPoint.Application
Dim PPPres jako PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
Ztlumit název snímku jako řetězec
'Krok 2: Otevřete PowerPoint a vytvořte novou prezentaci
Nastavit PP = New PowerPoint.Application
Nastavit PPPres = PP.Prezentace.Přidat
PP. Viditelné = Pravda
'Krok 3: Přidejte nový snímek jako snímek 1 a nastavte na něj fokus
Nastavit PPSlide = PPPres.Slides.Add(1, ppLayoutTitleOnly)
PPSlide.Vyberte
'Krok 4: Zkopírujte rozsah jako obrázek
Sheets("Data snímku").Range("A1:J28").CopyPicture _
Vzhled:=xlScreen, Formát:=xlObraz
'Krok 5: Vložte obrázek a upravte jeho polohu
PPSlide.Shapes.Paste.Select
PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
'Krok 6: Přidejte název snímku
SlideTitle = "Můj první PowerPointový snímek"
PPSlide.Shapes.Title.TextFrame.TextRange.Text = SlideTitle
'Krok 7: Vyčištění paměti
PP.Aktivovat
Nastavit PPSlide = nic
Nastavit PPPres = nic
Nastavte PP = nic
Konec sub
V kroku 1 deklarujete čtyři proměnné: PP je objektová proměnná, která zpřístupňuje objekt aplikace PowerPoint, PPPres je objektová proměnná, která zpřístupňuje objekt PowerPoint Presentation, PPSlide je objektová proměnná, která zpřístupňuje objekt PowerPoint Slide, a SlideTitle je řetězec. proměnná použitá k předání textu pro nadpis snímku.
Krok 2 otevře PowerPoint s prázdnou prezentací. Všimněte si, že nastavíte vlastnost Visible aplikace PowerPoint na hodnotu True, abyste zajistili, že akci uvidíte při spuštění kódu.
V kroku 3 přidáte nový snímek do prezentace pomocí metody Add objektu Slide. Všimněte si, že používáte ppLayoutTitleOnly a ujistěte se, že snímek je vytvořen s textovým rámečkem nadpisu. Poté uděláte krok navíc a zaostříte na snímek. To znamená, že výslovně řeknete PowerPointu, aby vybral tento snímek, čímž jej aktivujete.
V kroku 4 použijete metodu CopyPicture ke zkopírování cílového rozsahu jako obrázku. Rozsah, který se zde kopíruje, je rozsah A1 až J28 na kartě Data snímku.
Krok 5 vloží obrázek do aktivního snímku a vycentruje obrázek vodorovně i svisle.
V kroku 6 uložíte text pro nadpis do řetězcové proměnné a poté tuto proměnnou předáte do aplikace PowerPoint, aby se text použil na textový rámeček nadpisu.
V kroku 7 uvolníte objekty přiřazené k vašim proměnným, čímž snížíte pravděpodobnost problémů způsobených objekty rouge, které mohou zůstat otevřené v paměti.
Chcete-li implementovat toto makro, můžete jej zkopírovat a vložit do standardního modulu:
Aktivujte Editor jazyka Visual Basic stisknutím Alt+F11.
V okně Projekt najděte název projektu/sešitu.
Vyberte Vložit → Modul.
Zadejte nebo vložte kód.
Jak zablokovat aplikaci Microsoft Word v otevírání souborů v režimu pouze pro čtení v systému Windows Aplikace Microsoft Word otevírá soubory v režimu pouze pro čtení, takže je nelze upravovat? Nebojte se, metody jsou uvedeny níže
Jak opravit chyby při tisku nesprávných dokumentů Microsoft Word Chyby při tisku dokumentů Word se změněným písmem, chaotickými odstavci, chybějícím textem nebo ztraceným obsahem jsou poměrně časté. Nicméně ne
Pokud jste použili pero nebo zvýrazňovač ke kreslení na snímky aplikace PowerPoint během prezentace, můžete kresby uložit pro další prezentaci nebo je vymazat, takže až ji příště ukážete, začnete s čistými snímky aplikace PowerPoint. Chcete-li vymazat kresby perem a zvýrazňovačem, postupujte podle těchto pokynů: Mazání čar jedna na […]
Knihovna stylů obsahuje soubory CSS, soubory XSL (Extensible Stylesheet Language) a obrázky používané předdefinovanými vzorovými stránkami, rozvržení stránek a ovládací prvky v SharePointu 2010. Chcete-li najít soubory CSS v knihovně stylů webu pro publikování: Vyberte Akce webu→ Zobrazit Veškerý obsah webu. Zobrazí se obsah webu. Knihovna stylů se nachází v […]
Nezahlcujte své publikum gargantuovskými čísly. V aplikaci Microsoft Excel můžete zlepšit čitelnost řídicích panelů a sestav formátováním čísel tak, aby se zobrazovaly v tisících nebo milionech.
Naučte se používat nástroje sociálních sítí SharePoints, které umožňují jednotlivcům a skupinám komunikovat, spolupracovat, sdílet a propojovat se.
Juliánská data se často používají ve výrobním prostředí jako časové razítko a rychlý odkaz pro číslo šarže. Tento typ kódování data umožňuje maloobchodníkům, spotřebitelům a servisním zástupcům identifikovat, kdy byl produkt vyroben, a tím i stáří produktu. Juliánská data se také používají v programování, armádě a astronomii. Odlišný […]
Webovou aplikaci můžete vytvořit v Accessu 2016. Co je tedy vlastně webová aplikace? Web znamená, že je online, a aplikace je jen zkratka pro „aplikaci“. Vlastní webová aplikace je online databázová aplikace přístupná z cloudu pomocí prohlížeče. Webovou aplikaci vytváříte a udržujete ve verzi pro počítače […]
Většina stránek v SharePointu 2010 zobrazuje seznam navigačních odkazů na panelu Snadné spuštění na levé straně stránky. Panel Snadné spuštění zobrazuje odkazy na doporučený obsah webu, jako jsou seznamy, knihovny, weby a stránky publikování. Panel Snadné spuštění obsahuje dva velmi důležité odkazy: Odkaz na veškerý obsah webu: […]
U jednoduchých problémů Řešitel v Excelu obvykle rychle najde optimální hodnoty proměnné Řešitel pro účelovou funkci. Ale v některých případech má Řešitel problém najít hodnoty proměnné Řešitel, které optimalizují účelovou funkci. V těchto případech Řešitel obvykle zobrazí zprávu nebo chybovou zprávu, která popisuje nebo popisuje problém, který […]
