Visual Basic - Copiar imagen de Objeto OLE

Life is soft - evento anual de software empresarial
   
Vista:

Copiar imagen de Objeto OLE

Publicado por Alberto L. Herrera Guerra (1 intervención) el 18/02/2008 23:07:46
Queridos amigos de esta comunidad, necesito ayuda urgente. Tengo un formulario con objeto OLE el cual esta vinculado con un objeto Chart de en un libro Excel. En el procedimiento abro el libro excel para que a partir de unas formulas que se generan de numeros aleatorios se forme una elipse en el Chart, todo esto para el usuario es transparente, el usuario solo ve la elipse en el objeto OLE. Donde esta el problema?, debo copiar esa imagen en el portapapeles para despues cargar el paint de Windows y crear un jpg con esa imagen. Aca le muestro parte de ese procedimiento.

Dim MiEXCEL As Object
Dim Sheet2 As Object
On Error Resume Next
Set MiEXCEL = CreateObject("Excel.Application")
DetectExcel
MiEXCEL.Workbooks.Open "D:caso baseprueba1morf.xls"
MiEXCEL.Application.Visible = True
MiEXCEL.Parent.Windows(1).Visible = True
MiEXCEL.Sheets("Hoja2").Select
MiEXCEL.Charts.Application.ActiveChart.ChartArea.Copy 'Aqui esta el problema no se ejecuta
MiEXCEL.Application.Save
MiEXCEL.Application.Quit

Gracias por la atención , les agradeceria me ayudaran
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder