ErrOLE : Power Point - VB/VBA/VBS - Programmation
Marsh Posté le 11-02-2006 à 20:51:20
Salut,
Avec un peu de recherche, je suis arrivé à ça :
Dim apppaint As PowerPoint.Application
Dim paintpres As PowerPoint.Presentations
Set apppaint = CreateObject("PowerPoint.application" )
Set paintpres = apppaint.Presentations
apppaint.Activate
paintpres.Add
cpt = 10000
Do
DoEvents
cpt = cpt - 1
Loop Until cpt = -1000
cpt = 10000
Do
DoEvents
cpt = cpt - 1
Loop Until cpt = -1000
cpt = 10000
Do
DoEvents
cpt = cpt - 1
Loop Until cpt = -1000
cpt = 10000
Do
DoEvents
cpt = cpt - 1
Loop Until cpt = -1000
apppaint.ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2" ).Select
apppaint.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
apppaint.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
apppaint.ActiveWindow.Selection.TextRange.Text = "Test"
La problème, c' est que la diapo ne se crée pas d' elle même, j' ai donc du rajouter des boucles pour donner le temps à l' utilisateur de la créer. Si vous voyez un problème à ça...
Merci
Marsh Posté le 07-01-2006 à 00:27:49
Bonjour,
J' ai commencé a faire des codes OLE d' Excel vers Power Point. Cependant, ces quelque lignes contiennent des erreurs, pourriez -vous me les indiquer et m' en donner les corrections :
Set apppaint = CreateObject("powerpoint.application" )
Set textdansbox = apppaint.ActiveWindow.Selection.SlideRange.Shapes.AddTextbox(msoTextOrientationHorizontal, 127.5, 474.125, 147.5, 28.875)
textdansbox.TextRange.Text = "Test"
Merci