Bonjour à tous,

J'utilise une macro dans un logiciel externe à powerpoint qui me permet de copier des images bitmap dans un document ppt.

Voici le bout de code que j'utilise :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
ActiveDocument.GetSheetObject(charts(i).getobjectid).CopyBitmapToClipboard
                     PPSlide.Shapes.Paste 'Coller l'image
 
                     'Configuration taille et position
					SET Shape = PPSlide.Shapes(8) 
 
					With Shape
						.LockAspectRatio = msoTRUE
						.left=01
						.top= 60
						.height= 230
						.width=360
 
					END With
J'utilise ce bout de code plusieurs fois à la suite pour différentes images, je colle 3 ou 4 images par slide. Le problème est que lorsque je rajoute un bout de code pour une nouvelle image dans une slide, j'ai l'impression que l'index des formes change. Par exemple, dans le bout de code ci-dessus, je définis la forme à dimensionner grâce à son index : Shapes(8). Et quand je rajoute un autre bout de code pour rajouter une autre image sur cette même slide, j'utilise Shapes(9), or cette logique ne fonctionne pas.. (Il ne va pas redimensionner la dernière forme collée mais celle d'avant)

Ma question est comment est attribué l'index d'une forme ? Y a-t-il un autre moyen pour que je puisse désigner la dernière forme que je viens de coller ? (Et donc pouvoir la dimensionner comme je le veux).

Merci pour votre aide