Błąd komunikat nieznana metoda lub własciwość

[MiniPin]

Szukałem na forach i nie znalazłem rozwiązania. Tworze kaskadę zależnych combo osadzonych w arkuszu. Rozwiązałem to w oparciu o walidacje, ale estetycznie wygląda to słabo ( puste wiersze w rozwijanych listach). pojawia się komunikat o niezanej metodzie badź własciwości ( dla addItems lub removeItems )

Kod: Zaznacz cały

Sub ZmianaZakresuKombo(oEvC)
Dim ComboT as object
objC = oEvC.Source
sNameC = objC.Model.Name
oNameC = ThisComponent.NamedRanges.getByName(sNameC)
oCellC = oNameC.getReferredCells()
ComboS = objC.Model.Text
oCellC.setFormula(ComboS)
if sNameC like "Kombo_01" then
ComboT = ThisComponent.Sheets.getByIndex(0)
ComboT=ComboT.DrawPage.Forms.getByIndex(0).getByName("Kombo_02")
nCount=ComboT.ItemCount
if nCount>0 then
ComboT.removeItems( 0, nCount )
end if
	Select Case ComboS
 	 Case "Grupa 1"
  	   sItems = Array( "Marka A-1", "Marka A-2", "Marka A-3")
  	 Case "Grupa 2"
  	   sItems = Array( "Marka B-1", "Marka B-2", "Marka B-3")
  	 Case "Grupa 3"
  	   sItems = Array( "Marka C-1", "Marka C-2", "Marka C-3")
  	 Case else
  		'MsgBox "Błędny Wybór"
  	End Select
ComboT.addItems( sItems, 0 )
Endif
End Sub

Proszę o pomoc. Dziękuję

[belstar]

Kod: Zaznacz cały

Sub Dodaj_do_kombo
Dim sLista(0 to 2) as String
   sLista(0) = "A" + Str(1)
   sLista(1) = "B" + Str(2)
   sLista(2) = "C" + Str(3)
   
   oDoc=ThisComponent
   oSheet=oDoc.Sheets(0)
   oForm=oSheet.DrawPage.Forms(0)
   oKombo=oForm.getByName("Kombo_02")
   oKomboview=oDoc.CurrentController.getControl(okombo)
   
   'Dodaj tablice sLista do kombo
   okomboview.additems(sLista(),0)
End Sub

[MiniPin]

Dziękuje za pomoc i miłego weekendu.
Magiczna formuła to

Kod: Zaznacz cały

oKomboview=oDoc.CurrentController.getControl(okombo)

.
Zaczynam dopiero z oo. Pozdrawiam