Ver Mensaje Individual
  #1  
Antiguo 03-07-2014
_CALI _CALI is offline
Miembro
 
Registrado: mar 2008
Posts: 99
Reputación: 17
_CALI Va por buen camino
ocultar cinta de opciones (ribbon) excel 2007

Hola Amigos, después de tiempo y como siempre quisiera que me echen una manito con lo siguiente:
Resulta que estoy con un TOlecontainer y un TExcelApplication para manejar datos de excel desde mi formulario,
el problema es que quisiera ocultar la cinta de opciones(Ribbon) del excel 2007 y no veo la manera, indagando mire sobre la edición de un archivo XML pero la verdad lo encuentro engorros, probé con las siguientes formas:

Código Delphi [-]

  Excel := TExcelApplication.Create(Self);
  Ole.CreateObjectFromFile('D:\archivo.xlsx', False);

  // Ole.OleObject.ActiveWindow.View.Application.OpenAttachmentsInFullScreen := true;
  // Ole.OleObject.ActiveWindow.ToggleRibbon;
  // Ole.OleObject.ActiveWindow.View.FullScreen := true;
  // Ole.OleObject.Application.ExecuteExcel4Macro('SHOW.TOOLBAR(""Ribbon"", ""false"")');
  // Ole.OleObject.Application.ExecuteExcel4Macro('Application.DisplayFullScreen = True');
  // Ole.OleObject.Application.SendKeys('^{F1}', true, 0);
  
  Ole.DoVerb(ovShow);
  Excel.ConnectTo(_Workbook(Ole.OleObjectInterface as _Workbook).Application);
hasta ahi todo funciona OK,
pero ninguna de las lineas en comentarios me funciona se lanza el error "Interface not supported"
estoy trabajando con XE6 y office 2007

alguna sugerencia?, Gracias de antemano!!

Última edición por _CALI fecha: 03-07-2014 a las 03:11:50.
Responder Con Cita