{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["List1"],"not_rendered":{"charts":1,"images":3,"macros":0,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"List1","index":0,"n_rows":100,"n_cols":6,"rows_kept":100,"cut":false,"hidden":false,"merged":[[0,0,0,4]]}
["Graf test do PowerPoint"]
[]
[null,null,null,null,null,"Požadavky"]
[null,null,null,null,null,"k dipozici PowerPoint"]
[null,"Počet produktů","Prodej","Podíl na trhu",null,"v listu vytvořený graf se jménem Graf 1"]
[null,10,1000,25]
[null,20,2500,20]
[null,30,1500,35]
[null,50,3200,20]
[]
[null,null,null,null,null,"Požadavky"]
[null,null,null,null,null,"    Dim PPApp As PowerPoint.Application"]
[null,null,null,null,null,"    Dim PPPres As PowerPoint.Presentation"]
[null,null,null,null,null,"    Dim PPSlide As PowerPoint.Slide"]
[]
[null,null,null,null,null,"    ' Vytvořit PowerPoint"]
[null,null,null,null,null,"    Set PPApp = CreateObject(\"Powerpoint.Application\")"]
[null,null,null,null,null,"    PPApp.Visible = True"]
[]
[null,null,null,null,null,"    ' Tvorba prezentace"]
[null,null,null,null,null,"    Set PPPres = PPApp.Presentations.Add"]
[null,null,null,null,null,"    PPApp.ActiveWindow.ViewType = ppViewSlide"]
[null,null,null,null,null,"    "]
[null,null,null,null,null,"    'snímek"]
[null,null,null,null,null,"    Set PPSlide = PPPres.Slides.Add(1, ppLayoutTitleOnly)"]
[]
[]
[null,null,null,null,null,"Prezentace uložení"]
[null,null,null,null,null,"    Dim PPApp As PowerPoint.Application"]
[null,null,null,null,null,"    Dim PPPres As PowerPoint.Presentation"]
[null,null,null,null,null,"    Dim PPSlide As PowerPoint.Slide"]
[]
[null,null,null,null,null,"    ' Instance PowerPoint"]
[null,null,null,null,null,"    Set PPApp = CreateObject(\"Powerpoint.Application\")"]
[]
[null,null,null,null,null,"    ' PowerPoint zviditelnění"]
[null,null,null,null,null,"    PPApp.Visible = True"]
[]
[null,null,null,null,null,"    ' Vytvoření prezentace"]
[null,null,null,null,null,"    Set PPPres = PPApp.Presentations.Add"]
[null,null,null,null,null,"    "]
[null,null,null,null,null,"    ' Vytvoření snímku"]
[null,null,null,null,null,"    PPApp.ActiveWindow.ViewType = ppViewSlide"]
[]
[null,null,null,null,null,"    ' zkopírování grafu"]
[null,null,null,null,null,"    Set objChart = Worksheets(\"List1\").ChartObjects(\"Graf 1\").Chart"]
[null,null,null,null,null,"    objChart.ChartArea.Copy"]
[null,null,null,null,null,"    ' Přidání smímků"]
[null,null,null,null,null,"    Set PPSlide = PPPres.Slides.Add(1, ppLayoutBlank)"]
[null,null,null,null,null,"    PPSlide.Shapes.Paste"]
[]
[]
[null,null,null,null,null,"    ' Uložit a zavřít"]
[null,null,null,null,null,"    With PPPres"]
[null,null,null,null,null,"        .SaveAs \"d:\\test\\Moje-prvni-prezentace.ppt\""]
[null,null,null,null,null,"    End With"]
[]
[null,null,null,null,null,"    ' čištění ;)"]
[null,null,null,null,null,"    Set PPSlide = Nothing"]
[null,null,null,null,null,"    Set PPPres = Nothing"]
[null,null,null,null,null,"    Set PPApp = Nothing"]
[]
[]
[]
[null,null,null,null,null,"Prezentace text"]
[null,null,null,null,null,"   Dim PPApp As PowerPoint.Application"]
[null,null,null,null,null,"    Dim PPPres As PowerPoint.Presentation"]
[null,null,null,null,null,"    Dim PPSlide As PowerPoint.Slide"]
[]
[null,null,null,null,null,"    ' Vytvořit PowerPoint"]
[null,null,null,null,null,"    Set PPApp = CreateObject(\"Powerpoint.Application\")"]
[null,null,null,null,null,"    PPApp.Visible = True"]
[]
[null,null,null,null,null,"    ' Tvorba prezentace"]
[null,null,null,null,null,"    Set PPPres = PPApp.Presentations.Add"]
[null,null,null,null,null,"    PPApp.ActiveWindow.ViewType = ppViewSlide"]
[null,null,null,null,null,"    'snímek"]
[null,null,null,null,null,"    Set PPSlide = PPPres.Slides.Add(1, ppLayoutTitleOnly)"]
[null,null,null,null,null,"    'popis"]
[null,null,null,null,null,"    PPSlide.Shapes.Title.TextFrame.TextRange.Text = \"JakNaExcel.cz je super\""]
[]
[null,null,null,null,null,"    'vložení graf"]
[null,null,null,null,null,"    Set objChart = Worksheets(\"List1\").ChartObjects(\"Chart 1\").Chart"]
[null,null,null,null,null,"    objChart.ChartArea.Copy"]
[null,null,null,null,null,"    Set myShapeRange = PPSlide.Shapes.Paste"]
[null,null,null,null,null,"    "]
[null,null,null,null,null,"    With myShapeRange"]
[null,null,null,null,null,"     ' .Width = 1000"]
[null,null,null,null,null,"     ' .Height = 100"]
[null,null,null,null,null,"     .Left = 50"]
[null,null,null,null,null,"     .Top = 150"]
[null,null,null,null,null,"    End With"]
[]
[null,null,null,null,null,"    'další snímek prázdný"]
[null,null,null,null,null,"    Set PPSlide = PPPres.Slides.Add(2, Layout:=ppLayoutText)"]
[null,null,null,null,null,"    "]
[null,null,null,null,null,"    ' Uložení"]
[null,null,null,null,null,"    With PPPres"]
[null,null,null,null,null,"        .SaveAs \"D:\\Test\\Moje2.ppt\""]
[null,null,null,null,null,"    End With"]