Discussion :

[Bravehe15]

bonjour a tous voila chat gpt m a proposé une presentation succinte traitant d un projet de formation et il m a invité a rajouté dans les espaces voulu le chemin des images que j ai choisis comme diapositive j ai bien choisis en clik droit "enregistrer come chemin d accés " mais powerpoint m indique une erreur de chemin .... comme en dev web je sais qu il y a plusieurs solutions possibles chemin relatif absolu etc mais je en sais quelle méthode employer a titre information mon image est dans un dossier onedrice avec le nom "IMAGES" en propriétés cela donne "C:\Users\alain\OneDrive\Images\béné.jpg" une idée a me proposer ? merci

[E KERGRESSE]

Bonjour,

Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub ImportImageDeOneDrive()
 
Dim LeSlide As Slide
Dim LaForme As Shape
 
    Set LeSlide = ActivePresentation.Slides(4)
    With LeSlide
         Set LaForme = .Shapes(1)
             With LaForme
                 .Fill.UserPicture "C:\Users\XXXXXX\YYYY.PNG"
             End With
         Set LaForme = Nothing
    End With
    Set LeSlide = Nothing
 
End Sub