[vba in excel2000] foto invoegen

[degroot]

jah ik ben idd als een dolle de laatste tijd aan het programmeren(zijn wel leuke kleine en leerzamen projecten)

nu ben ik met een offerte bezig te maken.
in die offerte moet een foto komen te staan.
dus dit neem ik allemaal met de macro op.
maar altijd als ik die macro uitvoer komt dezelfde foto in het venster.
en ik zou graag willen dat mensen die deze offerte invullen eerst een foto kunnen selecteren.

alleen krijg ik dit helaas niet voorelkaar om te veranderen in vba

code:

ActiveSheet.Pictures.Insert("K:\Zomer 2005\Digital pictures\P5270016.JPG"). _
        Select

hij pakt dus altijd die foto maar in die map staan meerdere foto's die ook in een offerte voorkomen(logisch toch)
achter de rest van de code zit nog alle opmaak die die tijdens de macro uitvoert maar dat is verder niet interresant.

als je meer info nodig hebt hoor ik het wel

[BtM909]

degroot schreef op 22 september 2004 @ 11:52:

als je meer info nodig hebt hoor ik het wel

Wat dacht je van zelf uitzoeken

Je wilt gebruik maken van een variabele foto, dus moet je op 1 of andere manier die bestandsnaam (inclusief pad) variabel maken...

Kijk eens naar de VBA controls die je kan gebruiken op een form... Je zou een klein formulier (Form) kunnen maken, die op zijn beurt weer een directory listing kan verzorgen....

[degroot]

waar dacht je dat ik vanaf vanochtend half 9 al mee bezig was ik vraag niet zomaar iets, als ik al iets vraag dan heb ik eerst zelf wel zoveel mogelijk geprobeerd

[qoute]
Kijk eens naar de VBA controls die je kan gebruiken op een form... Je zou een klein formulier (Form) kunnen maken, die op zijn beurt weer een directory listing kan verzorgen....
[/qoute]
i'll try

[ Voor 9% gewijzigd door degroot op 22-09-2004 12:06 ]

[degroot]

nee dat is ook niet helemaal wat ik zoek wat je bedoelt
mij lukte het wel met importeren toen van tekstbestanden maar dat gaat ook weer heel anders in zijn werking zie ik nu aan de code

[onkl]

Zoek eens op getopenfilename (1 woord) in VBA Object Browser. Daarmee geef je de gebruiker het "open een bestand"dialoogvenster en krijg je de gekozen bestandnaam als string terug. De help erachter geeft een functioneel voorbeeld.

[degroot]

jah heb ik al geprobeerd
dit gaat goed als je een document importeert
dan krijg je netjes je venster te zien en kun je een tekstbestandje importeren
maar met de foto's gaat dit niet
of ik moet iets over het hoofd hebben gezien

[onkl]

Het eerste argument is optioneel. Weglaten dus. Je kan bijv. onderstaande code kunnen proberen.

code:

Dim naam as String
naam = Application.GetOpenFilename()
ActiveSheet.Pictures.Insert(Naam).Select

Klaar

[degroot]

thnQ onkl
zo had ik het iig nog niet geprobeerd
maar dit werkt idd.
zat ik best lang op te klote en kwist dat het niet moelijk kon zijn