Actualizacion de Graficos
Publicado por mario231179 (7 intervenciones) el 19/04/2010 21:26:53
Buenas paso mi consulta
genere un formulario para pasar una cantidad n de Graficos a un Word
lo que sucede es que el grafico que me pega en word no pega el grafico actualizado... paso un ejemplo para poder representarlo mejor
- Crear un Form nuevo
- Insertar Objeto (Grafico de Microsoft Graf) -- colocar nombre GRAFICO_XXX
- insertar un boton -- colocar nombre COMANDO0
- agregar la referencia Microsoft Word 11.0 Object Library
- crear una tabla sueldos con campo fecha , importe y agregar algunos registros
- en el codigo del boton pegar el siguiente codigo
Private Sub Comando0_Click()
Dim MSWord As New Word.Application
Dim Documento As Word.Document
Set Documento = MSWord.Documents.Add
MSWord.Visible = True
Me.GRAFICO_XXX.RowSourceType = "Tabla/consulta"
Me.GRAFICO_XXX.RowSource = "Select fecha,importe from sueldos"
Me.GRAFICO_XXX.Enabled = True
Me.GRAFICO_XXX.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, acCopy, , acMenuVer70
MSWord.Selection.Paste
Me.Comando0.SetFocus
Me.GRAFICO_XXX.Enabled = False
End Sub
con este ejemplo se ve claramente que el codigo no pega el grafico resultante.
genere un formulario para pasar una cantidad n de Graficos a un Word
lo que sucede es que el grafico que me pega en word no pega el grafico actualizado... paso un ejemplo para poder representarlo mejor
- Crear un Form nuevo
- Insertar Objeto (Grafico de Microsoft Graf) -- colocar nombre GRAFICO_XXX
- insertar un boton -- colocar nombre COMANDO0
- agregar la referencia Microsoft Word 11.0 Object Library
- crear una tabla sueldos con campo fecha , importe y agregar algunos registros
- en el codigo del boton pegar el siguiente codigo
Private Sub Comando0_Click()
Dim MSWord As New Word.Application
Dim Documento As Word.Document
Set Documento = MSWord.Documents.Add
MSWord.Visible = True
Me.GRAFICO_XXX.RowSourceType = "Tabla/consulta"
Me.GRAFICO_XXX.RowSource = "Select fecha,importe from sueldos"
Me.GRAFICO_XXX.Enabled = True
Me.GRAFICO_XXX.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, acCopy, , acMenuVer70
MSWord.Selection.Paste
Me.Comando0.SetFocus
Me.GRAFICO_XXX.Enabled = False
End Sub
con este ejemplo se ve claramente que el codigo no pega el grafico resultante.
Valora esta pregunta
0