Microsoft 365 Copier mes lignes excel dans PPT 1lignes= 1 slides ...

azerty129

XLDnaute Nouveau
Bonjour,

j'aimerais pouvoir copié mes lignes excel dans powerpoint avec une macro. (1 LIGNES EXCEL = 1 slides powerpoint)
J'ai tenté un code mais sans succès
merci d'avance de votre aide
Je joins mes fichier test
Cordialement
AZERTY129
 

Pièces jointes

  • fichier test.xlsm
    13.1 KB · Affichages: 3

Eric KERGRESSE

XLDnaute Occasionnel
Bonjour,

Ce code ne correspond pas tout à fait à votre demande car il crée un ppt de toute pièce, mais vous devriez arriver à l'adapter assez facilement.

Nb : Il est plus facile de faire la mise au point le code en référençant PowerPoint (early binding), plutôt que de déclarer vos variables PowerPoint en type Object, vous bénéficierez de l'intellisens (un point derrière le nom de votre variable et vous avez accès à toutes les propriétés, événements et actions possibles avec cet objet).
Une fois le code au point vous pourrez basculer en late binding si celui-ci doit fonctionner sur différentes versions de PowerPoint.

VB:
Sub CreationPpt()

Dim Ppt As PowerPoint.Application
Dim Pptd As PowerPoint.Presentation
Dim PptS As PowerPoint.Slide
Dim PptShape As PowerPoint.Shape
Dim Chemin As String
Dim I As Long
Dim AireTexte As Range

    Chemin = ThisWorkbook.Path & "\Essai1.pptx"
    Set AireTexte = Sheets("Sheet1").Range("A1").CurrentRegion

    Set Ppt = CreateObject("Powerpoint.Application")
    Ppt.Visible = True
    Set Pptd = Ppt.Presentations.Add
    
    For I = 1 To AireTexte.Count
        Set PptS = Pptd.Slides.Add(Index:=I, Layout:=ppLayoutBlank)
        With PptS
             Set PptShape = .Shapes.AddTextbox(msoTextOrientationHorizontal, 160, 120, 450, 50)
             PptShape.TextFrame.TextRange.Text = AireTexte(I)
             Set PptShape = Nothing
        End With
        Set PptS = Nothing
    Next I

    Pptd.SaveAs Filename:=Chemin
    Pptd.Close
    Ppt.Quit
      
    Set Pptd = Nothing: Set Ppt = Nothing: Set AireTexte = Nothing


End Sub
 

Discussions similaires

Réponses
5
Affichages
272

Statistiques des forums

Discussions
315 091
Messages
2 116 109
Membres
112 662
dernier inscrit
lou75