ErrOLE : Power Point

ErrOLE : Power Point - VB/VBA/VBS - Programmation

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 :  :D  
 
 
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 :jap:  :jap:

Reply

Marsh Posté le 07-01-2006 à 00:27:49   

Reply

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed