j'ai une macro qui me fait des graphiques en boucle, en les insérant en tant
qu'objet sur ma feuille de calcul.
Le problème, c'est qu'ils sont superposés. Je souhaiterais que ma macro les
positionne les uns en dessous des autres.
Comment faire ?
Merci d'avance
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Essaie quelque chose comme ça en modifiant avec le nom de la feuille : With Worksheets("Feuil1") For i = 2 To .Shapes.Count .Shapes(i).IncrementTop (.Shapes(i - 1).Top + .Shapes(i).Height) Next i End With
NB : attention ici on considère qu'il n'y a que des formes (shapes) graphiques dans la feuille Cordialement Pascal
"gueridon" a écrit dans le message de news:
Bonjour à tous,
j'ai une macro qui me fait des graphiques en boucle, en les insérant en tant qu'objet sur ma feuille de calcul. Le problème, c'est qu'ils sont superposés. Je souhaiterais que ma macro les positionne les uns en dessous des autres. Comment faire ? Merci d'avance
Bonjour
Essaie quelque chose comme ça en modifiant avec le nom de la feuille :
With Worksheets("Feuil1")
For i = 2 To .Shapes.Count
.Shapes(i).IncrementTop (.Shapes(i - 1).Top + .Shapes(i).Height)
Next i
End With
NB : attention ici on considère qu'il n'y a que des formes (shapes)
graphiques dans la feuille
Cordialement
Pascal
"gueridon" <gueridon@discussions.microsoft.com> a écrit dans le message de
news: 9D155823-DE56-486B-8997-67A3BD21BC9F@microsoft.com...
Bonjour à tous,
j'ai une macro qui me fait des graphiques en boucle, en les insérant en
tant
qu'objet sur ma feuille de calcul.
Le problème, c'est qu'ils sont superposés. Je souhaiterais que ma macro
les
positionne les uns en dessous des autres.
Comment faire ?
Merci d'avance
Bonjour Essaie quelque chose comme ça en modifiant avec le nom de la feuille : With Worksheets("Feuil1") For i = 2 To .Shapes.Count .Shapes(i).IncrementTop (.Shapes(i - 1).Top + .Shapes(i).Height) Next i End With
NB : attention ici on considère qu'il n'y a que des formes (shapes) graphiques dans la feuille Cordialement Pascal
"gueridon" a écrit dans le message de news:
Bonjour à tous,
j'ai une macro qui me fait des graphiques en boucle, en les insérant en tant qu'objet sur ma feuille de calcul. Le problème, c'est qu'ils sont superposés. Je souhaiterais que ma macro les positionne les uns en dessous des autres. Comment faire ? Merci d'avance
