Button Browse image & plaats in juiste cel

[croos]

Beste allemaal,

Ik ben al een tijd op jullie forum en op internet aan het zoeken.
Maar de juiste oplossing voor mijn probleem heb ik nog niet gevonden.

Ik wil een button plaatsen waar je op kan klikken en dat hij dan je verkenner opent.
Dat je dan elke willekeurige foto kan kiezen.
En zodra je op insert klikt, dat dan die foto in een bepaalde cel terecht komt.
Het liefst ook in de afmetingen van die cel (cel mag dus niet worden aangepast)

Probleem 2 is wel dat ik nog niet weet hoe ik het moet oplossen met portait en landscape foto's....

Het is voor mijn werk en een btje gevoelige informatie.
Dus ik heb even een apart bestandje gemaakt ter verduidelijking.
De foto moet dus gelijk en in het juiste formaat in het omrandde vak komen.
Bekijk bijlage Helpmijforum.zipBekijk bijlage Helpmijforum.zipBekijk bijlage Helpmijforum.zip

Alvast bedankt!!!

 

[edmoor]

Probeer deze eens. E.e.a. is wel afhankelijk van de maat van je foto's, maar daar kun je in de code wel mee spelen.

Bekijk bijlage Helpmijforumvraag.xlsm

 

[croos]

edmoor, dit is perfect!
Superbedankt, ook voor de snelle reactie.

 

[edmoor]

Graag gedaan. En welkom bij Helpmij

 

[croos]

Bedankt edmoor, ben nu al blij dat ik me heb aangemeld!

Ik heb toch nog een klein vraagje.

Ik heb in mijn bestand op een andere sheet ook een button die bestanden zoekt.
Die opent gelijk in de juiste directory (O:\Opdrachten\)
En nu lukt het me niet om dat ook hierin te krijgen.

En ik snap niet waarom het me nu niet lukt....frustrerend!
Iemand die mij kan helpen?

 

[edmoor]

Hallo croos,

Er zijn mooiere manieren maar die vergen een uitgebreidere wijziging. In dit geval kun je volstaan met het toevoegen van de rode regels op die plek in de Sub die door de knop wordt uitgevoerd:

Sub Button1_Click()
    Dim desPathName As String
[COLOR="#FF0000"]    ChDrive ("O")
    ChDir ("\Opdrachten")[/COLOR]
    desPathName = Application.GetOpenFilename(FileFilter:="Foto's (*.jp*;*.bmp), Foto's", Title:="Kies een foto")
    If desPathName <> "" Then
        Call InsertPictureInRange(desPathName, Range("B5:H22"))
    End If
End Sub

 

[croos]

Ja! Je hebt me weer erg blij gemaakt. Bedankt!!!!

 

[croos]

Ben ik weer....
Krijg nu een foutmelding die ik niet opgelost krijg.

Run-time error '1004':
Unable to set the Top property of the Picture class

 

[edmoor]

Dat is een lastige om uit te leggen. Als je je document kunt plaatsen zal ik vanavond wel even kijken.

 

[croos]

Ik begrijp er niets van, nu doet hij het weer wel gewoon goed.....

 

[croos]

Ik zal toch het bestand nog even toevoegen.

Bekijk bijlage Helpmijforum.zip

 

[edmoor]

Hij doet het hier ook goed en dan is het lastig aan te geven wat er aan de hand was. Het probleem zal zijn dat er ergens iets niet in orde was met het aangeven van de plaats waar de foto moet komen.

 

[croos]

Apart he, maar hij doet t vandaag ook nog steeds goed. Dus ik zal hem weer op opgelost zetten! Wederom bedankt.