API tools faq
paste
SGvagon

Poslech klíč Makra Module 2

SGvagon
Jun 1st, 2022 (edited)
67
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 64.73 KB | None | 0 0
raw download clone embed print report
  1. Private Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long)
  2.  
  3. Public Sub WaitSeconds(intSeconds As Integer)
  4. Dim dTime As Date
  5. dTime = DateAdd("s", intSeconds, Now)
  6. Do
  7. Sleep 100
  8. DoEvents
  9. Loop Until Now >= dTime
  10. End Sub
  11. Sub KlicCopy()
  12. '
  13. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  14. '
  15.  
  16. ActivePresentation.Slides(9).Shapes("Klic").TextFrame.TextRange.Copy
  17.  
  18. End Sub
  19. Sub Zivot1()
  20. '
  21. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  22. '
  23. With ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor
  24. Select Case .RGB
  25. Case vbWhite
  26. .RGB = vbMagenta
  27. Case vbMagenta
  28. .RGB = vbYellow
  29. Case vbGreen
  30. .RGB = vbWhite
  31. Case vbYellow
  32. .RGB = vbBlack
  33. Case vbBlack
  34. .RGB = vbGreen
  35.  
  36. End Select
  37. End With
  38.  
  39. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  40. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  41. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False
  42. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  43. End If
  44.  
  45. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  46. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  47. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  48. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  49. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  50. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  51. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  52. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  53. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  54. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  55. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  56. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  57. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  58. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  59. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  60. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  61. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  62. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  63. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  64. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  65. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  66. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  67. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  68. End If
  69.  
  70. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  71. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  72. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  73. End If
  74.  
  75. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1 Then
  76. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 0.5
  77. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = True
  78. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  79. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  80. End If
  81.  
  82. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  83. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 0.5
  84. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  85. End If
  86.  
  87. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1 Then
  88. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 0.5
  89. End If
  90.  
  91. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  92. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  93. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  94. End If
  95.  
  96. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  97. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  98. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  99. End If
  100.  
  101. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  102. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  103. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  104. End If
  105.  
  106. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  107. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  108. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  109. End If
  110.  
  111. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  112. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  113. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  114. End If
  115.  
  116. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  117. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  118. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  119. End If
  120.  
  121. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  122. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  123. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  124. End If
  125.  
  126. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  127. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  128. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  129. End If
  130.  
  131. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  132. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  133. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  134. End If
  135.  
  136. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  137. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  138. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  139. End If
  140.  
  141. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  142. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  143. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  144. End If
  145.  
  146. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  147. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  148. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  149. End If
  150.  
  151. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  152. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  153. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  154. End If
  155.  
  156. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  157. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  158. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  159. End If
  160.  
  161. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  162. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  163. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  164. End If
  165.  
  166. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  167. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  168. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  169. End If
  170.  
  171. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  172. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  173. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  174. End If
  175.  
  176. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  177. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  178. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  179. End If
  180.  
  181. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  182. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  183. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  184. End If
  185.  
  186. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  187. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  188. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  189. End If
  190.  
  191. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  192. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  193. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  194. End If
  195.  
  196. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) And _
  197. (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 _
  198. (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 _
  199. (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 _
  200. (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
  201. ActivePresentation.Slides(3).Shapes("CaraGong").ActionSettings(1).SoundEffect.Play
  202. End If
  203.  
  204. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 0, 0) And _
  205. (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 _
  206. (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 _
  207. (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 _
  208. (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
  209. With SlideShowWindows(1).View
  210.  
  211. WaitSeconds 3
  212.  
  213. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  214. DoEvents 'do nothing
  215. ElseIf ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  216. DoEvents 'do nothing
  217. ElseIf ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 0) Then
  218. DoEvents 'do nothing
  219. ElseIf ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  220. DoEvents 'do nothing
  221. Else
  222. .GotoSlide 10
  223. End If
  224. End With
  225. End If
  226.  
  227. End Sub
  228. Sub Zivot2()
  229. '
  230. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  231. '
  232. With ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor
  233. Select Case .RGB
  234. Case vbWhite
  235. .RGB = vbMagenta
  236. Case vbMagenta
  237. .RGB = vbYellow
  238. Case vbGreen
  239. .RGB = vbWhite
  240. Case vbYellow
  241. .RGB = vbBlack
  242. Case vbBlack
  243. .RGB = vbGreen
  244.  
  245. End Select
  246. End With
  247.  
  248. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  249. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  250. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False
  251. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  252. End If
  253.  
  254. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  255. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  256. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  257. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  258. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  259. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  260. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  261. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  262. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  263. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  264. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  265. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  266. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  267. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  268. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  269. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  270. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  271. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  272. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  273. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  274. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  275. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  276. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  277. End If
  278.  
  279. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  280. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  281. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  282. End If
  283.  
  284. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1 Then
  285. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 0.5
  286. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = True
  287. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  288. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  289. End If
  290.  
  291. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  292. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 0.5
  293. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  294. End If
  295.  
  296. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1 Then
  297. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 0.5
  298. End If
  299.  
  300. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  301. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  302. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  303. End If
  304.  
  305. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  306. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  307. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  308. End If
  309.  
  310. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  311. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  312. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  313. End If
  314.  
  315. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  316. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  317. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  318. End If
  319.  
  320. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  321. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  322. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  323. End If
  324.  
  325. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  326. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  327. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  328. End If
  329.  
  330. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  331. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  332. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  333. End If
  334.  
  335. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  336. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  337. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  338. End If
  339.  
  340. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  341. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  342. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  343. End If
  344.  
  345. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  346. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  347. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  348. End If
  349.  
  350. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  351. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  352. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  353. End If
  354.  
  355. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  356. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  357. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  358. End If
  359.  
  360. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  361. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  362. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  363. End If
  364.  
  365. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  366. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  367. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  368. End If
  369.  
  370. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  371. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  372. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  373. End If
  374.  
  375. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  376. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  377. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  378. End If
  379.  
  380. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  381. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  382. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  383. End If
  384.  
  385. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  386. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  387. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  388. End If
  389.  
  390. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  391. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  392. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  393. End If
  394.  
  395. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  396. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  397. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  398. End If
  399.  
  400. If ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  401. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  402. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  403. End If
  404.  
  405. End Sub
  406. Sub Zivot3()
  407. '
  408. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  409. '
  410. With ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor
  411. Select Case .RGB
  412. Case vbWhite
  413. .RGB = vbMagenta
  414. Case vbMagenta
  415. .RGB = vbYellow
  416. Case vbGreen
  417. .RGB = vbWhite
  418. Case vbYellow
  419. .RGB = vbBlack
  420. Case vbBlack
  421. .RGB = vbGreen
  422.  
  423. End Select
  424. End With
  425.  
  426. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  427. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  428. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False
  429. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  430. End If
  431.  
  432. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  433. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  434. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  435. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  436. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  437. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  438. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  439. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  440. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  441. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  442. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  443. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  444. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  445. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  446. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  447. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  448. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  449. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  450. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  451. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  452. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  453. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  454. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  455. End If
  456.  
  457. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  458. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  459. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  460. End If
  461.  
  462. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1 Then
  463. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 0.5
  464. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = True
  465. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  466. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  467. End If
  468.  
  469. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  470. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 0.5
  471. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  472. End If
  473.  
  474. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1 Then
  475. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 0.5
  476. End If
  477.  
  478. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  479. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  480. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  481. End If
  482.  
  483. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  484. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  485. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  486. End If
  487.  
  488. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  489. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  490. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  491. End If
  492.  
  493. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  494. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  495. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  496. End If
  497.  
  498. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  499. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  500. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  501. End If
  502.  
  503. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  504. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  505. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  506. End If
  507.  
  508. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  509. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  510. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  511. End If
  512.  
  513. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  514. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  515. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  516. End If
  517.  
  518. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  519. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  520. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  521. End If
  522.  
  523. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  524. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  525. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  526. End If
  527.  
  528. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  529. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  530. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  531. End If
  532.  
  533. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  534. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  535. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  536. End If
  537.  
  538. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  539. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  540. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  541. End If
  542.  
  543. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  544. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  545. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  546. End If
  547.  
  548. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  549. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  550. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  551. End If
  552.  
  553. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  554. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  555. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  556. End If
  557.  
  558. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  559. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  560. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  561. End If
  562.  
  563. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  564. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  565. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  566. End If
  567.  
  568. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  569. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  570. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  571. End If
  572.  
  573. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  574. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  575. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  576. End If
  577.  
  578. If ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  579. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  580. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  581. End If
  582.  
  583. End Sub
  584. Sub Zivot4()
  585. '
  586. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  587. '
  588. With ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor
  589. Select Case .RGB
  590. Case vbWhite
  591. .RGB = vbMagenta
  592. Case vbMagenta
  593. .RGB = vbYellow
  594. Case vbGreen
  595. .RGB = vbWhite
  596. Case vbYellow
  597. .RGB = vbBlack
  598. Case vbBlack
  599. .RGB = vbGreen
  600.  
  601. End Select
  602. End With
  603.  
  604. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  605. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  606. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False
  607. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  608. End If
  609.  
  610. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  611. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  612. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  613. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  614. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  615. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  616. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  617. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  618. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  619. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  620. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  621. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  622. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  623. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  624. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  625. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  626. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  627. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  628. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  629. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  630. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  631. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  632. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  633. End If
  634.  
  635. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  636. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  637. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  638. End If
  639.  
  640. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1 Then
  641. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 0.5
  642. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = True
  643. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  644. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  645. End If
  646.  
  647. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  648. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 0.5
  649. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  650. End If
  651.  
  652. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1 Then
  653. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 0.5
  654. End If
  655.  
  656. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  657. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  658. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  659. End If
  660.  
  661. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  662. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  663. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  664. End If
  665.  
  666. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  667. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  668. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  669. End If
  670.  
  671. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  672. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  673. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  674. End If
  675.  
  676. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  677. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  678. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  679. End If
  680.  
  681. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  682. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  683. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  684. End If
  685.  
  686. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  687. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  688. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  689. End If
  690.  
  691. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  692. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  693. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  694. End If
  695.  
  696. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  697. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  698. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  699. End If
  700.  
  701. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  702. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  703. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  704. End If
  705.  
  706. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  707. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  708. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  709. End If
  710.  
  711. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  712. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  713. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  714. End If
  715.  
  716. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  717. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  718. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  719. End If
  720.  
  721. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  722. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  723. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  724. End If
  725.  
  726. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  727. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  728. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  729. End If
  730.  
  731. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  732. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  733. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  734. End If
  735.  
  736. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  737. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  738. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  739. End If
  740.  
  741. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  742. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  743. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  744. End If
  745.  
  746. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  747. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  748. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  749. End If
  750.  
  751. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  752. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  753. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  754. End If
  755.  
  756. If ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  757. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  758. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  759. End If
  760.  
  761. End Sub
  762. Sub Zivot5()
  763. '
  764. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  765. '
  766. With ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor
  767. Select Case .RGB
  768. Case vbWhite
  769. .RGB = vbMagenta
  770. Case vbMagenta
  771. .RGB = vbYellow
  772. Case vbGreen
  773. .RGB = vbWhite
  774. Case vbYellow
  775. .RGB = vbBlack
  776. Case vbBlack
  777. .RGB = vbGreen
  778.  
  779. End Select
  780. End With
  781.  
  782. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 255, 0) Then
  783. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  784. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False
  785. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  786. End If
  787.  
  788. If ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False And _
  789. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False And _
  790. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False And _
  791. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False And _
  792. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False And _
  793. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False And _
  794. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False And _
  795. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False And _
  796. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False And _
  797. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False And _
  798. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False And _
  799. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False And _
  800. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False And _
  801. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False And _
  802. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False And _
  803. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False And _
  804. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False And _
  805. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False And _
  806. ActivePresentation.Slides(5).Shapes("OdpovedZivot2").Visible = False And _
  807. ActivePresentation.Slides(5).Shapes("OdpovedZivot3").Visible = False And _
  808. ActivePresentation.Slides(5).Shapes("OdpovedZivot4").Visible = False And _
  809. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = False Then
  810. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = True
  811. End If
  812.  
  813. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 0, 255) Then
  814. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1
  815. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  816. End If
  817.  
  818. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 0) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1 Then
  819. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 0.5
  820. ActivePresentation.Slides(5).Shapes("OdpovedZivot5").Visible = True
  821. ActivePresentation.Slides(5).Shapes("BezOdpovedi").Visible = False
  822. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  823. End If
  824.  
  825. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  826. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 0.5
  827. ActivePresentation.Slides(3).Shapes("CaraKlik").ActionSettings(1).SoundEffect.Play
  828. End If
  829.  
  830. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 1 Then
  831. ActivePresentation.Slides(3).Shapes("Zivot5").Fill.Transparency = 0.5
  832. End If
  833.  
  834. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  835. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  836. ActivePresentation.Slides(3).Shapes("Zivot1").Fill.Transparency = 1
  837. End If
  838.  
  839. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  840. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  841. ActivePresentation.Slides(3).Shapes("Zivot2").Fill.Transparency = 1
  842. End If
  843.  
  844. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  845. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  846. ActivePresentation.Slides(3).Shapes("Zivot3").Fill.Transparency = 1
  847. End If
  848.  
  849. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  850. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  851. ActivePresentation.Slides(3).Shapes("Zivot4").Fill.Transparency = 1
  852. End If
  853.  
  854. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  855. ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 255, 0)
  856. ActivePresentation.Slides(3).Shapes("Pole1").Fill.Transparency = 1
  857. End If
  858.  
  859. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  860. ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 255, 0)
  861. ActivePresentation.Slides(3).Shapes("Pole2").Fill.Transparency = 1
  862. End If
  863.  
  864. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  865. ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 255, 0)
  866. ActivePresentation.Slides(3).Shapes("Pole3").Fill.Transparency = 1
  867. End If
  868.  
  869. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  870. ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 255, 0)
  871. ActivePresentation.Slides(3).Shapes("Pole4").Fill.Transparency = 1
  872. End If
  873.  
  874. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  875. ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 255, 0)
  876. ActivePresentation.Slides(3).Shapes("Pole5").Fill.Transparency = 1
  877. End If
  878.  
  879. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  880. ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 255, 0)
  881. ActivePresentation.Slides(3).Shapes("Pole6").Fill.Transparency = 1
  882. End If
  883.  
  884. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  885. ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 255, 0)
  886. ActivePresentation.Slides(3).Shapes("Pole7").Fill.Transparency = 1
  887. End If
  888.  
  889. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  890. ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 255, 0)
  891. ActivePresentation.Slides(3).Shapes("Pole8").Fill.Transparency = 1
  892. End If
  893.  
  894. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  895. ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 255, 0)
  896. ActivePresentation.Slides(3).Shapes("Pole9").Fill.Transparency = 1
  897. End If
  898.  
  899. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  900. ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 255, 0)
  901. ActivePresentation.Slides(3).Shapes("Pole10").Fill.Transparency = 1
  902. End If
  903.  
  904. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  905. ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 255, 0)
  906. ActivePresentation.Slides(3).Shapes("Pole11").Fill.Transparency = 1
  907. End If
  908.  
  909. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  910. ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 255, 0)
  911. ActivePresentation.Slides(3).Shapes("Pole12").Fill.Transparency = 1
  912. End If
  913.  
  914. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  915. ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 255, 0)
  916. ActivePresentation.Slides(3).Shapes("Pole13").Fill.Transparency = 1
  917. End If
  918.  
  919. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  920. ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 255, 0)
  921. ActivePresentation.Slides(3).Shapes("Pole14").Fill.Transparency = 1
  922. End If
  923.  
  924. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  925. ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 255, 0)
  926. ActivePresentation.Slides(3).Shapes("Pole15").Fill.Transparency = 1
  927. End If
  928.  
  929. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  930. ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 255, 0)
  931. ActivePresentation.Slides(3).Shapes("Pole16").Fill.Transparency = 1
  932. End If
  933.  
  934. If ActivePresentation.Slides(3).Shapes("Zivot5").Fill.ForeColor.RGB = RGB(255, 255, 255) And ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(255, 255, 255) Then
  935. ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 255, 0)
  936. ActivePresentation.Slides(3).Shapes("Pole17").Fill.Transparency = 1
  937. End If
  938.  
  939. End Sub
  940. Sub DruhaSance()
  941. '
  942. ' Makro vytvořené 30.5.2022 uživatelem SGvagon
  943. '
  944. If ActivePresentation.Slides(3).Shapes("Zivot1").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  945. Set newRect = ActivePresentation.Slides(3).Shapes("Zivot1")
  946. newRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
  947. Set newRect = ActivePresentation.Slides(3).Shapes("Zivot1")
  948. newRect.Fill.Transparency = 1
  949. ActivePresentation.Slides(5).Shapes("OdpovedZivot1").Visible = False
  950. Else
  951. If ActivePresentation.Slides(3).Shapes("Pole1").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  952. Set newRect = ActivePresentation.Slides(3).Shapes("Pole1")
  953. newRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
  954. Set newRect = ActivePresentation.Slides(3).Shapes("Pole1")
  955. newRect.Fill.Transparency = 1
  956. ActivePresentation.Slides(5).Shapes("Odpoved1").Visible = False
  957. End If
  958. If ActivePresentation.Slides(3).Shapes("Pole2").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  959. Set newRect = ActivePresentation.Slides(3).Shapes("Pole2")
  960. newRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
  961. Set newRect = ActivePresentation.Slides(3).Shapes("Pole2")
  962. newRect.Fill.Transparency = 1
  963. ActivePresentation.Slides(5).Shapes("Odpoved2").Visible = False
  964. End If
  965. If ActivePresentation.Slides(3).Shapes("Pole3").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  966. Set newRect = ActivePresentation.Slides(3).Shapes("Pole3")
  967. newRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
  968. Set newRect = ActivePresentation.Slides(3).Shapes("Pole3")
  969. newRect.Fill.Transparency = 1
  970. ActivePresentation.Slides(5).Shapes("Odpoved3").Visible = False
  971. End If
  972. If ActivePresentation.Slides(3).Shapes("Pole4").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  973. Set newRect = ActivePresentation.Slides(3).Shapes("Pole4")
  974. newRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
  975. Set newRect = ActivePresentation.Slides(3).Shapes("Pole4")
  976. newRect.Fill.Transparency = 1
  977. ActivePresentation.Slides(5).Shapes("Odpoved4").Visible = False
  978. End If
  979. If ActivePresentation.Slides(3).Shapes("Pole5").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  980. Set newRect = ActivePresentation.Slides(3).Shapes("Pole5")
  981. newRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
  982. Set newRect = ActivePresentation.Slides(3).Shapes("Pole5")
  983. newRect.Fill.Transparency = 1
  984. ActivePresentation.Slides(5).Shapes("Odpoved5").Visible = False
  985. End If
  986. If ActivePresentation.Slides(3).Shapes("Pole6").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  987. Set newRect = ActivePresentation.Slides(3).Shapes("Pole6")
  988. newRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
  989. Set newRect = ActivePresentation.Slides(3).Shapes("Pole6")
  990. newRect.Fill.Transparency = 1
  991. ActivePresentation.Slides(5).Shapes("Odpoved6").Visible = False
  992. End If
  993. If ActivePresentation.Slides(3).Shapes("Pole7").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  994. Set newRect = ActivePresentation.Slides(3).Shapes("Pole7")
  995. newRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
  996. Set newRect = ActivePresentation.Slides(3).Shapes("Pole7")
  997. newRect.Fill.Transparency = 1
  998. ActivePresentation.Slides(5).Shapes("Odpoved7").Visible = False
  999. End If
  1000. If ActivePresentation.Slides(3).Shapes("Pole8").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  1001. Set newRect = ActivePresentation.Slides(3).Shapes("Pole8")
  1002. newRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
  1003. Set newRect = ActivePresentation.Slides(3).Shapes("Pole8")
  1004. newRect.Fill.Transparency = 1
  1005. ActivePresentation.Slides(5).Shapes("Odpoved8").Visible = False
  1006. End If
  1007. If ActivePresentation.Slides(3).Shapes("Pole9").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  1008. Set newRect = ActivePresentation.Slides(3).Shapes("Pole9")
  1009. newRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
  1010. Set newRect = ActivePresentation.Slides(3).Shapes("Pole9")
  1011. newRect.Fill.Transparency = 1
  1012. ActivePresentation.Slides(5).Shapes("Odpoved9").Visible = False
  1013. End If
  1014. If ActivePresentation.Slides(3).Shapes("Pole10").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  1015. Set newRect = ActivePresentation.Slides(3).Shapes("Pole10")
  1016. newRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
  1017. Set newRect = ActivePresentation.Slides(3).Shapes("Pole10")
  1018. newRect.Fill.Transparency = 1
  1019. ActivePresentation.Slides(5).Shapes("Odpoved10").Visible = False
  1020. End If
  1021. If ActivePresentation.Slides(3).Shapes("Pole11").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  1022. Set newRect = ActivePresentation.Slides(3).Shapes("Pole11")
  1023. newRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
  1024. Set newRect = ActivePresentation.Slides(3).Shapes("Pole11")
  1025. newRect.Fill.Transparency = 1
  1026. ActivePresentation.Slides(5).Shapes("Odpoved11").Visible = False
  1027. End If
  1028. If ActivePresentation.Slides(3).Shapes("Pole12").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  1029. Set newRect = ActivePresentation.Slides(3).Shapes("Pole12")
  1030. newRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
  1031. Set newRect = ActivePresentation.Slides(3).Shapes("Pole12")
  1032. newRect.Fill.Transparency = 1
  1033. ActivePresentation.Slides(5).Shapes("Odpoved12").Visible = False
  1034. End If
  1035. If ActivePresentation.Slides(3).Shapes("Pole13").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  1036. Set newRect = ActivePresentation.Slides(3).Shapes("Pole13")
  1037. newRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
  1038. Set newRect = ActivePresentation.Slides(3).Shapes("Pole13")
  1039. newRect.Fill.Transparency = 1
  1040. ActivePresentation.Slides(5).Shapes("Odpoved13").Visible = False
  1041. End If
  1042. If ActivePresentation.Slides(3).Shapes("Pole14").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  1043. Set newRect = ActivePresentation.Slides(3).Shapes("Pole14")
  1044. newRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
  1045. Set newRect = ActivePresentation.Slides(3).Shapes("Pole14")
  1046. newRect.Fill.Transparency = 1
  1047. ActivePresentation.Slides(5).Shapes("Odpoved14").Visible = False
  1048. End If
  1049. If ActivePresentation.Slides(3).Shapes("Pole15").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  1050. Set newRect = ActivePresentation.Slides(3).Shapes("Pole15")
  1051. newRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
  1052. Set newRect = ActivePresentation.Slides(3).Shapes("Pole15")
  1053. newRect.Fill.Transparency = 1
  1054. ActivePresentation.Slides(5).Shapes("Odpoved15").Visible = False
  1055. End If
  1056. If ActivePresentation.Slides(3).Shapes("Pole16").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  1057. Set newRect = ActivePresentation.Slides(3).Shapes("Pole16")
  1058. newRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
  1059. Set newRect = ActivePresentation.Slides(3).Shapes("Pole16")
  1060. newRect.Fill.Transparency = 1
  1061. ActivePresentation.Slides(5).Shapes("Odpoved16").Visible = False
  1062. End If
  1063. If ActivePresentation.Slides(3).Shapes("Pole17").Fill.ForeColor.RGB = RGB(0, 0, 0) Then
  1064. Set newRect = ActivePresentation.Slides(3).Shapes("Pole17")
  1065. newRect.Fill.ForeColor.RGB = RGB(0, 255, 0)
  1066. Set newRect = ActivePresentation.Slides(3).Shapes("Pole17")
  1067. newRect.Fill.Transparency = 1
  1068. ActivePresentation.Slides(5).Shapes("Odpoved17").Visible = False
  1069. End If
  1070. End If
  1071. With SlideShowWindows(1).View
  1072. .GotoSlide 3, msoFalse
  1073. End With
  1074.  
  1075. 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!