Pergunta : Gerar cartas de Excel deslocando a série

genchrts.jpg (91 KB) (tipo de lima detalhes) 

gencharts

Pls vê o acessório.

Tentando criar um macro que gere automaticamente cartas e para as alinhar acima (como o acessório) por exemplo de partir de dizer o offset G13, criando as cartas, alinhando as acima até que alcangar uma pilha vazia.
 (2 ou 3 cartas a maneira transversalmente e então indo para baixo - isto poderia alcangar 50 cartas)

Resposta : Gerar cartas de Excel deslocando a série

Tentar este macro

Sub o arraychart ()
    Ajustar o Sénior = a escala (“G13”)
    Para i = Sénior. Fileira ao Sénior. Extremidade (xlDown). Fileira
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    Fonte de ActiveChart.SetSourceData: =Sheets (“Sheet1”). Escala (Sénior. Offset (i - Sénior. Fileira, 0), Sénior. Offset (i - Sénior. Fileira, 3)), PlotBy: =xlRows
    ActiveChart.Location onde: =xlLocationAsObject, nome: = " Sheet1 "
    ActiveChart.Parent.Top = Int ((i - Sénior. ) Da fileira/2) * 200 + 300
    ActiveChart.Parent.Left = ((i - 1) modificação 2) * 300 + 100
    ActiveChart.Parent.Width = 300
    ActiveChart.Parent.Height = 200
    Em seguida i
    Escala (“G13”). Seleto
Submarino da extremidade