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 :
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)
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
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
Partager