Sub CreatePresentation()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim pptSlide As Object

    ' Initialize PowerPoint application
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True

    ' Create a new presentation
    Set pptPres = pptApp.Presentations.Add

    ' Slide 1 - Title Slide
    Set pptSlide = pptPres.Slides.Add(1, ppLayoutTitle)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Segurança da Informação e Inteligência Artificial"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Uma Visão Geral dos Pontos Mais Relevantes"

    ' Slide 2 - Segurança da Informação
    Set pptSlide = pptPres.Slides.Add(2, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Segurança da Informação"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• Conceitos Fundamentais\n• Confidencialidade, Integridade e Disponibilidade\n• Principais Ameaças e Vulnerabilidades\n• Políticas de Segurança"

    ' Slide 3 - Conceitos Fundamentais
    Set pptSlide = pptPres.Slides.Add(3, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Conceitos Fundamentais"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• O que é Segurança da Informação\n• Importância para Empresas e Indivíduos\n• Componentes Principais: Pessoas, Processos e Tecnologia"

    ' Slide 4 - Confidencialidade, Integridade e Disponibilidade
    Set pptSlide = pptPres.Slides.Add(4, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Confidencialidade, Integridade e Disponibilidade"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• Confidencialidade: Proteção contra acesso não autorizado\n• Integridade: Garantia de precisão e confiabilidade\n• Disponibilidade: Acesso contínuo às informações"

    ' Slide 5 - Principais Ameaças e Vulnerabilidades
    Set pptSlide = pptPres.Slides.Add(5, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Principais Ameaças e Vulnerabilidades"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• Malware: Vírus, Ransomware, Spyware\n• Phishing e Engenharia Social\n• Ataques DDoS\n• Vulnerabilidades em Software"

    ' Slide 6 - Políticas de Segurança
    Set pptSlide = pptPres.Slides.Add(6, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Políticas de Segurança"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• Definição e Importância\n• Exemplos de Políticas: Senhas, Acesso, Backup\n• Implementação e Monitoramento"

    ' Slide 7 - Inteligência Artificial
    Set pptSlide = pptPres.Slides.Add(7, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Inteligência Artificial"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• Conceitos e Definições\n• Principais Tecnologias\n• Aplicações em Segurança da Informação\n• Desafios e Considerações Éticas"

    ' Slide 8 - Conceitos e Definições de IA
    Set pptSlide = pptPres.Slides.Add(8, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Conceitos e Definições de IA"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• O que é Inteligência Artificial\n• Diferença entre IA, Aprendizado de Máquina e Deep Learning\n• Exemplos de IA no Cotidiano"

    ' Slide 9 - Principais Tecnologias de IA
    Set pptSlide = pptPres.Slides.Add(9, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Principais Tecnologias de IA"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• Aprendizado de Máquina (Machine Learning)\n• Redes Neurais Artificiais\n• Processamento de Linguagem Natural (NLP)\n• Sistemas de Visão Computacional"

    ' Slide 10 - Aplicações de IA em Segurança da Informação
    Set pptSlide = pptPres.Slides.Add(10, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Aplicações de IA em Segurança da Informação"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• Detecção de Anomalias\n• Análise Comportamental\n• Resposta Automática a Incidentes\n• Prevenção de Fraudes"

    ' Slide 11 - Desafios e Considerações Éticas
    Set pptSlide = pptPres.Slides.Add(11, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Desafios e Considerações Éticas"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• Transparência e Explicabilidade\n• Privacidade e Proteção de Dados\n• Viés e Discriminação\n• Segurança e Robustez"

    ' Slide 12 - Futuro da Segurança da Informação
    Set pptSlide = pptPres.Slides.Add(12, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Futuro da Segurança da Informação"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• Tendências Emergentes\n• Impacto da IA\n• Cibersegurança em um Mundo Conectado\n• Estratégias para Manter-se Atualizado"

    ' Slide 13 - Tendências Emergentes
    Set pptSlide = pptPres.Slides.Add(13, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Tendências Emergentes"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• Aumento de Ataques Ransomware\n• Integração de IoT e Cibersegurança\n• Desenvolvimento de Tecnologias Zero Trust\n• Adoção de Blockchain para Segurança"

    ' Slide 14 - Impacto da IA na Segurança
    Set pptSlide = pptPres.Slides.Add(14, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Impacto da IA na Segurança"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• Melhor Detecção e Resposta a Ameaças\n• Automação de Processos de Segurança\n• Análise Preditiva\n• Redução de Falsos Positivos"

    ' Slide 15 - Cibersegurança em um Mundo Conectado
    Set pptSlide = pptPres.Slides.Add(15, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Cibersegurança em um Mundo Conectado"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• Desafios da Conectividade Global\n• Segurança de Infraestruturas Críticas\n• Proteção de Dados Pessoais\n• Cooperação Internacional"

    ' Slide 16 - Estratégias para Manter-se Atualizado
    Set pptSlide = pptPres.Slides.Add(16, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Estratégias para Manter-se Atualizado"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• Educação Continuada\n• Participação em Conferências e Workshops\n• Networking com Profissionais da Área\n• Leitura de Publicações Especializadas"

    ' Slide 17 - IA e Cibersegurança: Casos de Uso
    Set pptSlide = pptPres.Slides.Add(17, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "IA e Cibersegurança: Casos de Uso"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• Detecção de Intrusões\n• Proteção Contra Ameaças Internas\n• Análise de Log de Segurança\n• Monitoramento Contínuo"

    ' Slide 18 - IA na Detecção de Intrusões
    Set pptSlide = pptPres.Slides.Add(18, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "IA na Detecção de Intrusões"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• Técnicas de Machine Learning\n• Análise de Padrões de Tráfego\n• Implementação de Sistemas de IDS/IPS\n• Vantagens e Desvantagens"

    ' Slide 19 - Proteção Contra Ameaças Internas
    Set pptSlide = pptPres.Slides.Add(19, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Proteção Contra Ameaças Internas"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• Monitoramento de Comportamento\n• Identificação de Ações Suspeitas\n• Resposta a Incidentes Internos\n• Casos de Uso Reais"

    ' Slide 20 - Conclusão
    Set pptSlide = pptPres.Slides.Add(20, ppLayoutText)
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Conclusão"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "• Importância da Segurança da Informação\n• Papel da IA na Evolução da Segurança\n• Preparação para o Futuro\n• Perguntas e Discussão"

    MsgBox "Apresentação criada com sucesso!", vbInformation
End Sub