API tools faq
paste
SGvagon

Poslech klíč Makra Module 1

SGvagon
May 30th, 2022 (edited)
79
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 337.94 KB | None | 0 0
raw download clone embed print report
  1. Sub Pole1()
  2. '
  3. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  4. '
  5. With ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor
  6. Select Case .RGB
  7. Case vbWhite
  8. .RGB = vbMagenta
  9. Case vbMagenta
  10. .RGB = vbYellow
  11. Case vbGreen
  12. .RGB = vbWhite
  13. Case vbYellow
  14. .RGB = vbBlack
  15. Case vbBlack
  16. .RGB = vbGreen
  17.  
  18. End Select
  19. End With
  20.  
  21. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  22. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  23. ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False
  24. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  25. End If
  26.  
  27. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  28. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  29. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  30. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  31. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  32. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  33. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  34. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  35. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  36. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  37. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  38. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  39. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  40. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  41. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  42. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  43. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  44. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  45. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  46. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  47. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  48. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  49. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  50. End If
  51.  
  52. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  53. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  54. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  55. End If
  56.  
  57. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1 Then
  58. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 0.5
  59. ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = True
  60. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  61. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  62. End If
  63.  
  64. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  65. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 0.5
  66. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  67. With SlideShowWindows(1).View
  68. WaitSeconds 3
  69.  
  70. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  71. DoEvents 'do nothing
  72. ElseIf ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  73. DoEvents 'do nothing
  74. ElseIf ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  75. DoEvents 'do nothing
  76. ElseIf ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  77. DoEvents 'do nothing
  78. Else
  79. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0)
  80. End If
  81. End With
  82. End If
  83.  
  84. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1 Then
  85. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 0.5
  86. End If
  87.  
  88. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  89. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  90. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  91. End If
  92.  
  93. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  94. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  95. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  96. End If
  97.  
  98. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  99. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  100. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  101. End If
  102.  
  103. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  104. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  105. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  106. End If
  107.  
  108. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  109. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  110. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  111. End If
  112.  
  113. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  114. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  115. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  116. End If
  117.  
  118. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  119. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  120. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  121. End If
  122.  
  123. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  124. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  125. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  126. End If
  127.  
  128. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  129. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  130. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  131. End If
  132.  
  133. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  134. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  135. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  136. End If
  137.  
  138. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  139. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  140. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  141. End If
  142.  
  143. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  144. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  145. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  146. End If
  147.  
  148. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  149. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  150. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  151. End If
  152.  
  153. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  154. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  155. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  156. End If
  157.  
  158. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  159. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  160. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  161. End If
  162.  
  163. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  164. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  165. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  166. End If
  167.  
  168. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  169. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  170. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  171. End If
  172.  
  173. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  174. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  175. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  176. End If
  177.  
  178. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  179. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  180. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  181. End If
  182.  
  183. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  184. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  185. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  186. End If
  187.  
  188. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  189. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  190. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  191. End If
  192.  
  193. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  194. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  195. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  196. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  197. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  198. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  199. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  200. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  201. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  202. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  203. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  204. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  205. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  206. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  207. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  208. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  209. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  210. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(255, 255, 0)
  211. With SlideShowWindows(1).View
  212.  
  213. WaitSeconds 4
  214.  
  215. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  216. DoEvents 'do nothing
  217. ElseIf ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  218. DoEvents 'do nothing
  219. ElseIf ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  220. DoEvents 'do nothing
  221. ElseIf ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  222. DoEvents 'do nothing
  223. Else
  224. .GotoSlide 6, msoFalse
  225. End If
  226. End With
  227. End If
  228.  
  229. If ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  230. (ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  231. (ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  232. (ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  233. (ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  234. (ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  235. (ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  236. (ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  237. (ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  238. (ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  239. (ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  240. (ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  241. (ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  242. (ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  243. (ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  244. (ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  245. (ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  246. (ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0)) Then
  247. With SlideShowWindows(1).View
  248.  
  249. WaitSeconds 5
  250.  
  251. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  252. DoEvents 'do nothing
  253. ElseIf ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  254. DoEvents 'do nothing
  255. ElseIf ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  256. DoEvents 'do nothing
  257. Else
  258. .GotoSlide 10, msoFalse
  259. End If
  260. End With
  261. End If
  262.  
  263. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  264. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  265. (ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  266. (ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  267. (ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  268. (ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 0)) Then
  269. With SlideShowWindows(1).View
  270.  
  271. WaitSeconds 3
  272.  
  273. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  274. DoEvents 'do nothing
  275. ElseIf ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  276. DoEvents 'do nothing
  277. ElseIf ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  278. DoEvents 'do nothing
  279. ElseIf ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  280. DoEvents 'do nothing
  281. Else
  282. .GotoSlide 10, msoFalse
  283. End If
  284. End With
  285. End If
  286.  
  287. End Sub
  288. Sub Pole2()
  289. '
  290. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  291. '
  292. With ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor
  293. Select Case .RGB
  294. Case vbWhite
  295. .RGB = vbMagenta
  296. Case vbMagenta
  297. .RGB = vbYellow
  298. Case vbGreen
  299. .RGB = vbWhite
  300. Case vbYellow
  301. .RGB = vbBlack
  302. Case vbBlack
  303. .RGB = vbGreen
  304.  
  305. End Select
  306. End With
  307.  
  308. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  309. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  310. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False
  311. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  312. End If
  313.  
  314. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  315. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  316. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  317. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  318. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  319. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  320. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  321. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  322. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  323. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  324. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  325. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  326. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  327. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  328. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  329. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  330. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  331. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  332. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  333. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  334. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  335. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  336. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  337. End If
  338.  
  339. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  340. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  341. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  342. End If
  343.  
  344. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1 Then
  345. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 0.5
  346. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = True
  347. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  348. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  349. End If
  350.  
  351. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  352. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 0.5
  353. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  354. With SlideShowWindows(1).View
  355. WaitSeconds 3
  356.  
  357. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  358. DoEvents 'do nothing
  359. ElseIf ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  360. DoEvents 'do nothing
  361. ElseIf ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  362. DoEvents 'do nothing
  363. ElseIf ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  364. DoEvents 'do nothing
  365. Else
  366. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0)
  367. End If
  368. End With
  369. End If
  370.  
  371. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1 Then
  372. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 0.5
  373. End If
  374.  
  375. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  376. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  377. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  378. End If
  379.  
  380. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  381. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  382. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  383. End If
  384.  
  385. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  386. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  387. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  388. End If
  389.  
  390. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  391. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  392. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  393. End If
  394.  
  395. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  396. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  397. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  398. End If
  399.  
  400. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  401. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  402. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  403. End If
  404.  
  405. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  406. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  407. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  408. End If
  409.  
  410. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  411. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  412. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  413. End If
  414.  
  415. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  416. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  417. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  418. End If
  419.  
  420. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  421. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  422. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  423. End If
  424.  
  425. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  426. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  427. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  428. End If
  429.  
  430. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  431. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  432. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  433. End If
  434.  
  435. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  436. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  437. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  438. End If
  439.  
  440. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  441. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  442. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  443. End If
  444.  
  445. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  446. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  447. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  448. End If
  449.  
  450. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  451. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  452. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  453. End If
  454.  
  455. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  456. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  457. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  458. End If
  459.  
  460. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  461. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  462. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  463. End If
  464.  
  465. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  466. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  467. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  468. End If
  469.  
  470. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  471. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  472. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  473. End If
  474.  
  475. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  476. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  477. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  478. End If
  479.  
  480. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  481. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  482. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  483. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  484. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  485. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  486. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  487. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  488. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  489. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  490. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  491. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  492. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  493. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  494. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  495. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  496. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  497. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(255, 255, 0)
  498. With SlideShowWindows(1).View
  499.  
  500. WaitSeconds 4
  501.  
  502. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  503. DoEvents 'do nothing
  504. ElseIf ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  505. DoEvents 'do nothing
  506. ElseIf ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  507. DoEvents 'do nothing
  508. ElseIf ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  509. DoEvents 'do nothing
  510. Else
  511. .GotoSlide 6, msoFalse
  512. End If
  513. End With
  514. End If
  515.  
  516. If ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  517. (ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  518. (ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  519. (ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  520. (ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  521. (ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  522. (ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  523. (ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  524. (ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  525. (ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  526. (ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  527. (ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  528. (ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  529. (ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  530. (ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  531. (ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  532. (ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  533. (ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0)) Then
  534. With SlideShowWindows(1).View
  535.  
  536. WaitSeconds 5
  537.  
  538. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  539. DoEvents 'do nothing
  540. ElseIf ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  541. DoEvents 'do nothing
  542. ElseIf ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  543. DoEvents 'do nothing
  544. Else
  545. .GotoSlide 10, msoFalse
  546. End If
  547. End With
  548. End If
  549.  
  550. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  551. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  552. (ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  553. (ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  554. (ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  555. (ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 0)) Then
  556. With SlideShowWindows(1).View
  557.  
  558. WaitSeconds 3
  559.  
  560. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  561. DoEvents 'do nothing
  562. ElseIf ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  563. DoEvents 'do nothing
  564. ElseIf ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  565. DoEvents 'do nothing
  566. ElseIf ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  567. DoEvents 'do nothing
  568. Else
  569. .GotoSlide 10, msoFalse
  570. End If
  571. End With
  572. End If
  573.  
  574. End Sub
  575. Sub Pole3()
  576. '
  577. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  578. '
  579. With ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor
  580. Select Case .RGB
  581. Case vbWhite
  582. .RGB = vbMagenta
  583. Case vbMagenta
  584. .RGB = vbYellow
  585. Case vbGreen
  586. .RGB = vbWhite
  587. Case vbYellow
  588. .RGB = vbBlack
  589. Case vbBlack
  590. .RGB = vbGreen
  591.  
  592. End Select
  593. End With
  594.  
  595. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  596. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  597. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False
  598. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  599. End If
  600.  
  601. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  602. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  603. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  604. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  605. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  606. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  607. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  608. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  609. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  610. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  611. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  612. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  613. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  614. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  615. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  616. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  617. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  618. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  619. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  620. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  621. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  622. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  623. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  624. End If
  625.  
  626. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  627. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  628. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  629. End If
  630.  
  631. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1 Then
  632. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 0.5
  633. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = True
  634. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  635. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  636. End If
  637.  
  638. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  639. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 0.5
  640. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  641. With SlideShowWindows(1).View
  642. WaitSeconds 3
  643.  
  644. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  645. DoEvents 'do nothing
  646. ElseIf ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  647. DoEvents 'do nothing
  648. ElseIf ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  649. DoEvents 'do nothing
  650. ElseIf ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  651. DoEvents 'do nothing
  652. Else
  653. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0)
  654. End If
  655. End With
  656. End If
  657.  
  658. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1 Then
  659. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 0.5
  660. End If
  661.  
  662. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  663. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  664. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  665. End If
  666.  
  667. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  668. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  669. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  670. End If
  671.  
  672. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  673. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  674. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  675. End If
  676.  
  677. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  678. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  679. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  680. End If
  681.  
  682. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  683. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  684. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  685. End If
  686.  
  687. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  688. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  689. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  690. End If
  691.  
  692. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  693. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  694. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  695. End If
  696.  
  697. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  698. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  699. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  700. End If
  701.  
  702. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  703. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  704. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  705. End If
  706.  
  707. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  708. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  709. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  710. End If
  711.  
  712. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  713. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  714. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  715. End If
  716.  
  717. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  718. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  719. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  720. End If
  721.  
  722. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  723. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  724. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  725. End If
  726.  
  727. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  728. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  729. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  730. End If
  731.  
  732. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  733. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  734. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  735. End If
  736.  
  737. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  738. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  739. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  740. End If
  741.  
  742. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  743. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  744. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  745. End If
  746.  
  747. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  748. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  749. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  750. End If
  751.  
  752. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  753. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  754. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  755. End If
  756.  
  757. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  758. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  759. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  760. End If
  761.  
  762. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  763. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  764. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  765. End If
  766.  
  767. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  768. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  769. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  770. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  771. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  772. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  773. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  774. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  775. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  776. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  777. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  778. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  779. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  780. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  781. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  782. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  783. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  784. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(255, 255, 0)
  785. With SlideShowWindows(1).View
  786.  
  787. WaitSeconds 4
  788.  
  789. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  790. DoEvents 'do nothing
  791. ElseIf ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  792. DoEvents 'do nothing
  793. ElseIf ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  794. DoEvents 'do nothing
  795. ElseIf ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  796. DoEvents 'do nothing
  797. Else
  798. .GotoSlide 6, msoFalse
  799. End If
  800. End With
  801. End If
  802.  
  803. If ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  804. (ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  805. (ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  806. (ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  807. (ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  808. (ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  809. (ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  810. (ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  811. (ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  812. (ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  813. (ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  814. (ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  815. (ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  816. (ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  817. (ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  818. (ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  819. (ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  820. (ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0)) Then
  821. With SlideShowWindows(1).View
  822.  
  823. WaitSeconds 5
  824.  
  825. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  826. DoEvents 'do nothing
  827. ElseIf ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  828. DoEvents 'do nothing
  829. ElseIf ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  830. DoEvents 'do nothing
  831. Else
  832. .GotoSlide 10, msoFalse
  833. End If
  834. End With
  835. End If
  836.  
  837. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  838. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  839. (ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  840. (ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  841. (ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  842. (ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 0)) Then
  843. With SlideShowWindows(1).View
  844.  
  845. WaitSeconds 3
  846.  
  847. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  848. DoEvents 'do nothing
  849. ElseIf ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  850. DoEvents 'do nothing
  851. ElseIf ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  852. DoEvents 'do nothing
  853. ElseIf ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  854. DoEvents 'do nothing
  855. Else
  856. .GotoSlide 10, msoFalse
  857. End If
  858. End With
  859. End If
  860.  
  861. End Sub
  862. Sub Pole4()
  863. '
  864. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  865. '
  866. With ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor
  867. Select Case .RGB
  868. Case vbWhite
  869. .RGB = vbMagenta
  870. Case vbMagenta
  871. .RGB = vbYellow
  872. Case vbGreen
  873. .RGB = vbWhite
  874. Case vbYellow
  875. .RGB = vbBlack
  876. Case vbBlack
  877. .RGB = vbGreen
  878.  
  879. End Select
  880. End With
  881.  
  882. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  883. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  884. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False
  885. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  886. End If
  887.  
  888. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  889. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  890. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  891. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  892. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  893. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  894. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  895. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  896. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  897. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  898. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  899. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  900. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  901. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  902. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  903. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  904. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  905. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  906. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  907. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  908. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  909. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  910. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  911. End If
  912.  
  913. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  914. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  915. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  916. End If
  917.  
  918. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1 Then
  919. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 0.5
  920. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = True
  921. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  922. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  923. End If
  924.  
  925. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  926. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 0.5
  927. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  928. With SlideShowWindows(1).View
  929. WaitSeconds 3
  930.  
  931. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  932. DoEvents 'do nothing
  933. ElseIf ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  934. DoEvents 'do nothing
  935. ElseIf ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  936. DoEvents 'do nothing
  937. ElseIf ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  938. DoEvents 'do nothing
  939. Else
  940. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0)
  941. End If
  942. End With
  943. End If
  944.  
  945. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1 Then
  946. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 0.5
  947. End If
  948.  
  949. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  950. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  951. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  952. End If
  953.  
  954. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  955. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  956. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  957. End If
  958.  
  959. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  960. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  961. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  962. End If
  963.  
  964. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  965. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  966. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  967. End If
  968.  
  969. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  970. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  971. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  972. End If
  973.  
  974. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  975. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  976. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  977. End If
  978.  
  979. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  980. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  981. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  982. End If
  983.  
  984. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  985. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  986. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  987. End If
  988.  
  989. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  990. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  991. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  992. End If
  993.  
  994. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  995. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  996. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  997. End If
  998.  
  999. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1000. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1001. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  1002. End If
  1003.  
  1004. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1005. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1006. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  1007. End If
  1008.  
  1009. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1010. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1011. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  1012. End If
  1013.  
  1014. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1015. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1016. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  1017. End If
  1018.  
  1019. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1020. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1021. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  1022. End If
  1023.  
  1024. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1025. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1026. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  1027. End If
  1028.  
  1029. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1030. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1031. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  1032. End If
  1033.  
  1034. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1035. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1036. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  1037. End If
  1038.  
  1039. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1040. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1041. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  1042. End If
  1043.  
  1044. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1045. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1046. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  1047. End If
  1048.  
  1049. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1050. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1051. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  1052. End If
  1053.  
  1054. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1055. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1056. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1057. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1058. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1059. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1060. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1061. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1062. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1063. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1064. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1065. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1066. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1067. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1068. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1069. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1070. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  1071. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(255, 255, 0)
  1072. With SlideShowWindows(1).View
  1073.  
  1074. WaitSeconds 4
  1075.  
  1076. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1077. DoEvents 'do nothing
  1078. ElseIf ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  1079. DoEvents 'do nothing
  1080. ElseIf ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  1081. DoEvents 'do nothing
  1082. ElseIf ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  1083. DoEvents 'do nothing
  1084. Else
  1085. .GotoSlide 6, msoFalse
  1086. End If
  1087. End With
  1088. End If
  1089.  
  1090. If ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  1091. (ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1092. (ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1093. (ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1094. (ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1095. (ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1096. (ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1097. (ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1098. (ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1099. (ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1100. (ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1101. (ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1102. (ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1103. (ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1104. (ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1105. (ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1106. (ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1107. (ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0)) Then
  1108. With SlideShowWindows(1).View
  1109.  
  1110. WaitSeconds 5
  1111.  
  1112. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1113. DoEvents 'do nothing
  1114. ElseIf ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  1115. DoEvents 'do nothing
  1116. ElseIf ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  1117. DoEvents 'do nothing
  1118. Else
  1119. .GotoSlide 10, msoFalse
  1120. End If
  1121. End With
  1122. End If
  1123.  
  1124. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  1125. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1126. (ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  1127. (ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  1128. (ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  1129. (ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 0)) Then
  1130. With SlideShowWindows(1).View
  1131.  
  1132. WaitSeconds 3
  1133.  
  1134. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1135. DoEvents 'do nothing
  1136. ElseIf ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  1137. DoEvents 'do nothing
  1138. ElseIf ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  1139. DoEvents 'do nothing
  1140. ElseIf ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  1141. DoEvents 'do nothing
  1142. Else
  1143. .GotoSlide 10, msoFalse
  1144. End If
  1145. End With
  1146. End If
  1147.  
  1148. End Sub
  1149. Sub Pole5()
  1150. '
  1151. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  1152. '
  1153. With ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor
  1154. Select Case .RGB
  1155. Case vbWhite
  1156. .RGB = vbMagenta
  1157. Case vbMagenta
  1158. .RGB = vbYellow
  1159. Case vbGreen
  1160. .RGB = vbWhite
  1161. Case vbYellow
  1162. .RGB = vbBlack
  1163. Case vbBlack
  1164. .RGB = vbGreen
  1165.  
  1166. End Select
  1167. End With
  1168.  
  1169. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  1170. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  1171. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False
  1172. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  1173. End If
  1174.  
  1175. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  1176. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  1177. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  1178. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  1179. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  1180. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  1181. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  1182. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  1183. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  1184. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  1185. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  1186. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  1187. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  1188. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  1189. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  1190. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  1191. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  1192. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  1193. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  1194. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  1195. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  1196. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  1197. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  1198. End If
  1199.  
  1200. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  1201. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  1202. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  1203. End If
  1204.  
  1205. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1 Then
  1206. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 0.5
  1207. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = True
  1208. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  1209. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  1210. End If
  1211.  
  1212. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  1213. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 0.5
  1214. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  1215. With SlideShowWindows(1).View
  1216. WaitSeconds 3
  1217.  
  1218. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1219. DoEvents 'do nothing
  1220. ElseIf ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  1221. DoEvents 'do nothing
  1222. ElseIf ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  1223. DoEvents 'do nothing
  1224. ElseIf ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  1225. DoEvents 'do nothing
  1226. Else
  1227. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0)
  1228. End If
  1229. End With
  1230. End If
  1231.  
  1232. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1 Then
  1233. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 0.5
  1234. End If
  1235.  
  1236. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1237. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1238. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  1239. End If
  1240.  
  1241. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1242. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1243. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  1244. End If
  1245.  
  1246. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1247. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1248. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  1249. End If
  1250.  
  1251. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1252. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1253. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  1254. End If
  1255.  
  1256. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1257. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1258. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  1259. End If
  1260.  
  1261. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1262. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1263. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  1264. End If
  1265.  
  1266. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1267. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1268. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  1269. End If
  1270.  
  1271. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1272. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1273. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  1274. End If
  1275.  
  1276. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1277. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1278. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  1279. End If
  1280.  
  1281. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1282. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1283. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  1284. End If
  1285.  
  1286. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1287. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1288. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  1289. End If
  1290.  
  1291. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1292. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1293. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  1294. End If
  1295.  
  1296. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1297. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1298. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  1299. End If
  1300.  
  1301. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1302. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1303. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  1304. End If
  1305.  
  1306. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1307. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1308. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  1309. End If
  1310.  
  1311. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1312. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1313. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  1314. End If
  1315.  
  1316. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1317. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1318. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  1319. End If
  1320.  
  1321. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1322. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1323. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  1324. End If
  1325.  
  1326. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1327. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1328. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  1329. End If
  1330.  
  1331. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1332. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1333. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  1334. End If
  1335.  
  1336. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1337. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1338. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  1339. End If
  1340.  
  1341. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1342. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1343. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1344. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1345. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1346. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1347. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1348. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1349. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1350. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1351. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1352. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1353. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1354. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1355. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1356. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1357. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  1358. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(255, 255, 0)
  1359. With SlideShowWindows(1).View
  1360.  
  1361. WaitSeconds 4
  1362.  
  1363. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1364. DoEvents 'do nothing
  1365. ElseIf ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  1366. DoEvents 'do nothing
  1367. ElseIf ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  1368. DoEvents 'do nothing
  1369. ElseIf ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  1370. DoEvents 'do nothing
  1371. Else
  1372. .GotoSlide 6, msoFalse
  1373. End If
  1374. End With
  1375. End If
  1376.  
  1377. If ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  1378. (ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1379. (ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1380. (ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1381. (ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1382. (ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1383. (ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1384. (ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1385. (ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1386. (ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1387. (ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1388. (ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1389. (ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1390. (ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1391. (ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1392. (ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1393. (ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1394. (ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0)) Then
  1395. With SlideShowWindows(1).View
  1396.  
  1397. WaitSeconds 5
  1398.  
  1399. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1400. DoEvents 'do nothing
  1401. ElseIf ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  1402. DoEvents 'do nothing
  1403. ElseIf ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  1404. DoEvents 'do nothing
  1405. Else
  1406. .GotoSlide 10, msoFalse
  1407. End If
  1408. End With
  1409. End If
  1410.  
  1411. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  1412. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1413. (ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  1414. (ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  1415. (ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  1416. (ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 0)) Then
  1417. With SlideShowWindows(1).View
  1418.  
  1419. WaitSeconds 3
  1420.  
  1421. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1422. DoEvents 'do nothing
  1423. ElseIf ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  1424. DoEvents 'do nothing
  1425. ElseIf ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  1426. DoEvents 'do nothing
  1427. ElseIf ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  1428. DoEvents 'do nothing
  1429. Else
  1430. .GotoSlide 10, msoFalse
  1431. End If
  1432. End With
  1433. End If
  1434.  
  1435. End Sub
  1436. Sub Pole6()
  1437. '
  1438. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  1439. '
  1440. With ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor
  1441. Select Case .RGB
  1442. Case vbWhite
  1443. .RGB = vbMagenta
  1444. Case vbMagenta
  1445. .RGB = vbYellow
  1446. Case vbGreen
  1447. .RGB = vbWhite
  1448. Case vbYellow
  1449. .RGB = vbBlack
  1450. Case vbBlack
  1451. .RGB = vbGreen
  1452.  
  1453. End Select
  1454. End With
  1455.  
  1456. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  1457. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  1458. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False
  1459. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  1460. End If
  1461.  
  1462. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  1463. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  1464. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  1465. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  1466. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  1467. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  1468. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  1469. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  1470. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  1471. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  1472. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  1473. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  1474. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  1475. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  1476. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  1477. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  1478. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  1479. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  1480. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  1481. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  1482. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  1483. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  1484. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  1485. End If
  1486.  
  1487. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  1488. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  1489. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  1490. End If
  1491.  
  1492. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1 Then
  1493. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 0.5
  1494. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = True
  1495. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  1496. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  1497. End If
  1498.  
  1499. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  1500. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 0.5
  1501. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  1502. With SlideShowWindows(1).View
  1503. WaitSeconds 3
  1504.  
  1505. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1506. DoEvents 'do nothing
  1507. ElseIf ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  1508. DoEvents 'do nothing
  1509. ElseIf ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  1510. DoEvents 'do nothing
  1511. ElseIf ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  1512. DoEvents 'do nothing
  1513. Else
  1514. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0)
  1515. End If
  1516. End With
  1517. End If
  1518.  
  1519. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1 Then
  1520. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 0.5
  1521. End If
  1522.  
  1523. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1524. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1525. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  1526. End If
  1527.  
  1528. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1529. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1530. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  1531. End If
  1532.  
  1533. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1534. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1535. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  1536. End If
  1537.  
  1538. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1539. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1540. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  1541. End If
  1542.  
  1543. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1544. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1545. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  1546. End If
  1547.  
  1548. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1549. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1550. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  1551. End If
  1552.  
  1553. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1554. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1555. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  1556. End If
  1557.  
  1558. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1559. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1560. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  1561. End If
  1562.  
  1563. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1564. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1565. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  1566. End If
  1567.  
  1568. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1569. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1570. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  1571. End If
  1572.  
  1573. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1574. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1575. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  1576. End If
  1577.  
  1578. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1579. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1580. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  1581. End If
  1582.  
  1583. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1584. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1585. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  1586. End If
  1587.  
  1588. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1589. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1590. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  1591. End If
  1592.  
  1593. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1594. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1595. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  1596. End If
  1597.  
  1598. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1599. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1600. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  1601. End If
  1602.  
  1603. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1604. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1605. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  1606. End If
  1607.  
  1608. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1609. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1610. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  1611. End If
  1612.  
  1613. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1614. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1615. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  1616. End If
  1617.  
  1618. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1619. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1620. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  1621. End If
  1622.  
  1623. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1624. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1625. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  1626. End If
  1627.  
  1628. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1629. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1630. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1631. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1632. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1633. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1634. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1635. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1636. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1637. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1638. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1639. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1640. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1641. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1642. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1643. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1644. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  1645. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(255, 255, 0)
  1646. With SlideShowWindows(1).View
  1647.  
  1648. WaitSeconds 4
  1649.  
  1650. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1651. DoEvents 'do nothing
  1652. ElseIf ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  1653. DoEvents 'do nothing
  1654. ElseIf ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  1655. DoEvents 'do nothing
  1656. ElseIf ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  1657. DoEvents 'do nothing
  1658. Else
  1659. .GotoSlide 6, msoFalse
  1660. End If
  1661. End With
  1662. End If
  1663.  
  1664. If ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  1665. (ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1666. (ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1667. (ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1668. (ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1669. (ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1670. (ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1671. (ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1672. (ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1673. (ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1674. (ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1675. (ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1676. (ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1677. (ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1678. (ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1679. (ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1680. (ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1681. (ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0)) Then
  1682. With SlideShowWindows(1).View
  1683.  
  1684. WaitSeconds 5
  1685.  
  1686. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1687. DoEvents 'do nothing
  1688. ElseIf ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  1689. DoEvents 'do nothing
  1690. ElseIf ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  1691. DoEvents 'do nothing
  1692. Else
  1693. .GotoSlide 10, msoFalse
  1694. End If
  1695. End With
  1696. End If
  1697.  
  1698. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  1699. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1700. (ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  1701. (ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  1702. (ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  1703. (ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 0)) Then
  1704. With SlideShowWindows(1).View
  1705.  
  1706. WaitSeconds 3
  1707.  
  1708. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1709. DoEvents 'do nothing
  1710. ElseIf ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  1711. DoEvents 'do nothing
  1712. ElseIf ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  1713. DoEvents 'do nothing
  1714. ElseIf ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  1715. DoEvents 'do nothing
  1716. Else
  1717. .GotoSlide 10, msoFalse
  1718. End If
  1719. End With
  1720. End If
  1721.  
  1722. End Sub
  1723. Sub Pole7()
  1724. '
  1725. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  1726. '
  1727. With ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor
  1728. Select Case .RGB
  1729. Case vbWhite
  1730. .RGB = vbMagenta
  1731. Case vbMagenta
  1732. .RGB = vbYellow
  1733. Case vbGreen
  1734. .RGB = vbWhite
  1735. Case vbYellow
  1736. .RGB = vbBlack
  1737. Case vbBlack
  1738. .RGB = vbGreen
  1739.  
  1740. End Select
  1741. End With
  1742.  
  1743. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  1744. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  1745. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False
  1746. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  1747. End If
  1748.  
  1749. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  1750. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  1751. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  1752. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  1753. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  1754. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  1755. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  1756. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  1757. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  1758. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  1759. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  1760. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  1761. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  1762. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  1763. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  1764. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  1765. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  1766. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  1767. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  1768. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  1769. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  1770. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  1771. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  1772. End If
  1773.  
  1774. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  1775. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  1776. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  1777. End If
  1778.  
  1779. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1 Then
  1780. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 0.5
  1781. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = True
  1782. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  1783. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  1784. End If
  1785.  
  1786. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  1787. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 0.5
  1788. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  1789. With SlideShowWindows(1).View
  1790. WaitSeconds 3
  1791.  
  1792. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1793. DoEvents 'do nothing
  1794. ElseIf ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  1795. DoEvents 'do nothing
  1796. ElseIf ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  1797. DoEvents 'do nothing
  1798. ElseIf ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  1799. DoEvents 'do nothing
  1800. Else
  1801. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0)
  1802. End If
  1803. End With
  1804. End If
  1805.  
  1806. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1 Then
  1807. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 0.5
  1808. End If
  1809.  
  1810. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1811. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1812. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  1813. End If
  1814.  
  1815. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1816. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1817. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  1818. End If
  1819.  
  1820. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1821. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1822. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  1823. End If
  1824.  
  1825. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1826. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1827. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  1828. End If
  1829.  
  1830. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1831. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1832. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  1833. End If
  1834.  
  1835. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1836. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1837. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  1838. End If
  1839.  
  1840. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1841. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1842. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  1843. End If
  1844.  
  1845. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1846. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1847. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  1848. End If
  1849.  
  1850. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1851. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1852. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  1853. End If
  1854.  
  1855. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1856. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1857. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  1858. End If
  1859.  
  1860. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1861. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1862. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  1863. End If
  1864.  
  1865. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1866. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1867. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  1868. End If
  1869.  
  1870. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1871. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1872. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  1873. End If
  1874.  
  1875. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1876. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1877. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  1878. End If
  1879.  
  1880. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1881. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1882. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  1883. End If
  1884.  
  1885. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1886. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1887. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  1888. End If
  1889.  
  1890. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1891. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1892. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  1893. End If
  1894.  
  1895. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1896. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1897. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  1898. End If
  1899.  
  1900. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1901. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1902. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  1903. End If
  1904.  
  1905. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1906. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1907. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  1908. End If
  1909.  
  1910. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1911. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  1912. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  1913. End If
  1914.  
  1915. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1916. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1917. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1918. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1919. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1920. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1921. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1922. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1923. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1924. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1925. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1926. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1927. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1928. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1929. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1930. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1931. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  1932. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(255, 255, 0)
  1933. With SlideShowWindows(1).View
  1934.  
  1935. WaitSeconds 4
  1936.  
  1937. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1938. DoEvents 'do nothing
  1939. ElseIf ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  1940. DoEvents 'do nothing
  1941. ElseIf ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  1942. DoEvents 'do nothing
  1943. ElseIf ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  1944. DoEvents 'do nothing
  1945. Else
  1946. .GotoSlide 6, msoFalse
  1947. End If
  1948. End With
  1949. End If
  1950.  
  1951. If ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  1952. (ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1953. (ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1954. (ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1955. (ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1956. (ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1957. (ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1958. (ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1959. (ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1960. (ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1961. (ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1962. (ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1963. (ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1964. (ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1965. (ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1966. (ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1967. (ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  1968. (ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0)) Then
  1969. With SlideShowWindows(1).View
  1970.  
  1971. WaitSeconds 5
  1972.  
  1973. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1974. DoEvents 'do nothing
  1975. ElseIf ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  1976. DoEvents 'do nothing
  1977. ElseIf ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  1978. DoEvents 'do nothing
  1979. Else
  1980. .GotoSlide 10, msoFalse
  1981. End If
  1982. End With
  1983. End If
  1984.  
  1985. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  1986. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  1987. (ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  1988. (ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  1989. (ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  1990. (ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 0)) Then
  1991. With SlideShowWindows(1).View
  1992.  
  1993. WaitSeconds 3
  1994.  
  1995. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  1996. DoEvents 'do nothing
  1997. ElseIf ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  1998. DoEvents 'do nothing
  1999. ElseIf ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  2000. DoEvents 'do nothing
  2001. ElseIf ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  2002. DoEvents 'do nothing
  2003. Else
  2004. .GotoSlide 10, msoFalse
  2005. End If
  2006. End With
  2007. End If
  2008.  
  2009. End Sub
  2010. Sub Pole8()
  2011. '
  2012. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  2013. '
  2014. With ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor
  2015. Select Case .RGB
  2016. Case vbWhite
  2017. .RGB = vbMagenta
  2018. Case vbMagenta
  2019. .RGB = vbYellow
  2020. Case vbGreen
  2021. .RGB = vbWhite
  2022. Case vbYellow
  2023. .RGB = vbBlack
  2024. Case vbBlack
  2025. .RGB = vbGreen
  2026.  
  2027. End Select
  2028. End With
  2029.  
  2030. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  2031. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  2032. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False
  2033. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  2034. End If
  2035.  
  2036. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  2037. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  2038. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  2039. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  2040. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  2041. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  2042. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  2043. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  2044. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  2045. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  2046. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  2047. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  2048. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  2049. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  2050. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  2051. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  2052. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  2053. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  2054. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  2055. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  2056. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  2057. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  2058. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  2059. End If
  2060.  
  2061. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  2062. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  2063. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  2064. End If
  2065.  
  2066. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1 Then
  2067. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 0.5
  2068. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = True
  2069. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  2070. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  2071. End If
  2072.  
  2073. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  2074. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 0.5
  2075. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  2076. With SlideShowWindows(1).View
  2077. WaitSeconds 3
  2078.  
  2079. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2080. DoEvents 'do nothing
  2081. ElseIf ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  2082. DoEvents 'do nothing
  2083. ElseIf ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  2084. DoEvents 'do nothing
  2085. ElseIf ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  2086. DoEvents 'do nothing
  2087. Else
  2088. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0)
  2089. End If
  2090. End With
  2091. End If
  2092.  
  2093. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1 Then
  2094. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 0.5
  2095. End If
  2096.  
  2097. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2098. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2099. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  2100. End If
  2101.  
  2102. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2103. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2104. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  2105. End If
  2106.  
  2107. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2108. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2109. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  2110. End If
  2111.  
  2112. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2113. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2114. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  2115. End If
  2116.  
  2117. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2118. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2119. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  2120. End If
  2121.  
  2122. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2123. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2124. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  2125. End If
  2126.  
  2127. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2128. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2129. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  2130. End If
  2131.  
  2132. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2133. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2134. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  2135. End If
  2136.  
  2137. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2138. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2139. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  2140. End If
  2141.  
  2142. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2143. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2144. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  2145. End If
  2146.  
  2147. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2148. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2149. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  2150. End If
  2151.  
  2152. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2153. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2154. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  2155. End If
  2156.  
  2157. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2158. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2159. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  2160. End If
  2161.  
  2162. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2163. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2164. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  2165. End If
  2166.  
  2167. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2168. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2169. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  2170. End If
  2171.  
  2172. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2173. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2174. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  2175. End If
  2176.  
  2177. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2178. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2179. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  2180. End If
  2181.  
  2182. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2183. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2184. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  2185. End If
  2186.  
  2187. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2188. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2189. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  2190. End If
  2191.  
  2192. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2193. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2194. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  2195. End If
  2196.  
  2197. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2198. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2199. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  2200. End If
  2201.  
  2202. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2203. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2204. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2205. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2206. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2207. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2208. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2209. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2210. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2211. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2212. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2213. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2214. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2215. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2216. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2217. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2218. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  2219. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(255, 255, 0)
  2220. With SlideShowWindows(1).View
  2221.  
  2222. WaitSeconds 4
  2223.  
  2224. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2225. DoEvents 'do nothing
  2226. ElseIf ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  2227. DoEvents 'do nothing
  2228. ElseIf ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  2229. DoEvents 'do nothing
  2230. ElseIf ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  2231. DoEvents 'do nothing
  2232. Else
  2233. .GotoSlide 6, msoFalse
  2234. End If
  2235. End With
  2236. End If
  2237.  
  2238. If ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  2239. (ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2240. (ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2241. (ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2242. (ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2243. (ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2244. (ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2245. (ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2246. (ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2247. (ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2248. (ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2249. (ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2250. (ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2251. (ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2252. (ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2253. (ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2254. (ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2255. (ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0)) Then
  2256. With SlideShowWindows(1).View
  2257.  
  2258. WaitSeconds 5
  2259.  
  2260. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2261. DoEvents 'do nothing
  2262. ElseIf ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  2263. DoEvents 'do nothing
  2264. ElseIf ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  2265. DoEvents 'do nothing
  2266. Else
  2267. .GotoSlide 10, msoFalse
  2268. End If
  2269. End With
  2270. End If
  2271.  
  2272. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  2273. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2274. (ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  2275. (ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  2276. (ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  2277. (ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 0)) Then
  2278. With SlideShowWindows(1).View
  2279.  
  2280. WaitSeconds 3
  2281.  
  2282. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2283. DoEvents 'do nothing
  2284. ElseIf ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  2285. DoEvents 'do nothing
  2286. ElseIf ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  2287. DoEvents 'do nothing
  2288. ElseIf ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  2289. DoEvents 'do nothing
  2290. Else
  2291. .GotoSlide 10, msoFalse
  2292. End If
  2293. End With
  2294. End If
  2295.  
  2296. End Sub
  2297. Sub Pole9()
  2298. '
  2299. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  2300. '
  2301. With ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor
  2302. Select Case .RGB
  2303. Case vbWhite
  2304. .RGB = vbMagenta
  2305. Case vbMagenta
  2306. .RGB = vbYellow
  2307. Case vbGreen
  2308. .RGB = vbWhite
  2309. Case vbYellow
  2310. .RGB = vbBlack
  2311. Case vbBlack
  2312. .RGB = vbGreen
  2313.  
  2314. End Select
  2315. End With
  2316.  
  2317. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  2318. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  2319. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False
  2320. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  2321. End If
  2322.  
  2323. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  2324. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  2325. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  2326. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  2327. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  2328. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  2329. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  2330. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  2331. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  2332. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  2333. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  2334. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  2335. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  2336. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  2337. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  2338. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  2339. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  2340. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  2341. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  2342. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  2343. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  2344. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  2345. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  2346. End If
  2347.  
  2348. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  2349. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  2350. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  2351. End If
  2352.  
  2353. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1 Then
  2354. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 0.5
  2355. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = True
  2356. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  2357. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  2358. End If
  2359.  
  2360. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  2361. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 0.5
  2362. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  2363. With SlideShowWindows(1).View
  2364. WaitSeconds 3
  2365.  
  2366. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2367. DoEvents 'do nothing
  2368. ElseIf ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  2369. DoEvents 'do nothing
  2370. ElseIf ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  2371. DoEvents 'do nothing
  2372. ElseIf ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  2373. DoEvents 'do nothing
  2374. Else
  2375. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0)
  2376. End If
  2377. End With
  2378. End If
  2379.  
  2380. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1 Then
  2381. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 0.5
  2382. End If
  2383.  
  2384. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2385. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2386. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  2387. End If
  2388.  
  2389. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2390. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2391. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  2392. End If
  2393.  
  2394. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2395. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2396. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  2397. End If
  2398.  
  2399. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2400. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2401. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  2402. End If
  2403.  
  2404. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2405. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2406. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  2407. End If
  2408.  
  2409. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2410. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2411. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  2412. End If
  2413.  
  2414. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2415. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2416. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  2417. End If
  2418.  
  2419. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2420. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2421. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  2422. End If
  2423.  
  2424. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2425. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2426. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  2427. End If
  2428.  
  2429. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2430. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2431. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  2432. End If
  2433.  
  2434. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2435. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2436. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  2437. End If
  2438.  
  2439. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2440. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2441. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  2442. End If
  2443.  
  2444. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2445. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2446. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  2447. End If
  2448.  
  2449. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2450. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2451. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  2452. End If
  2453.  
  2454. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2455. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2456. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  2457. End If
  2458.  
  2459. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2460. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2461. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  2462. End If
  2463.  
  2464. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2465. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2466. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  2467. End If
  2468.  
  2469. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2470. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2471. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  2472. End If
  2473.  
  2474. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2475. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2476. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  2477. End If
  2478.  
  2479. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2480. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2481. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  2482. End If
  2483.  
  2484. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2485. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2486. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  2487. End If
  2488.  
  2489. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2490. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2491. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2492. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2493. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2494. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2495. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2496. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2497. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2498. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2499. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2500. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2501. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2502. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2503. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2504. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2505. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  2506. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(255, 255, 0)
  2507. With SlideShowWindows(1).View
  2508.  
  2509. WaitSeconds 4
  2510.  
  2511. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2512. DoEvents 'do nothing
  2513. ElseIf ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  2514. DoEvents 'do nothing
  2515. ElseIf ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  2516. DoEvents 'do nothing
  2517. ElseIf ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  2518. DoEvents 'do nothing
  2519. Else
  2520. .GotoSlide 6, msoFalse
  2521. End If
  2522. End With
  2523. End If
  2524.  
  2525. If ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  2526. (ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2527. (ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2528. (ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2529. (ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2530. (ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2531. (ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2532. (ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2533. (ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2534. (ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2535. (ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2536. (ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2537. (ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2538. (ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2539. (ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2540. (ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2541. (ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2542. (ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0)) Then
  2543. With SlideShowWindows(1).View
  2544.  
  2545. WaitSeconds 5
  2546.  
  2547. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2548. DoEvents 'do nothing
  2549. ElseIf ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  2550. DoEvents 'do nothing
  2551. ElseIf ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  2552. DoEvents 'do nothing
  2553. Else
  2554. .GotoSlide 10, msoFalse
  2555. End If
  2556. End With
  2557. End If
  2558.  
  2559. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  2560. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2561. (ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  2562. (ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  2563. (ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  2564. (ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 0)) Then
  2565. With SlideShowWindows(1).View
  2566.  
  2567. WaitSeconds 3
  2568.  
  2569. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2570. DoEvents 'do nothing
  2571. ElseIf ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  2572. DoEvents 'do nothing
  2573. ElseIf ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  2574. DoEvents 'do nothing
  2575. ElseIf ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  2576. DoEvents 'do nothing
  2577. Else
  2578. .GotoSlide 10, msoFalse
  2579. End If
  2580. End With
  2581. End If
  2582.  
  2583. End Sub
  2584. Sub Pole10()
  2585. '
  2586. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  2587. '
  2588. With ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor
  2589. Select Case .RGB
  2590. Case vbWhite
  2591. .RGB = vbMagenta
  2592. Case vbMagenta
  2593. .RGB = vbYellow
  2594. Case vbGreen
  2595. .RGB = vbWhite
  2596. Case vbYellow
  2597. .RGB = vbBlack
  2598. Case vbBlack
  2599. .RGB = vbGreen
  2600.  
  2601. End Select
  2602. End With
  2603.  
  2604. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  2605. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  2606. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False
  2607. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  2608. End If
  2609.  
  2610. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  2611. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  2612. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  2613. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  2614. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  2615. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  2616. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  2617. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  2618. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  2619. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  2620. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  2621. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  2622. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  2623. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  2624. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  2625. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  2626. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  2627. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  2628. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  2629. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  2630. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  2631. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  2632. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  2633. End If
  2634.  
  2635. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  2636. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  2637. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  2638. End If
  2639.  
  2640. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1 Then
  2641. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 0.5
  2642. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = True
  2643. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  2644. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  2645. End If
  2646.  
  2647. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  2648. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 0.5
  2649. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  2650. With SlideShowWindows(1).View
  2651. WaitSeconds 3
  2652.  
  2653. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2654. DoEvents 'do nothing
  2655. ElseIf ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  2656. DoEvents 'do nothing
  2657. ElseIf ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  2658. DoEvents 'do nothing
  2659. ElseIf ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  2660. DoEvents 'do nothing
  2661. Else
  2662. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0)
  2663. End If
  2664. End With
  2665. End If
  2666.  
  2667. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1 Then
  2668. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 0.5
  2669. End If
  2670.  
  2671. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2672. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2673. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  2674. End If
  2675.  
  2676. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2677. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2678. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  2679. End If
  2680.  
  2681. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2682. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2683. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  2684. End If
  2685.  
  2686. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2687. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2688. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  2689. End If
  2690.  
  2691. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2692. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2693. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  2694. End If
  2695.  
  2696. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2697. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2698. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  2699. End If
  2700.  
  2701. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2702. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2703. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  2704. End If
  2705.  
  2706. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2707. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2708. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  2709. End If
  2710.  
  2711. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2712. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2713. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  2714. End If
  2715.  
  2716. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2717. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2718. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  2719. End If
  2720.  
  2721. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2722. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2723. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  2724. End If
  2725.  
  2726. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2727. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2728. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  2729. End If
  2730.  
  2731. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2732. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2733. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  2734. End If
  2735.  
  2736. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2737. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2738. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  2739. End If
  2740.  
  2741. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2742. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2743. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  2744. End If
  2745.  
  2746. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2747. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2748. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  2749. End If
  2750.  
  2751. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2752. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2753. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  2754. End If
  2755.  
  2756. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2757. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2758. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  2759. End If
  2760.  
  2761. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2762. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2763. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  2764. End If
  2765.  
  2766. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2767. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2768. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  2769. End If
  2770.  
  2771. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2772. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2773. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  2774. End If
  2775.  
  2776. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2777. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2778. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2779. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2780. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2781. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2782. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2783. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2784. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2785. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2786. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2787. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2788. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2789. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2790. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2791. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2792. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  2793. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(255, 255, 0)
  2794. With SlideShowWindows(1).View
  2795.  
  2796. WaitSeconds 4
  2797.  
  2798. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2799. DoEvents 'do nothing
  2800. ElseIf ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  2801. DoEvents 'do nothing
  2802. ElseIf ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  2803. DoEvents 'do nothing
  2804. ElseIf ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  2805. DoEvents 'do nothing
  2806. Else
  2807. .GotoSlide 6, msoFalse
  2808. End If
  2809. End With
  2810. End If
  2811.  
  2812. If ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  2813. (ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2814. (ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2815. (ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2816. (ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2817. (ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2818. (ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2819. (ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2820. (ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2821. (ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2822. (ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2823. (ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2824. (ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2825. (ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2826. (ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2827. (ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2828. (ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  2829. (ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0)) Then
  2830. With SlideShowWindows(1).View
  2831.  
  2832. WaitSeconds 5
  2833.  
  2834. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2835. DoEvents 'do nothing
  2836. ElseIf ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  2837. DoEvents 'do nothing
  2838. ElseIf ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  2839. DoEvents 'do nothing
  2840. Else
  2841. .GotoSlide 10, msoFalse
  2842. End If
  2843. End With
  2844. End If
  2845.  
  2846. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  2847. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  2848. (ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  2849. (ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  2850. (ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  2851. (ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 0)) Then
  2852. With SlideShowWindows(1).View
  2853.  
  2854. WaitSeconds 3
  2855.  
  2856. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2857. DoEvents 'do nothing
  2858. ElseIf ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  2859. DoEvents 'do nothing
  2860. ElseIf ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  2861. DoEvents 'do nothing
  2862. ElseIf ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  2863. DoEvents 'do nothing
  2864. Else
  2865. .GotoSlide 10, msoFalse
  2866. End If
  2867. End With
  2868. End If
  2869.  
  2870. End Sub
  2871. Sub Pole11()
  2872. '
  2873. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  2874. '
  2875. With ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor
  2876. Select Case .RGB
  2877. Case vbWhite
  2878. .RGB = vbMagenta
  2879. Case vbMagenta
  2880. .RGB = vbYellow
  2881. Case vbGreen
  2882. .RGB = vbWhite
  2883. Case vbYellow
  2884. .RGB = vbBlack
  2885. Case vbBlack
  2886. .RGB = vbGreen
  2887.  
  2888. End Select
  2889. End With
  2890.  
  2891. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  2892. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  2893. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False
  2894. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  2895. End If
  2896.  
  2897. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  2898. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  2899. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  2900. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  2901. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  2902. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  2903. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  2904. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  2905. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  2906. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  2907. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  2908. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  2909. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  2910. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  2911. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  2912. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  2913. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  2914. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  2915. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  2916. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  2917. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  2918. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  2919. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  2920. End If
  2921.  
  2922. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  2923. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  2924. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  2925. End If
  2926.  
  2927. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1 Then
  2928. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 0.5
  2929. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = True
  2930. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  2931. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  2932. End If
  2933.  
  2934. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  2935. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 0.5
  2936. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  2937. With SlideShowWindows(1).View
  2938. WaitSeconds 3
  2939.  
  2940. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2941. DoEvents 'do nothing
  2942. ElseIf ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  2943. DoEvents 'do nothing
  2944. ElseIf ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  2945. DoEvents 'do nothing
  2946. ElseIf ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  2947. DoEvents 'do nothing
  2948. Else
  2949. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0)
  2950. End If
  2951. End With
  2952. End If
  2953.  
  2954. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1 Then
  2955. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 0.5
  2956. End If
  2957.  
  2958. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2959. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2960. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  2961. End If
  2962.  
  2963. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2964. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2965. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  2966. End If
  2967.  
  2968. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2969. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2970. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  2971. End If
  2972.  
  2973. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2974. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2975. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  2976. End If
  2977.  
  2978. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2979. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2980. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  2981. End If
  2982.  
  2983. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2984. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2985. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  2986. End If
  2987.  
  2988. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2989. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2990. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  2991. End If
  2992.  
  2993. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2994. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  2995. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  2996. End If
  2997.  
  2998. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  2999. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3000. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  3001. End If
  3002.  
  3003. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3004. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3005. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  3006. End If
  3007.  
  3008. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3009. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3010. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  3011. End If
  3012.  
  3013. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3014. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3015. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  3016. End If
  3017.  
  3018. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3019. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3020. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  3021. End If
  3022.  
  3023. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3024. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3025. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  3026. End If
  3027.  
  3028. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3029. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3030. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  3031. End If
  3032.  
  3033. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3034. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3035. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  3036. End If
  3037.  
  3038. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3039. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3040. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  3041. End If
  3042.  
  3043. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3044. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3045. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  3046. End If
  3047.  
  3048. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3049. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3050. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  3051. End If
  3052.  
  3053. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3054. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3055. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  3056. End If
  3057.  
  3058. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3059. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3060. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  3061. End If
  3062.  
  3063. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3064. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3065. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3066. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3067. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3068. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3069. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3070. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3071. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3072. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3073. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3074. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3075. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3076. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3077. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3078. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3079. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  3080. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(255, 255, 0)
  3081. With SlideShowWindows(1).View
  3082.  
  3083. WaitSeconds 4
  3084.  
  3085. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3086. DoEvents 'do nothing
  3087. ElseIf ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  3088. DoEvents 'do nothing
  3089. ElseIf ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  3090. DoEvents 'do nothing
  3091. ElseIf ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  3092. DoEvents 'do nothing
  3093. Else
  3094. .GotoSlide 6, msoFalse
  3095. End If
  3096. End With
  3097. End If
  3098.  
  3099. If ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  3100. (ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3101. (ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3102. (ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3103. (ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3104. (ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3105. (ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3106. (ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3107. (ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3108. (ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3109. (ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3110. (ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3111. (ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3112. (ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3113. (ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3114. (ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3115. (ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3116. (ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0)) Then
  3117. With SlideShowWindows(1).View
  3118.  
  3119. WaitSeconds 5
  3120.  
  3121. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3122. DoEvents 'do nothing
  3123. ElseIf ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  3124. DoEvents 'do nothing
  3125. ElseIf ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  3126. DoEvents 'do nothing
  3127. Else
  3128. .GotoSlide 10, msoFalse
  3129. End If
  3130. End With
  3131. End If
  3132.  
  3133. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  3134. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3135. (ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  3136. (ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  3137. (ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  3138. (ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 0)) Then
  3139. With SlideShowWindows(1).View
  3140.  
  3141. WaitSeconds 3
  3142.  
  3143. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3144. DoEvents 'do nothing
  3145. ElseIf ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  3146. DoEvents 'do nothing
  3147. ElseIf ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  3148. DoEvents 'do nothing
  3149. ElseIf ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  3150. DoEvents 'do nothing
  3151. Else
  3152. .GotoSlide 10, msoFalse
  3153. End If
  3154. End With
  3155. End If
  3156.  
  3157. End Sub
  3158. Sub Pole12()
  3159. '
  3160. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  3161. '
  3162. With ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor
  3163. Select Case .RGB
  3164. Case vbWhite
  3165. .RGB = vbMagenta
  3166. Case vbMagenta
  3167. .RGB = vbYellow
  3168. Case vbGreen
  3169. .RGB = vbWhite
  3170. Case vbYellow
  3171. .RGB = vbBlack
  3172. Case vbBlack
  3173. .RGB = vbGreen
  3174.  
  3175. End Select
  3176. End With
  3177.  
  3178. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  3179. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  3180. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False
  3181. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  3182. End If
  3183.  
  3184. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  3185. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  3186. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  3187. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  3188. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  3189. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  3190. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  3191. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  3192. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  3193. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  3194. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  3195. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  3196. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  3197. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  3198. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  3199. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  3200. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  3201. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  3202. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  3203. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  3204. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  3205. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  3206. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  3207. End If
  3208.  
  3209. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  3210. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  3211. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  3212. End If
  3213.  
  3214. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1 Then
  3215. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 0.5
  3216. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = True
  3217. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  3218. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  3219. End If
  3220.  
  3221. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  3222. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 0.5
  3223. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  3224. With SlideShowWindows(1).View
  3225. WaitSeconds 3
  3226.  
  3227. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3228. DoEvents 'do nothing
  3229. ElseIf ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  3230. DoEvents 'do nothing
  3231. ElseIf ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  3232. DoEvents 'do nothing
  3233. ElseIf ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  3234. DoEvents 'do nothing
  3235. Else
  3236. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0)
  3237. End If
  3238. End With
  3239. End If
  3240.  
  3241. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1 Then
  3242. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 0.5
  3243. End If
  3244.  
  3245. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3246. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3247. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  3248. End If
  3249.  
  3250. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3251. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3252. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  3253. End If
  3254.  
  3255. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3256. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3257. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  3258. End If
  3259.  
  3260. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3261. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3262. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  3263. End If
  3264.  
  3265. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3266. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3267. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  3268. End If
  3269.  
  3270. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3271. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3272. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  3273. End If
  3274.  
  3275. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3276. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3277. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  3278. End If
  3279.  
  3280. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3281. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3282. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  3283. End If
  3284.  
  3285. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3286. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3287. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  3288. End If
  3289.  
  3290. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3291. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3292. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  3293. End If
  3294.  
  3295. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3296. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3297. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  3298. End If
  3299.  
  3300. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3301. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3302. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  3303. End If
  3304.  
  3305. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3306. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3307. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  3308. End If
  3309.  
  3310. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3311. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3312. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  3313. End If
  3314.  
  3315. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3316. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3317. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  3318. End If
  3319.  
  3320. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3321. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3322. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  3323. End If
  3324.  
  3325. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3326. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3327. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  3328. End If
  3329.  
  3330. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3331. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3332. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  3333. End If
  3334.  
  3335. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3336. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3337. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  3338. End If
  3339.  
  3340. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3341. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3342. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  3343. End If
  3344.  
  3345. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3346. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3347. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  3348. End If
  3349.  
  3350. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3351. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3352. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3353. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3354. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3355. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3356. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3357. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3358. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3359. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3360. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3361. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3362. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3363. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3364. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3365. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3366. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  3367. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(255, 255, 0)
  3368. With SlideShowWindows(1).View
  3369.  
  3370. WaitSeconds 4
  3371.  
  3372. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3373. DoEvents 'do nothing
  3374. ElseIf ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  3375. DoEvents 'do nothing
  3376. ElseIf ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  3377. DoEvents 'do nothing
  3378. ElseIf ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  3379. DoEvents 'do nothing
  3380. Else
  3381. .GotoSlide 6, msoFalse
  3382. End If
  3383. End With
  3384. End If
  3385.  
  3386. If ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  3387. (ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3388. (ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3389. (ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3390. (ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3391. (ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3392. (ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3393. (ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3394. (ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3395. (ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3396. (ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3397. (ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3398. (ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3399. (ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3400. (ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3401. (ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3402. (ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3403. (ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0)) Then
  3404. With SlideShowWindows(1).View
  3405.  
  3406. WaitSeconds 5
  3407.  
  3408. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3409. DoEvents 'do nothing
  3410. ElseIf ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  3411. DoEvents 'do nothing
  3412. ElseIf ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  3413. DoEvents 'do nothing
  3414. Else
  3415. .GotoSlide 10, msoFalse
  3416. End If
  3417. End With
  3418. End If
  3419.  
  3420. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  3421. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3422. (ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  3423. (ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  3424. (ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  3425. (ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 0)) Then
  3426. With SlideShowWindows(1).View
  3427.  
  3428. WaitSeconds 3
  3429.  
  3430. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3431. DoEvents 'do nothing
  3432. ElseIf ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  3433. DoEvents 'do nothing
  3434. ElseIf ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  3435. DoEvents 'do nothing
  3436. ElseIf ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  3437. DoEvents 'do nothing
  3438. Else
  3439. .GotoSlide 10, msoFalse
  3440. End If
  3441. End With
  3442. End If
  3443.  
  3444. End Sub
  3445. Sub Pole13()
  3446. '
  3447. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  3448. '
  3449. With ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor
  3450. Select Case .RGB
  3451. Case vbWhite
  3452. .RGB = vbMagenta
  3453. Case vbMagenta
  3454. .RGB = vbYellow
  3455. Case vbGreen
  3456. .RGB = vbWhite
  3457. Case vbYellow
  3458. .RGB = vbBlack
  3459. Case vbBlack
  3460. .RGB = vbGreen
  3461.  
  3462. End Select
  3463. End With
  3464.  
  3465. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  3466. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  3467. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False
  3468. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  3469. End If
  3470.  
  3471. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  3472. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  3473. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  3474. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  3475. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  3476. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  3477. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  3478. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  3479. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  3480. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  3481. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  3482. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  3483. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  3484. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  3485. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  3486. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  3487. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  3488. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  3489. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  3490. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  3491. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  3492. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  3493. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  3494. End If
  3495.  
  3496. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  3497. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  3498. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  3499. End If
  3500.  
  3501. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1 Then
  3502. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 0.5
  3503. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = True
  3504. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  3505. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  3506. End If
  3507.  
  3508. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  3509. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 0.5
  3510. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  3511. With SlideShowWindows(1).View
  3512. WaitSeconds 3
  3513.  
  3514. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3515. DoEvents 'do nothing
  3516. ElseIf ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  3517. DoEvents 'do nothing
  3518. ElseIf ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  3519. DoEvents 'do nothing
  3520. ElseIf ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  3521. DoEvents 'do nothing
  3522. Else
  3523. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0)
  3524. End If
  3525. End With
  3526. End If
  3527.  
  3528. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1 Then
  3529. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 0.5
  3530. End If
  3531.  
  3532. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3533. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3534. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  3535. End If
  3536.  
  3537. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3538. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3539. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  3540. End If
  3541.  
  3542. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3543. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3544. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  3545. End If
  3546.  
  3547. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3548. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3549. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  3550. End If
  3551.  
  3552. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3553. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3554. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  3555. End If
  3556.  
  3557. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3558. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3559. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  3560. End If
  3561.  
  3562. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3563. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3564. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  3565. End If
  3566.  
  3567. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3568. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3569. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  3570. End If
  3571.  
  3572. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3573. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3574. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  3575. End If
  3576.  
  3577. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3578. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3579. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  3580. End If
  3581.  
  3582. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3583. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3584. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  3585. End If
  3586.  
  3587. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3588. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3589. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  3590. End If
  3591.  
  3592. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3593. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3594. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  3595. End If
  3596.  
  3597. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3598. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3599. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  3600. End If
  3601.  
  3602. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3603. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3604. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  3605. End If
  3606.  
  3607. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3608. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3609. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  3610. End If
  3611.  
  3612. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3613. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3614. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  3615. End If
  3616.  
  3617. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3618. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3619. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  3620. End If
  3621.  
  3622. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3623. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3624. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  3625. End If
  3626.  
  3627. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3628. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3629. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  3630. End If
  3631.  
  3632. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3633. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3634. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  3635. End If
  3636.  
  3637. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3638. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3639. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3640. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3641. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3642. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3643. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3644. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3645. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3646. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3647. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3648. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3649. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3650. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3651. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3652. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3653. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  3654. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(255, 255, 0)
  3655. With SlideShowWindows(1).View
  3656.  
  3657. WaitSeconds 4
  3658.  
  3659. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3660. DoEvents 'do nothing
  3661. ElseIf ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  3662. DoEvents 'do nothing
  3663. ElseIf ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  3664. DoEvents 'do nothing
  3665. ElseIf ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  3666. DoEvents 'do nothing
  3667. Else
  3668. .GotoSlide 6, msoFalse
  3669. End If
  3670. End With
  3671. End If
  3672.  
  3673. If ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  3674. (ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3675. (ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3676. (ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3677. (ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3678. (ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3679. (ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3680. (ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3681. (ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3682. (ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3683. (ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3684. (ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3685. (ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3686. (ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3687. (ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3688. (ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3689. (ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3690. (ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0)) Then
  3691. With SlideShowWindows(1).View
  3692.  
  3693. WaitSeconds 5
  3694.  
  3695. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3696. DoEvents 'do nothing
  3697. ElseIf ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  3698. DoEvents 'do nothing
  3699. ElseIf ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  3700. DoEvents 'do nothing
  3701. Else
  3702. .GotoSlide 10, msoFalse
  3703. End If
  3704. End With
  3705. End If
  3706.  
  3707. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  3708. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3709. (ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  3710. (ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  3711. (ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  3712. (ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 0)) Then
  3713. With SlideShowWindows(1).View
  3714.  
  3715. WaitSeconds 3
  3716.  
  3717. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3718. DoEvents 'do nothing
  3719. ElseIf ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  3720. DoEvents 'do nothing
  3721. ElseIf ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  3722. DoEvents 'do nothing
  3723. ElseIf ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  3724. DoEvents 'do nothing
  3725. Else
  3726. .GotoSlide 10, msoFalse
  3727. End If
  3728. End With
  3729. End If
  3730.  
  3731. End Sub
  3732. Sub Pole14()
  3733. '
  3734. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  3735. '
  3736. With ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor
  3737. Select Case .RGB
  3738. Case vbWhite
  3739. .RGB = vbMagenta
  3740. Case vbMagenta
  3741. .RGB = vbYellow
  3742. Case vbGreen
  3743. .RGB = vbWhite
  3744. Case vbYellow
  3745. .RGB = vbBlack
  3746. Case vbBlack
  3747. .RGB = vbGreen
  3748.  
  3749. End Select
  3750. End With
  3751.  
  3752. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  3753. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  3754. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False
  3755. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  3756. End If
  3757.  
  3758. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  3759. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  3760. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  3761. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  3762. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  3763. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  3764. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  3765. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  3766. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  3767. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  3768. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  3769. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  3770. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  3771. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  3772. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  3773. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  3774. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  3775. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  3776. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  3777. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  3778. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  3779. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  3780. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  3781. End If
  3782.  
  3783. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  3784. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  3785. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  3786. End If
  3787.  
  3788. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1 Then
  3789. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 0.5
  3790. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = True
  3791. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  3792. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  3793. End If
  3794.  
  3795. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  3796. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 0.5
  3797. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  3798. With SlideShowWindows(1).View
  3799. WaitSeconds 3
  3800.  
  3801. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3802. DoEvents 'do nothing
  3803. ElseIf ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  3804. DoEvents 'do nothing
  3805. ElseIf ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  3806. DoEvents 'do nothing
  3807. ElseIf ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  3808. DoEvents 'do nothing
  3809. Else
  3810. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0)
  3811. End If
  3812. End With
  3813. End If
  3814.  
  3815. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1 Then
  3816. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 0.5
  3817. End If
  3818.  
  3819. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3820. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3821. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  3822. End If
  3823.  
  3824. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3825. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3826. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  3827. End If
  3828.  
  3829. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3830. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3831. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  3832. End If
  3833.  
  3834. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3835. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3836. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  3837. End If
  3838.  
  3839. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3840. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3841. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  3842. End If
  3843.  
  3844. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3845. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3846. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  3847. End If
  3848.  
  3849. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3850. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3851. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  3852. End If
  3853.  
  3854. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3855. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3856. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  3857. End If
  3858.  
  3859. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3860. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3861. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  3862. End If
  3863.  
  3864. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3865. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3866. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  3867. End If
  3868.  
  3869. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3870. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3871. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  3872. End If
  3873.  
  3874. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3875. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3876. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  3877. End If
  3878.  
  3879. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3880. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3881. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  3882. End If
  3883.  
  3884. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3885. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3886. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  3887. End If
  3888.  
  3889. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3890. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3891. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  3892. End If
  3893.  
  3894. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3895. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3896. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  3897. End If
  3898.  
  3899. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3900. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3901. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  3902. End If
  3903.  
  3904. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3905. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3906. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  3907. End If
  3908.  
  3909. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3910. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3911. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  3912. End If
  3913.  
  3914. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3915. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3916. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  3917. End If
  3918.  
  3919. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3920. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  3921. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  3922. End If
  3923.  
  3924. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3925. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3926. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3927. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3928. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3929. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3930. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3931. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3932. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3933. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3934. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3935. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3936. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3937. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3938. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3939. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3940. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  3941. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(255, 255, 0)
  3942. With SlideShowWindows(1).View
  3943.  
  3944. WaitSeconds 4
  3945.  
  3946. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3947. DoEvents 'do nothing
  3948. ElseIf ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  3949. DoEvents 'do nothing
  3950. ElseIf ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  3951. DoEvents 'do nothing
  3952. ElseIf ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  3953. DoEvents 'do nothing
  3954. Else
  3955. .GotoSlide 6, msoFalse
  3956. End If
  3957. End With
  3958. End If
  3959.  
  3960. If ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  3961. (ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3962. (ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3963. (ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3964. (ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3965. (ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3966. (ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3967. (ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3968. (ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3969. (ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3970. (ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3971. (ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3972. (ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3973. (ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3974. (ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3975. (ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3976. (ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  3977. (ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0)) Then
  3978. With SlideShowWindows(1).View
  3979.  
  3980. WaitSeconds 5
  3981.  
  3982. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  3983. DoEvents 'do nothing
  3984. ElseIf ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  3985. DoEvents 'do nothing
  3986. ElseIf ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  3987. DoEvents 'do nothing
  3988. Else
  3989. .GotoSlide 10, msoFalse
  3990. End If
  3991. End With
  3992. End If
  3993.  
  3994. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  3995. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  3996. (ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  3997. (ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  3998. (ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  3999. (ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 0)) Then
  4000. With SlideShowWindows(1).View
  4001.  
  4002. WaitSeconds 3
  4003.  
  4004. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4005. DoEvents 'do nothing
  4006. ElseIf ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  4007. DoEvents 'do nothing
  4008. ElseIf ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  4009. DoEvents 'do nothing
  4010. ElseIf ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  4011. DoEvents 'do nothing
  4012. Else
  4013. .GotoSlide 10, msoFalse
  4014. End If
  4015. End With
  4016. End If
  4017.  
  4018. End Sub
  4019. Sub Pole15()
  4020. '
  4021. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  4022. '
  4023. With ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor
  4024. Select Case .RGB
  4025. Case vbWhite
  4026. .RGB = vbMagenta
  4027. Case vbMagenta
  4028. .RGB = vbYellow
  4029. Case vbGreen
  4030. .RGB = vbWhite
  4031. Case vbYellow
  4032. .RGB = vbBlack
  4033. Case vbBlack
  4034. .RGB = vbGreen
  4035.  
  4036. End Select
  4037. End With
  4038.  
  4039. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  4040. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  4041. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False
  4042. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  4043. End If
  4044.  
  4045. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  4046. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  4047. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  4048. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  4049. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  4050. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  4051. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  4052. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  4053. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  4054. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  4055. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  4056. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  4057. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  4058. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  4059. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  4060. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  4061. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  4062. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  4063. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  4064. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  4065. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  4066. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  4067. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  4068. End If
  4069.  
  4070. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  4071. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  4072. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  4073. End If
  4074.  
  4075. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1 Then
  4076. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 0.5
  4077. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = True
  4078. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  4079. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  4080. End If
  4081.  
  4082. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  4083. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 0.5
  4084. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  4085. With SlideShowWindows(1).View
  4086. WaitSeconds 3
  4087.  
  4088. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4089. DoEvents 'do nothing
  4090. ElseIf ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  4091. DoEvents 'do nothing
  4092. ElseIf ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  4093. DoEvents 'do nothing
  4094. ElseIf ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  4095. DoEvents 'do nothing
  4096. Else
  4097. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0)
  4098. End If
  4099. End With
  4100. End If
  4101.  
  4102. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1 Then
  4103. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 0.5
  4104. End If
  4105.  
  4106. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4107. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4108. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  4109. End If
  4110.  
  4111. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4112. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4113. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  4114. End If
  4115.  
  4116. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4117. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4118. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  4119. End If
  4120.  
  4121. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4122. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4123. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  4124. End If
  4125.  
  4126. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4127. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4128. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  4129. End If
  4130.  
  4131. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4132. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4133. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  4134. End If
  4135.  
  4136. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4137. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4138. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  4139. End If
  4140.  
  4141. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4142. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4143. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  4144. End If
  4145.  
  4146. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4147. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4148. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  4149. End If
  4150.  
  4151. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4152. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4153. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  4154. End If
  4155.  
  4156. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4157. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4158. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  4159. End If
  4160.  
  4161. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4162. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4163. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  4164. End If
  4165.  
  4166. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4167. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4168. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  4169. End If
  4170.  
  4171. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4172. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4173. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  4174. End If
  4175.  
  4176. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4177. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4178. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  4179. End If
  4180.  
  4181. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4182. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4183. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  4184. End If
  4185.  
  4186. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4187. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4188. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  4189. End If
  4190.  
  4191. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4192. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4193. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  4194. End If
  4195.  
  4196. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4197. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4198. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  4199. End If
  4200.  
  4201. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4202. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4203. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  4204. End If
  4205.  
  4206. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4207. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4208. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  4209. End If
  4210.  
  4211. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4212. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4213. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4214. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4215. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4216. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4217. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4218. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4219. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4220. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4221. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4222. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4223. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4224. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4225. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4226. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4227. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  4228. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(255, 255, 0)
  4229. With SlideShowWindows(1).View
  4230.  
  4231. WaitSeconds 4
  4232.  
  4233. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4234. DoEvents 'do nothing
  4235. ElseIf ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  4236. DoEvents 'do nothing
  4237. ElseIf ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  4238. DoEvents 'do nothing
  4239. ElseIf ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  4240. DoEvents 'do nothing
  4241. Else
  4242. .GotoSlide 6, msoFalse
  4243. End If
  4244. End With
  4245. End If
  4246.  
  4247. If ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  4248. (ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4249. (ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4250. (ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4251. (ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4252. (ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4253. (ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4254. (ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4255. (ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4256. (ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4257. (ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4258. (ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4259. (ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4260. (ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4261. (ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4262. (ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4263. (ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4264. (ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0)) Then
  4265. With SlideShowWindows(1).View
  4266.  
  4267. WaitSeconds 5
  4268.  
  4269. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4270. DoEvents 'do nothing
  4271. ElseIf ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  4272. DoEvents 'do nothing
  4273. ElseIf ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  4274. DoEvents 'do nothing
  4275. Else
  4276. .GotoSlide 10, msoFalse
  4277. End If
  4278. End With
  4279. End If
  4280.  
  4281. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  4282. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4283. (ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  4284. (ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  4285. (ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  4286. (ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 0)) Then
  4287. With SlideShowWindows(1).View
  4288.  
  4289. WaitSeconds 3
  4290.  
  4291. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4292. DoEvents 'do nothing
  4293. ElseIf ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  4294. DoEvents 'do nothing
  4295. ElseIf ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  4296. DoEvents 'do nothing
  4297. ElseIf ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  4298. DoEvents 'do nothing
  4299. Else
  4300. .GotoSlide 10, msoFalse
  4301. End If
  4302. End With
  4303. End If
  4304.  
  4305. End Sub
  4306. Sub Pole16()
  4307. '
  4308. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  4309. '
  4310. With ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor
  4311. Select Case .RGB
  4312. Case vbWhite
  4313. .RGB = vbMagenta
  4314. Case vbMagenta
  4315. .RGB = vbYellow
  4316. Case vbGreen
  4317. .RGB = vbWhite
  4318. Case vbYellow
  4319. .RGB = vbBlack
  4320. Case vbBlack
  4321. .RGB = vbGreen
  4322.  
  4323. End Select
  4324. End With
  4325.  
  4326. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  4327. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  4328. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False
  4329. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  4330. End If
  4331.  
  4332. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  4333. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  4334. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  4335. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  4336. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  4337. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  4338. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  4339. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  4340. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  4341. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  4342. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  4343. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  4344. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  4345. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  4346. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  4347. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  4348. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  4349. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  4350. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  4351. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  4352. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  4353. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  4354. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  4355. End If
  4356.  
  4357. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  4358. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  4359. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  4360. End If
  4361.  
  4362. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1 Then
  4363. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 0.5
  4364. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = True
  4365. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  4366. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  4367. End If
  4368.  
  4369. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  4370. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 0.5
  4371. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  4372. With SlideShowWindows(1).View
  4373. WaitSeconds 3
  4374.  
  4375. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4376. DoEvents 'do nothing
  4377. ElseIf ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  4378. DoEvents 'do nothing
  4379. ElseIf ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  4380. DoEvents 'do nothing
  4381. ElseIf ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  4382. DoEvents 'do nothing
  4383. Else
  4384. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0)
  4385. End If
  4386. End With
  4387. End If
  4388.  
  4389. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1 Then
  4390. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 0.5
  4391. End If
  4392.  
  4393. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4394. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4395. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  4396. End If
  4397.  
  4398. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4399. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4400. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  4401. End If
  4402.  
  4403. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4404. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4405. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  4406. End If
  4407.  
  4408. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4409. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4410. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  4411. End If
  4412.  
  4413. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4414. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4415. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  4416. End If
  4417.  
  4418. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4419. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4420. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  4421. End If
  4422.  
  4423. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4424. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4425. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  4426. End If
  4427.  
  4428. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4429. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4430. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  4431. End If
  4432.  
  4433. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4434. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4435. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  4436. End If
  4437.  
  4438. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4439. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4440. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  4441. End If
  4442.  
  4443. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4444. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4445. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  4446. End If
  4447.  
  4448. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4449. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4450. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  4451. End If
  4452.  
  4453. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4454. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4455. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  4456. End If
  4457.  
  4458. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4459. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4460. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  4461. End If
  4462.  
  4463. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4464. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4465. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  4466. End If
  4467.  
  4468. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4469. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4470. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  4471. End If
  4472.  
  4473. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4474. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4475. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  4476. End If
  4477.  
  4478. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4479. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4480. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  4481. End If
  4482.  
  4483. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4484. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4485. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  4486. End If
  4487.  
  4488. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4489. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4490. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  4491. End If
  4492.  
  4493. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4494. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4495. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  4496. End If
  4497.  
  4498. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4499. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4500. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4501. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4502. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4503. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4504. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4505. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4506. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4507. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4508. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4509. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4510. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4511. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4512. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4513. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4514. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  4515. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(255, 255, 0)
  4516. With SlideShowWindows(1).View
  4517.  
  4518. WaitSeconds 4
  4519.  
  4520. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4521. DoEvents 'do nothing
  4522. ElseIf ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  4523. DoEvents 'do nothing
  4524. ElseIf ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  4525. DoEvents 'do nothing
  4526. ElseIf ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  4527. DoEvents 'do nothing
  4528. Else
  4529. .GotoSlide 6, msoFalse
  4530. End If
  4531. End With
  4532. End If
  4533.  
  4534. If ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  4535. (ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4536. (ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4537. (ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4538. (ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4539. (ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4540. (ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4541. (ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4542. (ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4543. (ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4544. (ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4545. (ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4546. (ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4547. (ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4548. (ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4549. (ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4550. (ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4551. (ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0)) Then
  4552. With SlideShowWindows(1).View
  4553.  
  4554. WaitSeconds 5
  4555.  
  4556. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4557. DoEvents 'do nothing
  4558. ElseIf ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  4559. DoEvents 'do nothing
  4560. ElseIf ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  4561. DoEvents 'do nothing
  4562. Else
  4563. .GotoSlide 10, msoFalse
  4564. End If
  4565. End With
  4566. End If
  4567.  
  4568. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  4569. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4570. (ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  4571. (ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  4572. (ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  4573. (ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 0)) Then
  4574. With SlideShowWindows(1).View
  4575.  
  4576. WaitSeconds 3
  4577.  
  4578. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4579. DoEvents 'do nothing
  4580. ElseIf ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  4581. DoEvents 'do nothing
  4582. ElseIf ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  4583. DoEvents 'do nothing
  4584. ElseIf ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  4585. DoEvents 'do nothing
  4586. Else
  4587. .GotoSlide 10, msoFalse
  4588. End If
  4589. End With
  4590. End If
  4591.  
  4592. End Sub
  4593. Sub Pole17()
  4594. '
  4595. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  4596. '
  4597. With ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor
  4598. Select Case .RGB
  4599. Case vbWhite
  4600. .RGB = vbMagenta
  4601. Case vbMagenta
  4602. .RGB = vbYellow
  4603. Case vbGreen
  4604. .RGB = vbWhite
  4605. Case vbYellow
  4606. .RGB = vbBlack
  4607. Case vbBlack
  4608. .RGB = vbGreen
  4609.  
  4610. End Select
  4611. End With
  4612.  
  4613. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  4614. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  4615. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False
  4616. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  4617. End If
  4618.  
  4619. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  4620. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  4621. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  4622. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  4623. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  4624. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  4625. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  4626. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  4627. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  4628. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  4629. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  4630. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  4631. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  4632. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  4633. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  4634. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  4635. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  4636. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  4637. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  4638. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  4639. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  4640. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  4641. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  4642. End If
  4643.  
  4644. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  4645. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  4646. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  4647. End If
  4648.  
  4649. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1 Then
  4650. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 0.5
  4651. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = True
  4652. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  4653. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  4654. End If
  4655.  
  4656. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  4657. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 0.5
  4658. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  4659. With SlideShowWindows(1).View
  4660. WaitSeconds 3
  4661.  
  4662. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4663. DoEvents 'do nothing
  4664. ElseIf ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  4665. DoEvents 'do nothing
  4666. ElseIf ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  4667. DoEvents 'do nothing
  4668. ElseIf ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  4669. DoEvents 'do nothing
  4670. Else
  4671. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0)
  4672. End If
  4673. End With
  4674. End If
  4675.  
  4676. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1 Then
  4677. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 0.5
  4678. End If
  4679.  
  4680. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4681. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4682. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  4683. End If
  4684.  
  4685. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4686. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4687. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  4688. End If
  4689.  
  4690. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4691. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4692. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  4693. End If
  4694.  
  4695. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4696. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4697. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  4698. End If
  4699.  
  4700. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4701. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4702. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  4703. End If
  4704.  
  4705. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4706. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4707. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  4708. End If
  4709.  
  4710. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4711. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4712. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  4713. End If
  4714.  
  4715. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4716. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4717. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  4718. End If
  4719.  
  4720. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4721. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4722. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  4723. End If
  4724.  
  4725. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4726. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4727. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  4728. End If
  4729.  
  4730. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4731. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4732. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  4733. End If
  4734.  
  4735. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4736. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4737. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  4738. End If
  4739.  
  4740. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4741. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4742. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  4743. End If
  4744.  
  4745. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4746. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4747. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  4748. End If
  4749.  
  4750. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4751. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4752. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  4753. End If
  4754.  
  4755. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4756. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4757. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  4758. End If
  4759.  
  4760. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4761. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4762. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  4763. End If
  4764.  
  4765. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4766. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4767. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  4768. End If
  4769.  
  4770. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4771. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4772. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  4773. End If
  4774.  
  4775. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4776. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4777. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  4778. End If
  4779.  
  4780. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4781. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4782. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  4783. End If
  4784.  
  4785. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4786. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4787. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4788. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4789. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4790. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4791. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4792. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4793. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4794. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4795. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4796. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4797. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4798. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4799. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4800. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4801. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  4802. ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(255, 255, 0)
  4803. With SlideShowWindows(1).View
  4804.  
  4805. WaitSeconds 4
  4806.  
  4807. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4808. DoEvents 'do nothing
  4809. ElseIf ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  4810. DoEvents 'do nothing
  4811. ElseIf ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  4812. DoEvents 'do nothing
  4813. ElseIf ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  4814. DoEvents 'do nothing
  4815. Else
  4816. .GotoSlide 6, msoFalse
  4817. End If
  4818. End With
  4819. End If
  4820.  
  4821. If ActivePresentation.Slides(3).Shapes("LoseIndicator").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  4822. (ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4823. (ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4824. (ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4825. (ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4826. (ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4827. (ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4828. (ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4829. (ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4830. (ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4831. (ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4832. (ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4833. (ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4834. (ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4835. (ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4836. (ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4837. (ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0)) And _
  4838. (ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 0) Or ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0)) Then
  4839. With SlideShowWindows(1).View
  4840.  
  4841. WaitSeconds 5
  4842.  
  4843. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4844. DoEvents 'do nothing
  4845. ElseIf ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  4846. DoEvents 'do nothing
  4847. ElseIf ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  4848. DoEvents 'do nothing
  4849. Else
  4850. .GotoSlide 10, msoFalse
  4851. End If
  4852. End With
  4853. End If
  4854.  
  4855. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  4856. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  4857. (ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  4858. (ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  4859. (ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 0)) And _
  4860. (ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 0, 0) Or ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 0)) Then
  4861. With SlideShowWindows(1).View
  4862.  
  4863. WaitSeconds 3
  4864.  
  4865. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4866. DoEvents 'do nothing
  4867. ElseIf ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  4868. DoEvents 'do nothing
  4869. ElseIf ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  4870. DoEvents 'do nothing
  4871. ElseIf ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  4872. DoEvents 'do nothing
  4873. Else
  4874. .GotoSlide 10, msoFalse
  4875. End If
  4876. End With
  4877. End If
  4878.  
  4879. End Sub
  4880. Sub ResetBtn()
  4881. '
  4882. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  4883. '
  4884. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  4885. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4886.  
  4887. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  4888. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4889.  
  4890. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  4891. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4892.  
  4893. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  4894. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4895.  
  4896. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  4897. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4898.  
  4899. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  4900. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4901.  
  4902. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  4903. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4904.  
  4905. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  4906. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4907.  
  4908. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  4909. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4910.  
  4911. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  4912. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4913.  
  4914. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  4915. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4916.  
  4917. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  4918. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4919.  
  4920. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  4921. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4922.  
  4923. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  4924. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4925.  
  4926. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  4927. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4928.  
  4929. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  4930. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4931.  
  4932. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  4933. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4934.  
  4935. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  4936. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4937.  
  4938. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  4939. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4940.  
  4941. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  4942. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4943.  
  4944. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  4945. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4946.  
  4947. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  4948. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4949.  
  4950. ActivePresentation.Slides(3).Shapes("ZivotyOnOffBtn").Fill.Transparency = 1
  4951. ActivePresentation.Slides(3).Shapes("ZivotyOnOffBtn").Fill.ForeColor.RGB = RGB(255, 255, 255)
  4952.  
  4953. ActivePresentation.Slides(3).Shapes("Zivot1").Visible = True
  4954. ActivePresentation.Slides(3).Shapes("Zivot1Group").Visible = True
  4955. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False
  4956. ActivePresentation.Slides(3).Shapes("Zivot2").Visible = True
  4957. ActivePresentation.Slides(3).Shapes("Zivot2Group").Visible = True
  4958. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False
  4959. ActivePresentation.Slides(3).Shapes("Zivot3").Visible = True
  4960. ActivePresentation.Slides(3).Shapes("Zivot3Group").Visible = True
  4961. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False
  4962. ActivePresentation.Slides(3).Shapes("Zivot4").Visible = True
  4963. ActivePresentation.Slides(3).Shapes("Zivot4Group").Visible = True
  4964. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False
  4965. ActivePresentation.Slides(3).Shapes("Zivot5").Visible = True
  4966. ActivePresentation.Slides(3).Shapes("Zivot5Group").Visible = True
  4967. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False
  4968.  
  4969. ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False
  4970. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False
  4971. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False
  4972. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False
  4973. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False
  4974. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False
  4975. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False
  4976. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False
  4977. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False
  4978. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False
  4979. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False
  4980. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False
  4981. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False
  4982. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False
  4983. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False
  4984. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False
  4985. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False
  4986.  
  4987. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  4988.  
  4989. End Sub
  4990. Sub StopBtn()
  4991. '
  4992. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  4993. '
  4994. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  4995. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  4996. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  4997. End If
  4998.  
  4999. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5000. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5001. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  5002. End If
  5003.  
  5004. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5005. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5006. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  5007. End If
  5008.  
  5009. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5010. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5011. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  5012. End If
  5013.  
  5014. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5015. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5016. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  5017. End If
  5018.  
  5019. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5020. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5021. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  5022. End If
  5023.  
  5024. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5025. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5026. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  5027. End If
  5028.  
  5029. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5030. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5031. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  5032. End If
  5033.  
  5034. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5035. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5036. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  5037. End If
  5038.  
  5039. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5040. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5041. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  5042. End If
  5043.  
  5044. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5045. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5046. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  5047. End If
  5048.  
  5049. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5050. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5051. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  5052. End If
  5053.  
  5054. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5055. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5056. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  5057. End If
  5058.  
  5059. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5060. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5061. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  5062. End If
  5063.  
  5064. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5065. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5066. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  5067. End If
  5068.  
  5069. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5070. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5071. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  5072. End If
  5073.  
  5074. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5075. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5076. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  5077. End If
  5078.  
  5079. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5080. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5081. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  5082. End If
  5083.  
  5084. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5085. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5086. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  5087. End If
  5088.  
  5089. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5090. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5091. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  5092. End If
  5093.  
  5094. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5095. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5096. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  5097. End If
  5098.  
  5099. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 0.5 And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5100. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5101. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  5102. End If
  5103.  
  5104. End Sub
  5105. Sub ZivotyOnOffBtn()
  5106. '
  5107. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  5108. '
  5109. With ActivePresentation.Slides(3).Shapes("ZivotyOnOffBtn").Fill.ForeColor
  5110. Select Case .RGB
  5111. Case vbWhite
  5112. .RGB = vbBlack
  5113. Case vbBlack
  5114. .RGB = vbWhite
  5115.  
  5116. End Select
  5117. End With
  5118.  
  5119. If ActivePresentation.Slides(3).Shapes("ZivotyOnOffBtn").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  5120. ActivePresentation.Slides(3).Shapes("ZivotyOnOffBtn").Fill.Transparency = 1
  5121. ActivePresentation.Slides(3).Shapes("Zivot1").Visible = True
  5122. ActivePresentation.Slides(3).Shapes("Zivot1Group").Visible = True
  5123. ActivePresentation.Slides(3).Shapes("Zivot2").Visible = True
  5124. ActivePresentation.Slides(3).Shapes("Zivot2Group").Visible = True
  5125. ActivePresentation.Slides(3).Shapes("Zivot3").Visible = True
  5126. ActivePresentation.Slides(3).Shapes("Zivot3Group").Visible = True
  5127. ActivePresentation.Slides(3).Shapes("Zivot4").Visible = True
  5128. ActivePresentation.Slides(3).Shapes("Zivot4Group").Visible = True
  5129. ActivePresentation.Slides(3).Shapes("Zivot5").Visible = True
  5130. ActivePresentation.Slides(3).Shapes("Zivot5Group").Visible = True
  5131. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  5132. End If
  5133.  
  5134. If ActivePresentation.Slides(3).Shapes("ZivotyOnOffBtn").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  5135. ActivePresentation.Slides(3).Shapes("ZivotyOnOffBtn").Fill.Transparency = 0.5
  5136. ActivePresentation.Slides(3).Shapes("Zivot1").Visible = False
  5137. ActivePresentation.Slides(3).Shapes("Zivot1Group").Visible = False
  5138. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False
  5139. ActivePresentation.Slides(3).Shapes("Zivot2").Visible = False
  5140. ActivePresentation.Slides(3).Shapes("Zivot2Group").Visible = False
  5141. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False
  5142. ActivePresentation.Slides(3).Shapes("Zivot3").Visible = False
  5143. ActivePresentation.Slides(3).Shapes("Zivot3Group").Visible = False
  5144. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False
  5145. ActivePresentation.Slides(3).Shapes("Zivot4").Visible = False
  5146. ActivePresentation.Slides(3).Shapes("Zivot4Group").Visible = False
  5147. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False
  5148. ActivePresentation.Slides(3).Shapes("Zivot5").Visible = False
  5149. ActivePresentation.Slides(3).Shapes("Zivot5Group").Visible = False
  5150. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False
  5151. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  5152. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5153. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  5154. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5155. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  5156. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5157. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  5158. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5159. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  5160. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  5161. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  5162. End If
  5163.  
  5164. If ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  5165. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  5166. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  5167. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  5168. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  5169. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  5170. End If
  5171.  
  5172. If (ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = True Or _
  5173. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = True Or _
  5174. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = True Or _
  5175. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = True Or _
  5176. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = True Or _
  5177. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = True Or _
  5178. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = True Or _
  5179. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = True Or _
  5180. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = True Or _
  5181. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = True Or _
  5182. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = True Or _
  5183. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = True Or _
  5184. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = True Or _
  5185. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = True Or _
  5186. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = True Or _
  5187. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = True Or _
  5188. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = True) And _
  5189. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  5190. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  5191. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  5192. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  5193. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  5194. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  5195. End If
  5196.  
  5197. End Sub
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!