haole

Pessoal, preciso selecionar todos os gráficos de um aqrquivo excel, assim poderei atualizar por exemplo os dados de origem e o formato. Eu tentei o seguinte código: Sub PrintEmbeddedCharts() Dim ChartList As Integer Dim X As Integer ' Variable chartlist stores a count of all embedded charts. ChartList = ActiveSheet.ChartObjects.Count ' Increments the counter variable 'X' in a loop. For X = 1 To ChartList ' Selects the chart object. ActiveSheet.ChartObjects(X).Select ' Makes chart active. ActiveSheet.ChartObjects(X).Activate ActiveChart.Select With Selection.Border .Weight = xlHairline .LineStyle = xlNone End With Selection.Shadow = False Selection.Fill.OneColorGradient Style:=msoGradientHorizontal, Variant:=1, _ Degree:=0.231372549019608 With Selection .Fill.Visible = True .Fill.ForeColor.SchemeColor = 42 End With Next End Sub mas veio um erro " a variavel do objeto ou a variavel do bloco with não foi definida" Obrigado