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.







Sdílejte

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

Nové články

25.01.2017:
WorksheetFunctions funkce k dispozici ve VBA Excel

09.02.2017:
Jak na logaritmy LN, LOG, LOGZ

14.02.2017:
TEXTJOIN spojuje texty a přidá oddělovač


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 - 2017 | 2034

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