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

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

allex

Хочу фоново создать документ - делаю
Код:
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

Green Team
29.07.2004
114
1
BIT
2
За scalc не скажу, а для swriter когда то использовал конструкцию, типа:

Код:
objDocument.getCurrentController().getFrame().getComponentWindow().setVisible(True)	
objDocument.getCurrentController().getFrame().getContainerWindow().setVisible(True)

Может сразу покатит, а может придется покурить хелп и доработать напильником. Направление думаю понятно
 

lmike

нет, пердело совершенство
Lotus Team
27.08.2008
7 985
611
BIT
472
опять вызовы КОМы...
ну зачем? ОДФ - это зипованый ХМЛ + объекты, ну и работайте с ним так
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!