Question : Produire des diagrammes d'Excel en compensant la série

genchrts.jpg (91 KBs) (type de dossier détails) 

gencharts

Pls voient l'attachement.

Essayant de créer un macro qui produira automatiquement des diagrammes et les rayer vers le haut de (comme attachement) par exemple à partir de dire le décalage G13, créant des diagrammes, les rayant vers le haut jusqu'à ce qu'il atteigne une cellule vide.
 (2 ou 3 diagrammes la manière à travers et puis allante vers le bas - ceci pourrait atteindre 50 diagrammes)

Réponse : Produire des diagrammes d'Excel en compensant la série

Essayer ce macro

Substrater l'arraychart ()
    Placer le Sr = la gamme (« G13 »)
    Pour I = Sr. Rangée au Sr. Extrémité (xlDown). Rangée
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    Source d'ActiveChart.SetSourceData : =Sheets (« Sheet1 »). Gamme (Sr. Excentrage (I - Sr. Rangée, 0), Sr. Excentrage (I - Sr. Rangée, 3)), PlotBy : =xlRows
    ActiveChart.Location où : =xlLocationAsObject, nom : = " Sheet1 "
    ActiveChart.Parent.Top = international ((I - Sr. ) De rangée/2) * 200 + 300
    ActiveChart.Parent.Left = ((I - 1) mod 2) * 300 + 100
    ActiveChart.Parent.Width = 300
    ActiveChart.Parent.Height = 200
    Après i
    Gamme (« G13 »). Choisi
Sous-marin d'extrémité