OCULTAR LA BARRA DE OPCIONES DE EXCEL
Publicado por Juan (114 intervenciones) el 13/11/2014 10:14:13
Buenas foreros
Tengo una pregunta que no sé si es posible llevar a buen puerto, he estado buscando en Google en diversas páginas y aquí no me ha parecido ver solución a mi problema (así que si al final si existe, pido disculpas anticipadas).
Bueno el caso es que estoy construyendo una aplicación en Visual FoxPro que llama al Excel y me gustaría poder ocultar el menú principal de Excel dejando únicamente los botones de impresión y edición.
Lo cierto es que al principio usaba un objeto OLE que mostraba la información guardada en un campo General (guardaba una copia del archivo Excel allí, antes de borrarla del disco duro), pero como eso está dando problemas de redimensionado y otras cosas. Entonces para abrir cualquier archivo de Excel he pensado en hacer de la siguiente forma:
loShell = CREATEOBJECT("Shell.Application")
loShell.ShellExecute("Mi archivo.xls")
RELEASE loShell
El problema es que se me abre el Excel completamente y si fuera posible me gustaría "ocultar" o "deshabilitar" las opciones que he comentado más arriba, no sé si me explico correctamente. Imagino que si en la Automatización, hay manera de al crear el archivo ocultar lo que quiero, después al ejecutar, estos elementos ya no se deberían mostrar, no?
En cualquier caso, copio la Automatización de creación del archivo, por si observáis algo que deba ser modificado o que se pueda modificar para llegar a lo que me gustaría poder hacer:
lcIMP = "PRESUPUESTO GASTO" && Es la hoja activa
loExcel = CREATEOBJECT("Excel.application")
try
with loExcel
catch
release loExcel
Para finalizar uso Excel 2013 y programo con Visual FoxPro 9.0 Servipack 2
Por último dar las gracias por anticipado por el interés en el tema, comentarios, aportes o/y posibles ideas para solucionar "el problema".
Tengo una pregunta que no sé si es posible llevar a buen puerto, he estado buscando en Google en diversas páginas y aquí no me ha parecido ver solución a mi problema (así que si al final si existe, pido disculpas anticipadas).
Bueno el caso es que estoy construyendo una aplicación en Visual FoxPro que llama al Excel y me gustaría poder ocultar el menú principal de Excel dejando únicamente los botones de impresión y edición.
Lo cierto es que al principio usaba un objeto OLE que mostraba la información guardada en un campo General (guardaba una copia del archivo Excel allí, antes de borrarla del disco duro), pero como eso está dando problemas de redimensionado y otras cosas. Entonces para abrir cualquier archivo de Excel he pensado en hacer de la siguiente forma:
loShell = CREATEOBJECT("Shell.Application")
loShell.ShellExecute("Mi archivo.xls")
RELEASE loShell
El problema es que se me abre el Excel completamente y si fuera posible me gustaría "ocultar" o "deshabilitar" las opciones que he comentado más arriba, no sé si me explico correctamente. Imagino que si en la Automatización, hay manera de al crear el archivo ocultar lo que quiero, después al ejecutar, estos elementos ya no se deberían mostrar, no?
En cualquier caso, copio la Automatización de creación del archivo, por si observáis algo que deba ser modificado o que se pueda modificar para llegar a lo que me gustaría poder hacer:
lcIMP = "PRESUPUESTO GASTO" && Es la hoja activa
loExcel = CREATEOBJECT("Excel.application")
try
with loExcel
.Visible = .F. && No queremos que se abra el Excel, se abrirá en otra parte del código
.Application.Workbooks.Open(lcFILE) && lcFile es el archivo a modificar
.Application.Worksheets(lcIMP).Activate && Pasamos la hoja activa a la que nos interesa
.Application.CutCopyMode = 0 && Tratamos de evitar el copia y pega
.Range("c6").Value =2014
.Range("b1").Value = "EMPRESA CLIENTE"
.Caption = "Mi Empresa."
.activeworkbook.close(.T.)
.Application.quit
endwith.Application.Workbooks.Open(lcFILE) && lcFile es el archivo a modificar
.Application.Worksheets(lcIMP).Activate && Pasamos la hoja activa a la que nos interesa
.Application.CutCopyMode = 0 && Tratamos de evitar el copia y pega
.Range("c6").Value =2014
.Range("b1").Value = "EMPRESA CLIENTE"
.Caption = "Mi Empresa."
.activeworkbook.close(.T.)
.Application.quit
catch
llOK = .F. && Sacará mensaje de error en otra parte del código
loExcel.Application.quit
endtry loExcel.Application.quit
release loExcel
Para finalizar uso Excel 2013 y programo con Visual FoxPro 9.0 Servipack 2
Por último dar las gracias por anticipado por el interés en el tema, comentarios, aportes o/y posibles ideas para solucionar "el problema".
Valora esta pregunta
0