Изменить Porperty создаваемого объекта Xlglob

  • Автор темы allex
  • Дата начала
A

allex

#1
Хочу фоново создать документ - делаю
Код:
Dim mass(0) 
Dim oRange,oRange1,oRange2, Border,StyleFamilies,PageStyles,DefPage,objCoreReflection
Dim sheets,document,Desktop,xlglob,xlWbk
*******Создание ООО - документа
Set xlglob = CreateObject ( "com.sun.star.ServiceManager" ) 
Set objCoreReflection= xlglob.createInstance("com.sun.star.reflection.CoreReflection")
Set mass(0) = xlglob.Bridge_GetStruct("com.sun.star.beans.PropertyValue") 
mass(0).name = "Hidden" 
mass(0).value = True
Set Desktop = xlglob.createInstance("com.sun.star.frame.Desktop") 
Set document = Desktop.loadComponentFromUrl("private:factory/scalc","_blank",0,mass())
потом вызружаю в него данные
а потом хочу его сделать видимым
Как поменять на
Код:
mass(0).name = "Show"
mass(0).value = True
в том же объекте, не сохраняя подготовленный документ и впоследствии открывая его.
 

Andre

Well-known member
29.07.2004
108
0
#2
За scalc не скажу, а для swriter когда то использовал конструкцию, типа:

Код:
objDocument.getCurrentController().getFrame().getComponentWindow().setVisible(True)	
objDocument.getCurrentController().getFrame().getContainerWindow().setVisible(True)
Может сразу покатит, а может придется покурить хелп и доработать напильником. Направление думаю понятно
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 586
272
#3
опять вызовы КОМы...
ну зачем? ОДФ - это зипованый ХМЛ + объекты, ну и работайте с ним так