J'ai une liste dans un tableau Excel qui va de A1 à A10. Avec un module VBA,
je voudrais créer une présentation PPT ayant 10 slides avec comme titre les
éléments de ma liste Excel.
Je sais lire la liste mais je ne sais pas comment créer ma présentation PPT
et ajouer les slides avec les titres.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Alain CROS
Bonjour.
Sub Creer(Plg As Range) Dim Rg As Range, Sh As Object, PPApp As Object, I& Set PPApp = CreateObject("Powerpoint.Application") With PPApp .Presentations.Add .Visible = True For Each Rg In Plg I = I + 1 .ActivePresentation.Slides.Add(I, 12).Select With .ActiveWindow.Selection.SlideRange.Shapes Set Sh = .AddTextbox(1, 30, 30, 500, 30) With Sh.TextFrame.TextRange .Text = Rg .ParagraphFormat.Alignment = 2 End With End With Next Rg End With Set Rg = Nothing Set Sh = Nothing Set PPApp = Nothing End Sub
Sub Lance() Creer [A1:A10] End Sub
Alain CROS
"Jacques" a écrit dans le message de news: 43509cfe$0$5365$ | Bonjour, | | J'ai une liste dans un tableau Excel qui va de A1 à A10. Avec un module VBA, | je voudrais créer une présentation PPT ayant 10 slides avec comme titre les | éléments de ma liste Excel. | Je sais lire la liste mais je ne sais pas comment créer ma présentation PPT | et ajouer les slides avec les titres. | | Merci d'avance pour votre aide. | | Jacques | |
Bonjour.
Sub Creer(Plg As Range)
Dim Rg As Range, Sh As Object, PPApp As Object, I&
Set PPApp = CreateObject("Powerpoint.Application")
With PPApp
.Presentations.Add
.Visible = True
For Each Rg In Plg
I = I + 1
.ActivePresentation.Slides.Add(I, 12).Select
With .ActiveWindow.Selection.SlideRange.Shapes
Set Sh = .AddTextbox(1, 30, 30, 500, 30)
With Sh.TextFrame.TextRange
.Text = Rg
.ParagraphFormat.Alignment = 2
End With
End With
Next Rg
End With
Set Rg = Nothing
Set Sh = Nothing
Set PPApp = Nothing
End Sub
Sub Lance()
Creer [A1:A10]
End Sub
Alain CROS
"Jacques" <jj@free.fr> a écrit dans le message de news: 43509cfe$0$5365$8fcfb975@news.wanadoo.fr...
| Bonjour,
|
| J'ai une liste dans un tableau Excel qui va de A1 à A10. Avec un module VBA,
| je voudrais créer une présentation PPT ayant 10 slides avec comme titre les
| éléments de ma liste Excel.
| Je sais lire la liste mais je ne sais pas comment créer ma présentation PPT
| et ajouer les slides avec les titres.
|
| Merci d'avance pour votre aide.
|
| Jacques
|
|
Sub Creer(Plg As Range) Dim Rg As Range, Sh As Object, PPApp As Object, I& Set PPApp = CreateObject("Powerpoint.Application") With PPApp .Presentations.Add .Visible = True For Each Rg In Plg I = I + 1 .ActivePresentation.Slides.Add(I, 12).Select With .ActiveWindow.Selection.SlideRange.Shapes Set Sh = .AddTextbox(1, 30, 30, 500, 30) With Sh.TextFrame.TextRange .Text = Rg .ParagraphFormat.Alignment = 2 End With End With Next Rg End With Set Rg = Nothing Set Sh = Nothing Set PPApp = Nothing End Sub
Sub Lance() Creer [A1:A10] End Sub
Alain CROS
"Jacques" a écrit dans le message de news: 43509cfe$0$5365$ | Bonjour, | | J'ai une liste dans un tableau Excel qui va de A1 à A10. Avec un module VBA, | je voudrais créer une présentation PPT ayant 10 slides avec comme titre les | éléments de ma liste Excel. | Je sais lire la liste mais je ne sais pas comment créer ma présentation PPT | et ajouer les slides avec les titres. | | Merci d'avance pour votre aide. | | Jacques | |
