{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["Komentáře"],"not_rendered":{"charts":0,"images":7,"macros":0,"external_links":0,"defined_names":0,"comments":1,"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":"Komentáře","index":0,"n_rows":86,"n_cols":10,"rows_kept":86,"cut":false,"hidden":false,"merged":[[0,0,0,8],[1,0,1,8],[2,0,2,8],[55,0,55,8],[58,0,58,10]]}
["Komentáře a VBA Excel"]
["http://office.lasakovi.com"]
["http://JakNaExcel.cz"]
[]
[null,null,null,null,null,null,null,null,null,"Komentář"]
[null,null,null,null,null,null,null,null,null," If ActiveCell.Comment Is Nothing Then"]
[null,null,null,null,null,null,null,null,null,"        MsgBox \"Nebsahuje komentář.\""]
[null,"test",null,null,null,null,null,null,null," Else"]
[null,null,null,null,null,null,null,null,null,"         komentarVBunce = ActiveCell.Comment.Text"]
[null,null,null,null,null,null,null,null,null,"         MsgBox \"Obsahuje komentář: \" & komentarVBunce"]
[null,null,null,null,null,null,null,null,null," End If"]
[]
[null,null,null,null,null,null,null,null,null,"Komentář - text z buňky"]
[null,"abrakadabra",null,null,null,null,null,null,null,"If ActiveCell.Comment Is Nothing Then"]
[null,null,null,null,null,null,null,null,null,"       ActiveCell.AddComment.Text Text:=ActiveCell.FormulaLocal"]
[null,null,null,null,null,null,null,null,null,"End If"]
[]
[null,null,null,null,null,null,null,null,null,"Komentář - smaž"]
[null,null,null,null,null,null,null,null,null," If ActiveCell.Comment Is Nothing Then"]
[null,null,null,null,null,null,null,null,null,"    MsgBox \"Označ buňku s komentářem...\""]
[null,null,null,null,null,null,null,null,null," Else"]
[null,null,null,null,null,null,null,null,null,"    ActiveCell.Comment.Delete"]
[null,null,null,null,null,null,null,null,null," End If"]
[]
[null,null,null,null,null,null,null,null,null,"Komentář - smaž text"]
[null,null,null,null,null,null,null,null,null," If ActiveCell.Comment Is Nothing Then"]
[null,null,null,null,null,null,null,null,null,"     MsgBox \"Označ buňku s komentářem...\""]
[null,null,null,null,null,null,null,null,null," Else"]
[null,null,null,null,null,null,null,null,null,"     ActiveCell.Comment.Text Text:=\" \""]
[null,null,null,null,null,null,null,null,null," End If"]
[]
[null,null,null,null,null,null,null,null,null,"Komentář - formát textu"]
[null,null,null,null,null,null,null,null,null," If ActiveCell.Comment Is Nothing Then"]
[null,null,null,null,null,null,null,null,null,"      MsgBox \"Označ buňku s komentářem...\""]
[null,null,null,null,null,null,null,null,null," Else"]
[null,null,null,null,null,null,null,null,null," With ActiveCell.Comment.Shape.TextFrame.Characters.Font"]
[null,null,null,null,null,null,null,null,null,"    .Name = \"Times New Roman\""]
[null,null,null,null,null,null,null,null,null,"    .Size = 15"]
[null,null,null,null,null,null,null,null,null,"    .Bold = True"]
[null,null,null,null,null,null,null,null,null,"    .ColorIndex = 3"]
[null,null,null,null,null,null,null,null,null," End With"]
[null,null,null,null,null,null,null,null,null,"End If"]
[]
[]
[]
[null,null,null,null,null,null,null,null,null,"Komentář - tvar komentáře"]
[null,null,null,null,null,null,null,null,null," If ActiveCell.Comment Is Nothing Then"]
[null,null,null,null,null,null,null,null,null,"    MsgBox \"A neozančí a neoznačí buňku s komentářem ;) ...\""]
[null,null,null,null,null,null,null,null,null," Else"]
[null,null,null,null,null,null,null,null,null," With ActiveCell.Comment.Shape"]
[null,null,null,null,null,null,null,null,null,"    .AutoShapeType = msoShape32pointStar"]
[null,null,null,null,null,null,null,null,null,"    .Line.Visible = msoFalse"]
[null,null,null,null,null,null,null,null,null," End With"]
[null,null,null,null,null,null,null,null,null," End If"]
[]
["Ukázky jak na komentáře. Nejdou kontrolovány zadávaná data."]
[]
[]
[]
[]
[null,null,null,null,null,null,null,null,null,"ZpravaA = \"Zadejte stranu A (m)\""]
[null,null,null,null,null,null,null,null,null,"ZpravaB = \"Zadejte stranu B (m)\""]
[null,null,null,null,null,null,null,null,null,"Titulek_dialogu = \"Vstupní dialog pro vypočet obdelníku\""]
[null,null,null,null,null,null,null,null,null,"Vychozi_hodnota = 5"]
[null,null,null,null,null,null,null,null,null,"Posice_X = 100"]
[null,null,null,null,null,null,null,null,null,"Posice_Y = 200"]
[]
[null,null,null,null,null,null,null,null,null,"StranaA = Application.InputBox(ZpravaA, Titulek_dialogu, Vychozi_hodnota, Posice_X, Posice_Y, Type:=1)"]
[null,null,null,null,null,null,null,null,null,"StranaB = Application.InputBox(ZpravaB, Titulek_dialogu, Vychozi_hodnota, Posice_X, Posice_Y, Type:=1)"]
[]
[null,null,null,null,null,null,null,null,null,"Plocha = StranaA * StranaB"]
[]
[null,null,null,null,null,null,null,null,null,"Text = \"Plocha obdelníku je: \" & Plocha & \" m2\""]
[]
[null,null,null,null,null,null,null,null,null,"Set cmt = ActiveCell.Comment"]
[]
[null,null,null,null,null,null,null,null,null,"If cmt Is Nothing Then"]
[null,null,null,null,null,null,null,null,null,"  ActiveCell.AddComment Text:=Text"]
[null,null,null,null,null,null,null,null,null,"  Set cmt = ActiveCell.Comment"]
[null,null,null,null,null,null,null,null,null,"  With cmt.Shape.TextFrame.Characters.Font"]
[null,null,null,null,null,null,null,null,null,"    .Name = \"Times New Roman\""]
[null,null,null,null,null,null,null,null,null,"    .Size = 15"]
[null,null,null,null,null,null,null,null,null,"    .Bold = False"]
[null,null,null,null,null,null,null,null,null,"    .ColorIndex = 3"]
[null,null,null,null,null,null,null,null,null,"  End With"]
[null,null,null,null,null,null,null,null,null,"End If"]