Cherche tuto ou codes pour Automation Powerpoint (Non visible)

Voila j'ai trouvé pleins de sources avec toutes les instances, creation de shapes, slides, tous ce qu'il faut
le probleme c'est de les gere en non visible

sans les activewindow.sliderange etc...
bref les commandes macro sont hyper simple a gerer
Mais en app.visible= false c moins evident

Si quelqu'un a un lien pour Powerpoint automation VB6 non visible merci d'avance


mon pb en faite : mon objet 2 est une feuille excel ajouté en OLE dans powerpoint et je voudrais l'entourer de bordure
en manuel dans Powerpoint et en vba ca marche mais pas en vb6
et je voudrais que l'objet Ole excel en dessous de mon titre sois resizer automatiquement pour etre lisibe

Public PptApp As Powerpoint.Application 'instancie un objet powerpoint
Public PptDoc As Powerpoint.Presentation    'instancie une presentation Powerpoint
// je fais les new etc... les ouvertures

Set Diapo = PptDoc.Slides.Add(Index:=1, Layout:=ppLayoutBlank)

Diapo.Shapes.AddOLEObject(FileName:=path).Copy

With PptDoc.Slides(1).Shapes("object 2")       ' devrait entourer mon objet OLE et mettre une bordure plus epaisse
    .Fill.Transparency = 0#
    .Line.Visible = msoTrue
    .Line.Weight = 3#
    .Line.ForeColor.SchemeColor = ppForeground
    .Line.BackColor.RGB = RGB(255, 255, 255)
End With

Bonjour,
Je ne sais pas pour vb6, mais en dotnet si tu déclares un objet du style :
dim monfichierexcel as Powerpoint.Shape
Et que tu lui attribues la valeur :
monfichierexcel = diapo.Shapes.AddOLEObject(FileName:=path)
Tu peux alors attribuer ta bordure à la shape monfichierexcel et ça marche très bien
en vb6 ça doit donner
set monfichierexcel = diapo.Shapes.AddOLEOject(FileName:=path)

With monfichierexcel
    .Fill.Transparency = 0#
    .Line.Visible = msoTrue
    .Line.Weight = 3#
    .Line.ForeColor.SchemeColor = ppForeground
    .Line.BackColor.RGB = RGB(255, 255, 255)
End With

Et voilà

Bonne prog

Eric