En un oficce con la versión : 16.0.7070.2033 , que está pasando en el siguiente problema de la pantalla .
Se desalineado con la ventana.
Gracias
/*********************************************/
procedure AbrePlanilhaExcel( cPlanilha )
/*
*/
local oError, oExcel, cTitulo
Default cPlanilha := ''
if s_oWndExcel != nil
if !iszoomed(s_oWndExcel:hwnd)
s_oWndExcel:Maximize()
endif
return
endif
if !Empty(cPlanilha) .and. !File(cPlanilha)
MsgStop('Planilha informada não foi localizada. Verifique!', 'Atenção!')
return
endif
TRY
oExcel := CreateObject( "Excel.Application" )
CATCH oError
RetornaErrorTryCatch( oError, 'PLANILHA EXCEL' )
Return
END
cTitulo := ".:: EXCEL ::. "+Alltrim(cPlanilha)
oExcel:Workbooks:Open(cPlanilha)
SysRefresh()
define window s_oWndExcel mdichild of M->oWnd vscroll title cTitulo
s_oWndExcel:bKeyDown := {| nKey | IIf(nKey==VK_ESCAPE,s_oWndExcel:end(),;
IIf(nKey==VK_F6 .and. len(M->oWnd:oWndClient:aWnd) > 1, M->oWnd:NextWindow(),))}
activate window s_oWndExcel maximized ON Init(OnInitExcel(@oExcel));
Valid(ValidExcel( oExcel ))
return
/*********************************************/
static procedure OnInitExcel(oExcel)
/*
*/
SetWindowLong(oExcel:hWnd,-16,"L")
oExcel:DisplayAlerts := .F.
oExcel:ActiveWorkBook:Protect('',.f.,.f.) //Para poder manupilar el estado de la venta del libro
oExcel:WindowState := -4137 //Se quitan los botones de maximizar, minimizar y cerrar
oExcel:Windows(1):WindowState := -4137 //Se maximiza Excel en mi ventana
oExcel:ScreenUpdating := .T.
oExcel:Visible := .T.
oExcel:DisplayAlerts := .F.
s_oWndExcel:bGotFocus := { || IIf( s_oWndExcel != nil, s_oWndExcel:Refresh(),) }
SetParent(oExcel:hWnd, s_oWndExcel:hWnd) //Incrusta Excel en mi ventana
return
/*********************************************/
static function ValidExcel( oExcel )
/*
*/
oWorkBooks := oExcel:WorkBooks
oWorkBooks:Close()
oWorkBooks:= NIL
oExcel:Quit()
oExcel:= NIL
Hb_GCall(.t.)
s_oWndExcel := nil
return(.t.)
