Exportar gráficos de acceso al formato de imagen?

votos
2

Creé un gráfico en los formularios de acceso y lo exporté en formato de imagen. Es fácil de hacer, pero el problema viene cuando después de eso, cuando cierro el formulario, muestra un mensaje emergente.

Falló la operación en el objeto Chart.
Es posible que el servidor OLE no esté registrado.
Para registrar el servidor OLE, vuelva a instalarlo.

Luego hice algunos cambios y el Código se ve así:

Private Sub Command1_Click()     
  Dim grpApp As Graph.Chart 

  Set grpApp = Me.Graph1.Object     
  grpApp.Export C:\Graph1.jpg, JPEG     
  Me.Graph1.Enabled = True    
  Me.Graph1.Locked = False    
  Set grpApp = Nothing     
  Me.Graph1.Action = acOLEClose     
End Sub

Ahora el problema es que una vez que finaliza la exportación, el gráfico se vuelve malo, las fuentes son grandes y se condensan y las barras parecen cortas ...

Estoy realmente atrapado ...

Publicado el 11/08/2009 a las 21:23
fuente por usuario
En otros idiomas...                            


1 respuestas

votos
0

Después de probar varias soluciones, encontré más o menos la misma pregunta y una solución adecuada para el problema:

  • Tratar de desbloquear el gráfico antes de la exportación, y restaurar la cerradura después
'Unlock the control...
Me!YourOLEChart.Locked = False
Me!YourOLEChart.Enabled = True

'Do the actual export...
Set oleGrf = Me!YourOLEChart.Object
oleGrf.Export filename, "JPEG"
Set oleGrf = Nothing
Me!YourOLEChart.Action = acOLEClose

'Restore the lock...
Me!YourOLEChart.Locked = True
Me!YourOLEChart.Enabled = False
  • Importante: recuerde que debe establecer el acOLEClose acción para evitar el servidor OLE se estrelle.

Usted no está solo, que tenía el mismo problema. En varias carreras de la forma, después de la ejecución de las exportaciones, el cuadro / gráfico / OLEFrame convirtieron mal (en el formulario de Vista), su formato han sido cambiados y que no habían sabido por qué.

Respondida el 11/06/2014 a las 19:58
fuente por usuario

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more