Boucler sur une insertion powerpoint

Version imprimable

15/01/2019, 09h35
DevJunior59

Boucler sur une insertion powerpoint

Bonjour à tous,
Travaillant actuellement sur un projet de macro transférant des données d'un Excel ( tableau et son graphique) vers un PowerPoint, actuellement j'ai fais un macro permettant de crée une nouvelle slide, d'y ajouter un tableau et un graphique.
le problème étant que pur faire ça, je suis obligé d'avoir le nom du tableau , puis le code se répète encore et encore...

je pense qu'il faudrait faire une boucle for each qui dis que pour chaque tableau et son graphique du fichier excel, il crée une nouvelle slide dans le pptx mais je ne sais pas trop comment m'y prendre .
il y a-t-il un objet qui désigne " chaque tableau", en gros que mon code VBA comprennent qu'il s'agit des tableaux et non d'autre type de données, par exemple pour les graphique je sais que c'est ChartObjects()...

Je suis preneur de toutes pistes ;)

Merci à vous:) !
15/01/2019, 10h09
joe.levrai

Bonjour,

les tableaux structurés sont des objets qui, en VBA, se nomment des ListObject
Ils appartiennent à la collection ListObjects sur laquelle tu peux faire une boucle pour les recenser/manipuler
15/01/2019, 10h32
DevJunior59

bonjour,
Merci à toi je vais voir de ce côté alors :) !

merci bien, je reviens faire part de la suite, qu'elle soit positive ou non .

est-ce possible de l'utiliser de cette façon ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
For Each tableau In ListObjects
 
    tableau.Copy
    Pres.Slides(3).Shapes.PasteSpecial (ppPasteBitmap)
    nbshpe = Pres.Slides(3).Shapes.Count
    With Pres.Slides(3).Shapes(nbshpe)
        .Left = 50
        .Top = 100
        .Width = 150
        .Height = 100
 
     End With
 
Next tableau

car avec ça, mon debogueur me renvoie direct sur ma ligne

Code:

For Each tableau In ListObjects

Le parent de cet objet est la feuille de calcul

pour parcourir l'ensemble des tableaux d'un classeur, il faut au préalable boucler sur chaque feuille
Code:

1 2 3 4 5 6 7 8 9 Sub toto() Dim MonTableau As ListObject Dim Sh As Worksheet For Each Sh In ThisWorkbook.Worksheets For Each MonTableau In Sh.ListObjects MsgBox MonTableau.Name Next MonTableau Next Sh End Sub
dans ton code partiel, tu vas copier tous tes tableaux sur la diapo 3, je le souligne mais c'est peut-être le comportement souhaité

15/01/2019, 11h29
DevJunior59

Oui effectivement merci de souligner, il s'agit d'une erreur de ma part.

Je vais donc recréer une slide à chaque fois et utiliser ton bout de code pour boucler,
ou peut-être devrais-je plutôt faire un incrément pour dire que sur chaque bouclage on copie dans la slide suivante...