Hallo !
Reeds veel zeer nuttige tips op dit forum die me verder geholpen hebben, maar nu toch zelf ook een probleem waar ik niet uit geraak.
Situatie :
Op een worksheet heb ik een command button gemaakt met daarin de functie 'getopenfilename' en de mogelijkheid om meerdere files te selecteren. De type te selecteren bestanden heb ik beperkt tot PDF en JPG omdat dit de enige bronnen zijn die kunnen/mogen toegevoegd worden.
Bedoeling :
een icon tonen van de PDF/afbeelding waarop de gebruiker kan klikken en de file in het groot geopend wordt. PDF/JPG is niet gelinkt en wordt dus eigenlijk bijgevoegd aan de excel (embedded).
Problemen :
1. het invoegen van 1 bestand is OK, maar van zodra meerdere bestanden geselecteerd voegt mijn code dit bestand x-aantal keer toe zoveel als het aantal bestanden dat geselecteerd werd. Hierdoor wordt het algemeen bestand wel extreem groot.
2. onder de afbeelding had ik ook graag de naam van het bestand geplaatst, maar op gelijk welke manier ik ook probeer, de filename kan ik niet tevoorschijn toveren.
3. de afbeelding die ik krijg als icon is een wit vlak. Graag had ik hier een miniafbeelding van het bestand geplaatst zodat de gebruiker snel kan zien wat de inhoud van het document is.
Als code heb ik onderstaande op dit ogenblik bij elkaar gerijft :
Dit is een 'gekuiste' versie die bovenstaande problemen genereert. De proefversies zal ik jullie besparen want dan vrees ik dat mijn eerste post een gigantische belasting zal zijn voor dit forum.
Alvast dank voor de tijd nodig om dit bericht even door te nemen !!
Erik
Reeds veel zeer nuttige tips op dit forum die me verder geholpen hebben, maar nu toch zelf ook een probleem waar ik niet uit geraak.
Situatie :
Op een worksheet heb ik een command button gemaakt met daarin de functie 'getopenfilename' en de mogelijkheid om meerdere files te selecteren. De type te selecteren bestanden heb ik beperkt tot PDF en JPG omdat dit de enige bronnen zijn die kunnen/mogen toegevoegd worden.
Bedoeling :
een icon tonen van de PDF/afbeelding waarop de gebruiker kan klikken en de file in het groot geopend wordt. PDF/JPG is niet gelinkt en wordt dus eigenlijk bijgevoegd aan de excel (embedded).
Problemen :
1. het invoegen van 1 bestand is OK, maar van zodra meerdere bestanden geselecteerd voegt mijn code dit bestand x-aantal keer toe zoveel als het aantal bestanden dat geselecteerd werd. Hierdoor wordt het algemeen bestand wel extreem groot.
2. onder de afbeelding had ik ook graag de naam van het bestand geplaatst, maar op gelijk welke manier ik ook probeer, de filename kan ik niet tevoorschijn toveren.
3. de afbeelding die ik krijg als icon is een wit vlak. Graag had ik hier een miniafbeelding van het bestand geplaatst zodat de gebruiker snel kan zien wat de inhoud van het document is.
Als code heb ik onderstaande op dit ogenblik bij elkaar gerijft :
Code:
ImgFileFormat = "PDF Files (*.pdf),*.pdf,JPG Files (*.jpg),*.jpg"
GetPict:
ChDrive "C:\"
ChDir Environ("USERPROFILE") & "\documents\"
Pict = Application.GetOpenFilename(ImgFileFormat, Title:="Selecteer de in te voegen files", MultiSelect:=True)
lRow = 32
lcol = 3
For lLoop = LBound(Pict) To UBound(Pict)
llef = Cells(lRow, lcol).Left
lTop = Cells(lRow, lcol).Top
Set sShape = ActiveSheet.Shapes.AddOLEObject(Filename:=Pict(lLoop), link:=False, DisplayAsIcon:=True, Iconlabel:=naam, Left:=llef, Top:=lTop, Width:=80, Height:=80)
lcol = lcol + 3
Next lLoopDit is een 'gekuiste' versie die bovenstaande problemen genereert. De proefversies zal ik jullie besparen want dan vrees ik dat mijn eerste post een gigantische belasting zal zijn voor dit forum.
Alvast dank voor de tijd nodig om dit bericht even door te nemen !!
Erik
