Insertar gráfico de excel desde access
Quería preguntarte si sabes como puedo insertar un gráfico de excel desde código visual basic de access, en el código de access he habilitado todas las librerías necesarias para que se supone pueda coger los comandos de excel pero he insertado el siguiente código, que lo he cogido de una macro que he grabado en excel al crear un gráfico, para que haga exactamente lo mismo:
'MACRO PARA HACER EL GRÁFICO
Charts.Add
ActiveChart.ChartType = xlBarOfPie
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A22:C&(22+ " & totalmatriztotalmotivos & ""), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Grafico de % de motivos no interesa"
End With
ActiveSheet.Shapes("Gráfico 2").IncrementLeft -231.75
ActiveSheet.Shapes("Gráfico 2").IncrementTop 214.5
ActiveSheet.Shapes("Gráfico 2").ScaleWidth 0.6, msoFalse, msoScaleFromTopLeft
Windows("Informe-RdosLlamada_y_Motivos_NI-05-09-2008 12'21'00.xls"). _
SmallScroll Down:=15
ActiveSheet. Shapes("Gráfico 2").ScaleHeight 0.79, msoFalse, _
MsoScaleFromTopLeft
Pero me da el siguiente error:
"Error en el método 'Charts' de objeto '_Global'"
No se a que se debe ya que el código esta cogido de una macro de excel...
Si puedes ayudarme te lo agradecería
'MACRO PARA HACER EL GRÁFICO
Charts.Add
ActiveChart.ChartType = xlBarOfPie
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A22:C&(22+ " & totalmatriztotalmotivos & ""), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Grafico de % de motivos no interesa"
End With
ActiveSheet.Shapes("Gráfico 2").IncrementLeft -231.75
ActiveSheet.Shapes("Gráfico 2").IncrementTop 214.5
ActiveSheet.Shapes("Gráfico 2").ScaleWidth 0.6, msoFalse, msoScaleFromTopLeft
Windows("Informe-RdosLlamada_y_Motivos_NI-05-09-2008 12'21'00.xls"). _
SmallScroll Down:=15
ActiveSheet. Shapes("Gráfico 2").ScaleHeight 0.79, msoFalse, _
MsoScaleFromTopLeft
Pero me da el siguiente error:
"Error en el método 'Charts' de objeto '_Global'"
No se a que se debe ya que el código esta cogido de una macro de excel...
Si puedes ayudarme te lo agradecería
Respuesta de Fran Riveiro
1