Automation PowerpointRésolu

Question

J'aimerais faire un auto-size ou quelque chose de lisible pour l'objet inserer dans powerpoint.L'objet a importer peut changer niveau taille donc je cherche plus un auto-fit style excel voila Merci d'avance:

Public PptApp As Powerpoint.Application
Public PptDoc As Powerpoint.Presentation   
Dim Diapo As Powerpoint.Slide
Dim Sh As Powerpoint.Shape

Set PptApp = CreateObject("Powerpoint.Application")
PptApp.DisplayAlerts = ppAlertsNone


If fso.FileExists(BDDaExporter) = True Then
    Set PptDoc = PptApp.Presentations.Open(BDDaExporter, , , msoFalse)


Else
    Set PptDoc = PptApp.Presentations.Add
    PptDoc.SaveAs BDDaExporter
    
End If
Set fso = Nothing


Set Diapo = PptDoc.Slides.Add(Index:=1, Layout:=ppLayoutBlank)


Set Sh = Diapo.Shapes.AddOLEObject(FileName:=BDDpath)
Sh.Top = 50
Sh.Left = 15
Sh.Flip (0) 'je ne sais pas a quoi il sert




With PptDoc.Slides(1).Shapes(1)
    .Fill.Transparency = 0#
    .Line.Visible = msoTrue
    .Line.Weight = 3#
    .Line.Visible = msoTrue
    .Line.ForeColor.SchemeColor = ppForeground
    .Line.BackColor.RGB = RGB(255, 255, 255)
End With

VB23 · Accepted Answer

voir mon post sur Excel/word j'ai trouver une semi-solution

VB23 · Answer

j'ai aussi le mem probleme evidemment sur Word

je cherche juste a rendre visible les lettres contenut dans l'objet OLE
meme si la taille depasse de la page etc je veux simplement avec une partie lisible sur la page merci

Merci d'avance

Automation Powerpoint

2 réponses

Votre réponse

Discussions similaires