Discussion :

[Seb V]

Bonjour tout le monde,

J'ai voulu créer une macro pour automatiquement mettre à jour des images provenant de différents fichiers Excel. Mon problème est que j'arrive à importer d'Excel vers PowerPoint l'image mais je n'arrive pas à faire en sorte qu'elle soit automatiquement redimensionnée et positionnée sur un emplacement précis du slide.

Je suis bloqué par le fait que je ne sais pas déclarer par une variable, le shape que j'ai collé sur le slide.

Voici mon code

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
18
19
20
21
22
23
24
25
26
27
Dim ExcelApp As Object
Dim ExcelPres As Object
 
' Initialize Excel Object Library
Set ExcelApp = CreateObject("Excel.Application")
 
Workbooks.Open ("C:\Users\Seb\Program.xls"), ReadOnly
 
Set ExcelPres = ExcelApp.Sheets("Program sheet")
 
ExcelPres.Activate
ExcelPres.Select
 
' Copy the range as a picture
ExcelPres.Shapes("Picture 0").CopyPicture Appearance:=xlScreen, Format:=xlPicture
 
' Paste the range
ActivePresentation.Slides(1).Shapes.Paste
 
 
    With ActivePresentation.PageSetup
 
      ActivePresentation.Slides(1).Shapes.Left = (2 * .SlideWidth \ 2) - (ActivePresentation.Slides(1).Shapes.Width \ 2)
      ActivePresentation.Slides(1).Shapes.Top = (2 * .SlideHeight \ 2) - (ActivePresentation.Slides(1).Shapes.Height \ 2)
      ActivePresentation.Slides(1).Shapes.Select
 
    End With

Je vous remercie de votre aide !

Seb

[clementmarcotte]

Bonjour tout le monde,

J'ai voulu créer une macro pour automatiquement mettre à jour des images provenant de différents fichiers Excel. Mon problème est que j'arrive à importer d'Excel vers PowerPoint l'image mais je n'arrive pas à faire en sorte qu'elle soit automatiquement redimensionnée et positionnée sur un emplacement précis du slide.

Je vous remercie de votre aide !

Seb

En anglais et en français, une diapositive c'est féminin.

[Seb V]

Merci pour ta réponse J'en prends note. J'apprécierai également une idée pour faire fonctionner mon code. ^^