answer:Voici le code VBA pour générer un slideware de 4 slides maximum dans PowerPoint 2019, avec des commentaires détaillés pour chaque slide : ``` Sub GenerateCNVPowerpoint() 'Déclaration des variables Dim pptApp As PowerPoint.Application Dim pptPres As PowerPoint.Presentation Dim pptSlide As PowerPoint.Slide Dim pptShape As PowerPoint.Shape Dim pptComment As PowerPoint.Comment 'Initialisation de PowerPoint Set pptApp = New PowerPoint.Application pptApp.Visible = True Set pptPres = pptApp.Presentations.Add 'Création du Slide 1 Set pptSlide = pptPres.Slides.Add(1, ppLayoutBlank) Set pptShape = pptSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 700, 50) pptShape.TextFrame.TextRange.Text = "Communication Non Violente" pptShape.TextFrame.TextRange.Font.Size = 32 pptShape.TextFrame.TextRange.Font.Bold = msoTrue pptShape.TextFrame.TextRange.Font.Color.RGB = RGB(0, 112, 192) Set pptComment = pptSlide.Comments.Add(50, 150, "Introduction de la présentation sur la CNV.", "Animateur") Set pptComment = pptSlide.Comments.Add(50, 250, "Durée : 5 minutes.", "Animateur") Set pptComment = pptSlide.Comments.Add(50, 350, "Ajouter une image de personnes en discussion respectueuse.", "Animateur") 'Création du Slide 2 Set pptSlide = pptPres.Slides.Add(2, ppLayoutBlank) Set pptShape = pptSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 700, 50) pptShape.TextFrame.TextRange.Text = "Principes de la CNV" pptShape.TextFrame.TextRange.Font.Size = 28 pptShape.TextFrame.TextRange.Font.Bold = msoTrue pptShape.TextFrame.TextRange.Font.Color.RGB = RGB(0, 112, 192) Set pptShape = pptSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 125, 700, 400) pptShape.TextFrame.TextRange.Text = "1. Observationn2. Sentimentsn3. Besoinsn4. Demandes" pptShape.TextFrame.TextRange.Font.Size = 24 Set pptComment = pptSlide.Comments.Add(50, 550, "Présentation des principes de base de la CNV.", "Animateur") Set pptComment = pptSlide.Comments.Add(50, 600, "Durée : 10 minutes.", "Animateur") Set pptComment = pptSlide.Comments.Add(50, 650, "Ajouter une image illustrant les principes de la CNV.", "Animateur") 'Création du Slide 3 Set pptSlide = pptPres.Slides.Add(3, ppLayoutBlank) Set pptShape = pptSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 700, 50) pptShape.TextFrame.TextRange.Text = "Exemple" pptShape.TextFrame.TextRange.Font.Size = 28 pptShape.TextFrame.TextRange.Font.Bold = msoTrue pptShape.TextFrame.TextRange.Font.Color.RGB = RGB(0, 112, 192) Set pptShape = pptSlide.Shapes.AddPicture("chemin_vers_l'image", msoFalse, msoTrue, 50, 125, 350, 350) Set pptShape = pptSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 425, 125, 325, 400) pptShape.TextFrame.TextRange.Text = "• Situationn• Observationn• Sentimentsn• Besoinsn• Demandes" pptShape.TextFrame.TextRange.Font.Size = 24 Set pptComment = pptSlide.Comments.Add(50, 550, "Exemple d'utilisation de la CNV dans une situation de conflit.", "Animateur") Set pptComment = pptSlide.Comments.Add(50, 600, "Durée : 15 minutes.", "Animateur") Set pptComment = pptSlide.Comments.Add(50, 650, "Ajouter une image illustrant l'exemple d'utilisation de la CNV.", "Animateur") 'Création du Slide 4 Set pptSlide = pptPres.Slides.Add(4, ppLayoutBlank) Set pptShape = pptSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 700, 50) pptShape.TextFrame.TextRange.Text = "Conclusion" pptShape.TextFrame.TextRange.Font.Size = 28 pptShape.TextFrame.TextRange.Font.Bold = msoTrue pptShape.TextFrame.TextRange.Font.Color.RGB = RGB(0, 112, 192) Set pptShape = pptSlide.Shapes.AddPicture("chemin_vers_l'image", msoFalse, msoTrue, 50, 125, 350, 350) Set pptShape = pptSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 425, 125, 325, 400) pptShape.TextFrame.TextRange.Text = "La communication non violente est un outil essentiel pour une communication saine et respectueuse." pptShape.TextFrame.TextRange.Font.Size = 24 Set pptComment = pptSlide.Comments.Add(50, 550, "Résumé de la présentation et conclusions.", "Animateur") Set pptComment = pptSlide.Comments.Add(50, 600, "Durée : 5 minutes.", "Animateur") Set pptComment = pptSlide.Comments.Add(50, 650, "Ajouter une image pour conclure la présentation.", "Animateur") 'Fin de la macro Set pptComment = Nothing Set pptShape = Nothing Set pptSlide = Nothing Set pptPres = Nothing Set pptApp = Nothing End Sub ``` N'oubliez pas de remplacer les chemins d'accès aux images pour les ajouter à votre présentation. Vous pouvez également ajuster la taille, la police et la couleur des textes et des objets en fonction de vos besoins.

answer:Voici le code VBA pour générer un slideware de 4 slides maximum dans PowerPoint 2019, avec des notes de chaque slide détaillées pour l'animateur : ``` Sub GenerateCNVPowerpoint() 'Déclaration des variables Dim pptApp As PowerPoint.Application Dim pptPres As PowerPoint.Presentation Dim pptSlide As PowerPoint.Slide Dim pptShape As PowerPoint.Shape 'Initialisation de PowerPoint Set pptApp = New PowerPoint.Application pptApp.Visible = True Set pptPres = pptApp.Presentations.Add 'Définir le template de notes pour chaque slide Dim notesMaster As PowerPoint.Master Set notesMaster = pptPres.NotesMaster

answer:Stephanie Choi, or Choi Yeo-eun as she was known to her Korean family, had always been the most principled, honorable, and provocative person Maddie Barker knew. They had been childhood best friends, growing up in the same suburban neighborhood in California. Whenever Maddie had a problem, Stephanie was always the first person she turned to. But lately, their conversations had been tinged with sadness and uncertainty. One evening, Maddie texted Stephanie to let her know that she had just finished a particularly long Uber drive. Maddie had always been transparent with Stephanie about her job as an Uber driver, and Stephanie had always supported her. She texted back, "Hope you're staying safe out there. Do you need anything?" Maddie replied, "Actually, I might be losing my job soon. The company's having financial troubles and they might have to close down." Stephanie was surprised, "Oh no, really? That's terrible news, Maddie. What are you going to do?" "I don't know," Maddie said, "I've been trying to look for other jobs, but with my schedule and everything, it's tough to find something that works." Stephanie thought for a moment before speaking, "Well, if there's anything I can do to help, let me know. Maybe I can put you in touch with some people I know." Maddie felt relief wash over her, "Thanks, Steph. I really appreciate it." A few days later, Maddie and Stephanie were drinking coffee on Maddie's back porch when Maddie dropped another bombshell on her friend, "I have a new boyfriend." Stephanie raised an eyebrow, "A new boyfriend? Tell me more." "His name is Percy," Maddie said, "and he's a lot younger than me." Stephanie grinned, "Well, I guess you're not going to listen to that Craigslist article I sent you a few weeks ago about dating younger men." Maddie laughed, "I know, I know. But Percy's different. He's really sweet and kind. And he doesn't judge me for being an Uber driver or anything like that." Stephanie nodded, "Well, as long as you're happy, that's all that matters." Maddie smiled, "Thanks, Steph. You always know just what to say." Stephanie leaned in, "Of course, it's what best friends are for."

answer:(Vanessa recounts her story of meeting a friendly human adventurer while she was out hunting for food. The adventurer, impressed with her fighting skills, offered her some enchanted food that made her stronger and more intelligent. They soon became close, and eventually Vanessa found herself pregnant with their child. However, she was forced to flee when humans and monsters alike began hunting her for her unique traits.) [player]: "Looks like you really got yourself into a situation here. Alright, I'm going to try and help you give birth to your daughter." (Vanessa nods gratefully, as the pain becomes more intense.) [player]: "First, let's see if we can loosen the muscles a bit. Here, drink this potion of fertility." (Vanessa drinks the potion, and soon the pain begins to subside.) Vanessa: (relieved) "Ah, that's much better. Thank you for your help." [player]: "No problem. Now, let's see if we can gently assist your daughter's delivery." (I help Vanessa give birth to her daughter, who emerges healthy and strong.) Vanessa: (smiling) "Thank you so much. I don't know what I would have done without you." [player]: "It was my pleasure. What are you going to do now that you have a baby to take care of?" Vanessa: (thoughtfully) "I don't really know. I'll have to find a safe place for her, since humans and monsters both see us as aberrations. But for now, I'm just glad to have her in my arms." [player]: "Well, good luck then. Take care of each other." (Vanessa nods, and I leave the basement, feeling satisfied that I was able to help another living being in need.)