Untitled
unknown
plain_text
18 days ago
4.8 kB
2
Indexable
Never
Sub CreateRANo9995Presentation() ' Create a new PowerPoint presentation Dim pptApp As Object Dim pptPres As Object Set pptApp = CreateObject("PowerPoint.Application") pptApp.Visible = True Set pptPres = pptApp.Presentations.Add ' Add slides and content Dim slideIndex As Integer Dim slideTitle As String Dim slideContent As String ' Slide 1: Title Slide slideTitle = "Republic Act No. 9995" slideContent = "Anti-Photo and Video Voyeurism Act of 2009" AddSlide pptPres, slideTitle, slideContent ' Slide 2: Introduction slideTitle = "Introduction" slideContent = "Republic Act No. 9995 was enacted to protect the privacy and dignity of individuals by penalizing the unauthorized recording and distribution of private images and videos." AddSlide pptPres, slideTitle, slideContent ' Slide 3: Purpose of the Act slideTitle = "Purpose of the Act" slideContent = "The main purpose of RA 9995 is to prohibit and penalize acts of photo and video voyeurism, especially those that infringe on a person's privacy." AddSlide pptPres, slideTitle, slideContent ' Slide 4: Definition of Terms slideTitle = "Definition of Terms" slideContent = "RA 9995 defines key terms such as 'photo or video voyeurism,' 'private act,' 'broadcast,' and 'capture.'" AddSlide pptPres, slideTitle, slideContent ' Slide 5: Prohibited Acts slideTitle = "Prohibited Acts" slideContent = "The act prohibits capturing, copying, reproducing, distributing, or broadcasting private images and videos without consent." AddSlide pptPres, slideTitle, slideContent ' Slide 6: Consent and Privacy slideTitle = "Consent and Privacy" slideContent = "It emphasizes the need for explicit consent from individuals involved in private acts before recording or sharing their images or videos." AddSlide pptPres, slideTitle, slideContent ' Slide 7: Penalties for Violation slideTitle = "Penalties for Violation" slideContent = "Violators can face imprisonment of up to seven years and a fine of up to P500,000, depending on the gravity of the offense." AddSlide pptPres, slideTitle, slideContent ' Slide 8: Exceptions to the Law slideTitle = "Exceptions to the Law" slideContent = "The act allows for certain exceptions, such as recordings made in the interest of national security or public safety." AddSlide pptPres, slideTitle, slideContent ' Slide 9: Role of Law Enforcement slideTitle = "Role of Law Enforcement" slideContent = "Law enforcement agencies play a crucial role in the implementation and enforcement of RA 9995." AddSlide pptPres, slideTitle, slideContent ' Slide 10: Rights of Victims slideTitle = "Rights of Victims" slideContent = "Victims of photo and video voyeurism have the right to file complaints and seek legal protection." AddSlide pptPres, slideTitle, slideContent ' Slide 11: Public Awareness slideTitle = "Public Awareness" slideContent = "Raising awareness about the law and its provisions is essential to prevent violations and protect individuals' privacy." AddSlide pptPres, slideTitle, slideContent ' Slide 12: Challenges in Implementation slideTitle = "Challenges in Implementation" slideContent = "Despite its provisions, challenges remain in effectively implementing RA 9995, including technological advancements and online anonymity." AddSlide pptPres, slideTitle, slideContent ' Slide 13: Importance of RA 9995 slideTitle = "Importance of RA 9995" slideContent = "The law plays a vital role in safeguarding individuals' privacy and ensuring their dignity is respected." AddSlide pptPres, slideTitle, slideContent ' Slide 14: Conclusion slideTitle = "Conclusion" slideContent = "Republic Act No. 9995 is a significant step towards protecting privacy in the digital age, but continued efforts are needed to enhance its implementation." AddSlide pptPres, slideTitle, slideContent ' Slide 15: Thank You slideTitle = "Thank You" slideContent = "Thank you for your attention. Questions or comments?" AddSlide pptPres, slideTitle, slideContent ' Display the PowerPoint presentation pptApp.ActivePresentation.SlideShowSettings.Run End Sub Sub AddSlide(pptPres As Object, slideTitle As String, slideContent As String) ' Add a new slide with title and content Dim slideIndex As Integer slideIndex = pptPres.Slides.Count + 1 Dim slide As Object Set slide = pptPres.Slides.Add(slideIndex, 1) ' 1 = ppLayoutText slide.Shapes(1).TextFrame.TextRange.Text = slideTitle slide.Shapes(2).TextFrame.TextRange.Text = slideContent End Sub
Leave a Comment