Erro com CharObjects no VBA

1

O código VBA a seguir adiciona um ChartObject à planilha "Feuil1", mas também retorna um erro 1004 genérico (erro definido pelo objeto).

Sub test()

Dim ch As ChartObject
Set ch = Worksheets("Feuil1").ChartObjects.Add(100, 30, 400, 250)

End Sub

Eu não entendo o significado desta mensagem, pois o trabalho está feito corretamente, ou seja, o ChartObject é criado.

Para investigar mais, decidi plotar alguns dados para este ch ChartObject. Eu peguei a ajuda on-line do VBA como exemplo:

Sub test()

Dim ch As ChartObject
Set ch = Worksheets("Feuil1").ChartObjects.Add(100, 30, 400, 250)

ch.Chart.ChartWizard Source:=Worksheets("Feuil1").Range("a1:a20"), _
gallery:=xlLine, Title:="New Chart"

End Sub

Mais uma vez, tenho a mensagem de erro 1004 genérica e o depurador mostra que o erro é causado pela linha Set ch = Worksheets("Feuil1").ChartObjects.Add(100, 30, 400, 250) . Minhas células A1 a A20 são arquivadas com dados, então o problema está em outro lugar.

Alguma ideia para a origem deste erro?

    
por yolegu 19.04.2017 / 11:11

0 respostas