Inserer une image dans un fichier powerpoint

Question

Ritalinho
j'aimerai savoir si je peux introduire une image .jpeg dans un fichier powerpoint.
Si oui comment faire
Et quelles sont  les dll à installer

ritalinho · Answer

Ritalinho

Private Sub Cmdexec_Click()
    
     
     Dim MyPath As String
    
' mettre le chemin d'accès au fichier image
     MyPath = "D:\JULIEN	est.jpeg"
    
'il faut creer un fichier  powerpoint  en inserant l image du chemin

End Sub

cs_SHAKY · Answer

voici un exemple

n'oublie pas de remplacer le nom du dossier et le nom de l'image 





Sub InsereImage()

On Error Resume Next

'va &#224; la diapo sp&#233;cifi&#233;e dans l'index (ici n&#176;2)



Windows(1).Activate

 ActiveWindow.View.GotoSlide Index:=2

  

'insertion de l'image du chemin sp&#233;cifi&#233;

   
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="C:\Nomdudossiercontenantimage\fichierimage.jpg",
LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-4, Top:=6,
Width:=730, Height:=527).Select

'mise en forme de l'image

    With ActiveWindow.Selection.ShapeRange

        .ScaleWidth 0.91, msoFalse, msoScaleFromTopLeft

        .ScaleHeight 0.91, msoFalse, msoScaleFromBottomRight

        .IncrementLeft 28.88

        .IncrementTop -23.25

    End With

ActiveWindow.Selection.Unselect



End Sub






shaky

Inserer une image dans un fichier powerpoint

2 réponses

Discussions similaires