Cherche tuto ou codes pour Automation Powerpoint (Non visible)Résolu

Question

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

VB23 · Accepted Answer

En faite je pense avoir trouvé pourquoi :

lorsque je met ce bout de code ca ne marche pas forcement
par contre si je met une fonction qui utilise une constante
j'ai un message qui me demande d'ajouter cette constante a la library
donc j'ajoute et la ca marche pendant un temps puis ca redeconne et je suis obliger de remettre une fonction avec constante
pour remettre la library a jour je sais pas trop

bref sinon j'ai un soucis sur l'objet OLe pour l'auto-fit si ya une fonction comme ca(voir autres mesg membre)

Merci

cs_GeorgesDeLajungle · Answer

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

Cherche tuto ou codes pour Automation Powerpoint (Non visible)

2 réponses

Votre réponse

Discussions similaires