Difference between revisions of "RU/kb/00000172"
From Wiki
Jump to navigationJump to search (Корректировка кода) |
|||
| (3 intermediate revisions by 2 users not shown) | |||
| Line 3: | Line 3: | ||
__NOTOC__ | __NOTOC__ | ||
| + | {{RUfromforum|19195}} | ||
<section begin=toc /> | <section begin=toc /> | ||
При создании любого элемента управления на листе {{OOoC}} автоматически создаётся «форма», которой присваивается имя '''Standard'''. | При создании любого элемента управления на листе {{OOoC}} автоматически создаётся «форма», которой присваивается имя '''Standard'''. | ||
| Line 25: | Line 26: | ||
<section begin=signature/> | <section begin=signature/> | ||
| − | {{ | + | {{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
