dans VBA powerpoint Comment faire pour ajouter une nouvelle diapositive dans une présentation vide

Je veux ajouter une nouvelle diapositive à un vide de présentation. J'ai du mal avec la mise en page.
Je suis en Utilisant le suivant:

Set pptLayout = ActivePresentation.Designs(1).SlideMaster.CustomLayouts(1)
Set sld = ActivePresentation.Slides.AddSlide(1, pptLayout)
sld.Design = ActivePresentation.Designs(1)

Ce code fonctionne très bien quand j'ai déjà une diapositive dans ma présentation, mais je n'en ai pas!

Donc, ma question est: comment puis-je insérer une diapositive si je n'ai pas une affection préexistante de glisser pour définir la mise en page?
Je veux dire dans la première ligne du code, je suis définir une mise en page à l'aide de la diapositive 1 afin de l'utiliser dans le .AddSlide

Le code fonctionne très bien pour moi. J'ai créé un nouveau powerpoint. Supprimé le départ de la diapositive, puis a couru le code. Elle a ajouté une nouvelle diapositive.
C'est tellement étrange, qu'il travaille avec vous! Je ne suis pas un expert VBA dire pourquoi..

OriginalL'auteur Muhammed Saddam | 2015-05-07

  1. 2

    Vous pouvez simplement utiliser quelque chose comme ceci :

    ActivePresentation.Slides.Add Index:=ActivePresentation.Slides.Count + 1, Layout:=ppLayoutCustom

    Avec qui vous n'avez pas à obtenir la mise en page d'ailleurs et vous pouvez le modifier, voir les autres possibilités que vous avez sur la capture d'écran :

    dans VBA powerpoint Comment faire pour ajouter une nouvelle diapositive dans une présentation vide

    Salut, il me donne activeX ne peut pas créer l'objet erreur, même si j'ai compris la référence à Microsoft Ppt bibliothèque une idée sur cette erreur ?
    Pouvez-vous créer une question et coller le lien ici? Pas facile à résoudre, sans voir votre code! (Et cette erreur est assez compliqué...)
    stackoverflow.com/questions/39816016/... C'est la question que c'est résolu maintenant.

    OriginalL'auteur R3uK

  2. 0

    Une variation de l'OP code fonctionne pour moi

    Dim appPPT As PowerPoint.Application
dim ppObj As PowerPoint.Presentation
dim slideObj As PowerPoint.Slide
dim pptLayout As CustomLayout

Set appPPT = New PowerPoint.Application
Set ppObj = appPPT.Presentations.Add
Set pptLayout = ppObj.Designs(1).SlideMaster.CustomLayouts(7)
Set slideObj = ppObj.Slides.AddSlide(1, pptLayout)

    OriginalL'auteur Hrothgar