Přeskočit navigaci | Přeskočit na novinky

Nový videokurz na Seduo: Excel pro začátečníky

     

Jste zde: Úvodní stránka » excel » vba-triky » jak-excel-vytvorit-powerpoint-snimek

Jak v Excel VBA vytvořit PowerPoint snímek


Jak vytvářet PowerPointové snímky z Excel využitím VBA

Úvodem - Seznam kódu

Microsoft Excel logo

Pro přehlednost jsou ukázky rozděleno na jednotlivé kapitoly:


První snímek

Vytvoříme první prázdný snímek

Dim PPApp As PowerPoint.Application Dim PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide ' Vytvořit PowerPoint Set PPApp = CreateObject("Powerpoint.Application") PPApp.Visible = True ' Tvorba prezentace Set PPPres = PPApp.Presentations.Add PPApp.ActiveWindow.ViewType = ppViewSlide 'snímek Set PPSlide = PPPres.Slides.Add(1, ppLayoutTitleOnly)

Poznámka

Předpokládám, že máte k dispozici Microsoft PowerPoint Object Library. Zaškrtnuto v VBAProject-References.

  • 1. Ve VisualBasic v Menu Tools vybrat Reference
  • 2. Dialogové okno Reference VBAProject
  • 3. Najít Microsoft PowerPoint X.0 Object Library - zatrhnout
  • 4. Klik na OK

Vložení popisu

Do snímku doplníme titulek

PPSlide.Shapes.Title.TextFrame.TextRange.Text = "JakNaExcel.cz je super"

Text se dají i upravovat a měnit barvy


Vložit graf

Předpokladem graf na list 1 s názvem Graf 1

Set objChart = Worksheets("List1").ChartObjects("Graf 1").Chart objChart.ChartArea.Copy Set myShapeRange = PPSlide.Shapes.Paste

Posunout a změnit rozměr grafu

Jak změnit rozměry a posunout graf (proto jsem si jej v předchzím "uložil" Set myShapeRange).

With myShapeRange '.Width = 1000 '.Height = 100 .Left = 50 .Top = 150 End With

Přidat snímek - další

Přidání nového smínku č 2.

Set PPSlide = PPPres.Slides.Add(2, Layout:=ppLayoutText)

Ukončit

Pokud vše máme můžeme ukončit/ uložit a zavřít a uklidit.

' Uložit a zavřít With PPPres .SaveAs "d:\test\Moj-prvni-prezentace.ppt" .Close End With ' Konec PowerPoint PPApp.Quit ' čištění ;) Set PPSlide = Nothing Set PPPres = Nothing Set PPApp = Nothing

Celkový kód

Celkový kód, pro ukázku

Dim PPApp As PowerPoint.Application Dim PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide ' Vytvořit PowerPoint Set PPApp = CreateObject("Powerpoint.Application") PPApp.Visible = True ' Tvorba prezentace Set PPPres = PPApp.Presentations.Add PPApp.ActiveWindow.ViewType = ppViewSlide 'snímek Set PPSlide = PPPres.Slides.Add(1, ppLayoutTitleOnly) 'popis PPSlide.Shapes.Title.TextFrame.TextRange.Text = "JakNaExcel.cz je super" 'vložení graf Set objChart = Worksheets("List1").ChartObjects("Chart 1").Chart objChart.ChartArea.Copy Set myShapeRange = PPSlide.Shapes.Paste With myShapeRange ' .Width = 1000 ' .Height = 100 .Left = 50 .Top = 150 End With 'další snímek Set PPSlide = PPPres.Slides.Add(2, Layout:=ppLayoutText) ' Uložení With PPPres .SaveAs "D:\Test\MyPreso.ppt" End With

Závěrem

Postupem času přidám další kódy jak na přidavat a upravovat snímky v PowerPoint pomocí VBA z Excel.


Článek byl aktualizován: 27.03.2016 20:19

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, PowerPoint) se věnuji od roku 2006. Své vědomosti a zkušenosti dávám k dispozici na různých školeních a konzultacích, ale také na tomto webu. K dispozici na tomto webu je mnoho návodu, tipů a triků včetně desítek různých šablon.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil

Doporučte tento článek přátelům

Pokud vám článek pomohl, případně si myslíte, že může pomoci i někomu dalšímu, budu rád když jej sdílením doporučíte přátelům - děkuji:



Komentáře


miro

Přidáno: 08.04.16 20:39

Dako mi to nefunguje. Ked zakomentujem cast o grafe tak mi vytvori prvy aj druhy snímok. Inac po prvom snimku skonci chybovym hlasenim...

Pavel Lasák

Přidáno: 29.04.16 20:08

To miro: Máte aktivované Microsoft PowerPoint X.0 Object Library ? Případně dooporučuji zkusit zadat do google chybovou hlášku. Určitě někdo řešil podobný problém.


Přidání nového komentáře

Poznámka: Z časových důvodu není v mých sílách zodpovědět všechny dotazy. Děkuji za pochopení.




(vlož číslo padesátpět)

Z bezpečnostních důvodu dočasně nemůžete použít HTML značky, kromě <code> a </code> (pro vkládání VBA kódu). Děkuji za pochopení.
Děkuji, za Vaše komentáře.

Za obsah komentářů neodpovídám, jelikož jsou komentáře publikovány ihned po jejich napsání čtenářem. Toto nemohu nijak ovlivnit. Přesto si vyhrazuji možnost jakýkoli neslušný komentář smazat bez udání důvodu. V komentářích si tykáme. ;-)






Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Newsletter

Přihlaste se odběru novinek a získejte:
Ebook zdarma -
10 kroků ke zvládnutí (Word, Excel, PowerPoint)
Šipka Kniha 3D Více o ebooku ...

TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2016 | 1640

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.