Afbeeldingen inladen met macro

[EliaNieuwhuis]

Hallo, wij hebben een goedwerkende macro gemaakt om afbeeldingen van een map op de server 'in te laden' in Excel.
Dit gaat zo : Macroknop drukken, keuzemenu met 4 soorten foto`s (elk gekoppeld aan een andere locatie), aangeven welke kolom de naam bevat, aangeven in welke kolom je de foto wil hebben, tot slot de grootte van de foto.
Dit gaat heel goed.

Ik vroeg mij af of het mogelijk is om de macro aan te passen zodat je niet op vastgelegde locaties zoekt, maar per keer een locatie kunt kiezen.
Dus zo: Macroknop drukken, vraag: op welke locatie wilt u zoeken? - Ik kies bijv. P:/fotomap/fotos - dan aangeven welke kolom de naam bevat, aangeven in welke kolom je de foto wil hebben, tot slot de grootte van de foto.

Is er een opdracht dat dit toelaat?



Deel van de bestaande code:

With UserFormKeuze.ComboBoxFoto
.AddItem "Sfeerfoto"
.AddItem "Packshot"
.AddItem "Verpakking"
.AddItem "Accesoires"

En dan

'MsgBox (UserFormKeuze.ComboBoxFoto.Text)
If UserFormKeuze.ComboBoxFoto.Text = "Packshot" Then
FotoDir = "\\FSNL01\Pictures\Packshots"
End If

If UserFormKeuze.ComboBoxFoto.Text = "Sfeerfoto" Then
FotoDir = "\\fsnl01\Pictures\Artikelfotos"
End If


Bij voorbaat dank!

Elia N.

 

[wampier]

je kan een item in je lijst toevoegen zoals "vrije invoer"

en aan de hand daarvan een extra inputfield laten zien op je form. of een inputbox tonen

resultaat = inputbox("geef locatie op")

Je moet dan eventueel wel eerst het antwoord goed verifieren voordat je het gebruikt, maar dat zijn 2 opties

 

[EliaNieuwhuis]

??

Meneer W.Pier, bedankt voor uw reactie.

Is de code die u geeft volledig? En waar moet ik deze zetten?

Bijv.

resultaat = inputbox(\\FSNL01\Pictures\Packshots)

resultaat moet zijn; result?

Elia-

 

[wampier]

Een inputbox geeft een popup waar je een regel tekst in kan typen.

With UserFormKeuze.ComboBoxFoto
.AddItem "Sfeerfoto"
.AddItem "Packshot"
.AddItem "Verpakking"
.AddItem "Accesoires"
.AddItem "vrije keuze"

If UserFormKeuze.ComboBoxFoto.Text = "vrije keuze" Then
FotoDir = inputbox("geef locatie op")
'hier eventueel code om te controleren of directorie geldig is
End If

 

[snb]

Plaats svp volledige code !
Dat voorkomt misverstanden.

Een combobox vullen doe je zo:

ComboBoxFoto.list=split("Sfeerfoto Packshot Verpakking Accesoires")

Een bestand kiezen doe je zo:

With application.filedialogs(3)
   if .show then sheet1.shapes.addpicture(.selecteditems(1),-1,0,20,30,20,50)
end with