Difference between revisions of "RU/kb/00000172"

From Wiki
Jump to navigationJump to search
(Основной текст)
 
 
(5 intermediate revisions by 2 users not shown)
Line 1: Line 1:
<section begin=title /><noinclude>{{DISPLAYTITLE:База Знаний: </noinclude>{{OOoC|1}}. Получение доступа к элементу управления на листе<noinclude>}}</noinclude><section end=title />
+
<section begin=title /><noinclude>{{DISPLAYTITLE:База Знаний: {{OOoC|1}}. </noinclude>Получение доступа к элементу управления на листе<noinclude>}}</noinclude><section end=title />
{{SecTitle|RU/kb/module/calc/automation_calculations}}
+
{{BreadCrumbL10n|RU/kb/module/calc/automation_calculations}}
 
__NOTOC__
 
__NOTOC__
  
 +
{{RUfromforum|19195}}
 
<section begin=toc />
 
<section begin=toc />
 
При создании любого элемента управления на листе {{OOoC}} автоматически создаётся «форма», которой присваивается имя '''Standard'''.
 
При создании любого элемента управления на листе {{OOoC}} автоматически создаётся «форма», которой присваивается имя '''Standard'''.
Line 25: Line 26:
  
 
<section begin=signature/>
 
<section begin=signature/>
{{RUsignyear|Sancho|А. Е. Харламенков|2010}}
+
{{SignYear|Sancho|А. Е. Харламенков|2010}}
 
<section end=signature/>
 
<section end=signature/>
 
{{RUkbCalcBottom}}
 
{{RUkbCalcBottom}}

Latest revision as of 18:26, 24 March 2012


Материал для этой статьи сформулирован на основе обсуждения
в community.i-rs.ru.

При создании любого элемента управления на листе OpenOffice.org Calc автоматически создаётся «форма», которой присваивается имя Standard.

Для доступа из макроса к элементу управления на форме можно использовать следующий код:

Sub EnumerateControlsInForm
  Dim oForm, oControl, iNumControls%, i%
  'По умолчанию это — место, где находятся элементы управления
  oForm = ThisComponent.DrawPages(0).Forms.getByName("Standard")
  oControl = oForm.getByName("MyPushButton")
  MsgBox "Использовано getByName для получения элементов управления с именем " & oControl.Name
  iNumControls = oForm.Count() 
  For i = 0 To iNumControls -1
    MsgBox "Control " & i & " is named " & oControl.Name
  Next 
End Sub











К началу страницы