[Solved] Wstawienie grafiki z listy rozwijanej

[kturendyk]

Witam.
Próbuję napisać makro za pomocą którego zautomatyzuję sobie dodawanie grafiki do kart arkusza.
Potrafię wydobyć nazwy plików znajdujących się na dysku komputera ale nie wiem jak je dodać do menu kontekstowego w oknie dialogowym.
Chodzi mi o to żeby z listy rozwijanej wybrać nazwę pliku a resztę już zrobi makro.
Dodaje w załączniku przykładowy arkusz z prawie działającym makrem.
proszę o podpowiedź jak wydobyć nazwy plików i wstawić je do "additems"
Pozdrawiam.

[belstar]

proszę o podpowiedź jak wydobyć nazwy plików i wstawić je do "additems"

Basic Guide
addItems (ItemArray, Pos)
enters the entries listed in the string's ItemArray data field into the list at the Pos position
Co to oznacza?
Ano to że musi to być tablica elementów, a twoja zmienna nie jest tablicą.
Poniżej rozwiązanie, bez wielkich przeróbek,

Kod: Zaznacz cały

 While NextFile <> ""
   	if AllFiles ="" then 
   		AllFiles = NextFile
   	else
     	AllFiles = AllFiles & "," & NextFile
    end if 
     	NextFile = Dir    
   Wend
   Tablica = Split(Allfiles, ",") 
'msgBox Allfiles 

Dim libStandard                                         'otwarcie okna dialogowego
  Dim libDialog
  DialogLibraries.loadLibrary("Standard")  
  libStandard = DialogLibraries.getByName("Standard")
  libDialog = libStandard.getByName("wstawgrafike")'W cudzysłowiu wpisać nazwe okna dialogowego z zakładki
Dlg = CreateUnoDialog(DialogLibraries.Standard.wstawgrafike)
   libStd = DialogLibraries.getByName("Standard")
   libDlg = libStd.getByName("wstawgrafike")
   dlg = CreateUnoDialog(libDlg)

	zdj = dlg.getcontrol("ComboBox1") 'utworzenie listy wyboru towaru   
     zdj.additems(Tablica ,0) 

[kturendyk]

Witam.
Dziękuję za pomoc.
Jestem domowym samoukiem w pisaniu makr i o tablicach nawet nic nie wiedziałem.
Poprawiłem makro i teraz działa jak chciałem.
Dołączę plik z działającym makrem na pewno się komuś przyda
Pozdrawiam wszystkich czytających.