Verticaal zoeken naar afbeelding

[Excel12345]

Hallo,

Ik probeer een bestand te maken waarin ik door middel van verticaal zoeken een afbeelding naar voren haal.

Ik heb gezocht en op dit forum gevonden wat ik zoek;

namelijk deze: http://www.helpmij.nl/forum/showthread.php/499029-verticaal-zoeken-in-excel-2003-met-foto-s

Post #4 is waar ik naar op zoek ben, al begrijp ik niet hoe deze tot stand is gekomen. Hoe worden de foto's aan de nummers 1 t/m 4 gekoppeld? Ze staat niet in het Excel bestand dus ik begrijp niet hoe dit wordt gedaan.

Alvast bedankt,
Excel12345

 

[wieter]

Die foto's staan wel in het bestand.
Ze staan in F1 boven op elkaar en zijn in de code onzichtbaar gemaakt.
Op de derde regel in de code vervang je False door True en ze worden zichtbaar

  Private Sub Worksheet_Calculate()
        Dim oPic As Picture
        Me.Pictures.Visible = True [COLOR="#FF0000"]'Vervang true door False[/COLOR]  
      With Range("F1")
            For Each oPic In Me.Pictures
                If oPic.Name = .Text Then
                    oPic.Visible = True
                    oPic.Top = .Top
                    oPic.Left = .Left
                    Exit For
                End If
            Next oPic
        End With
    End Sub

Bekijk bijlage 155849

 

[wieter]

Verkeerd bestand meegestuurd

Bekijk bijlage 155851

 

[wildboy]

Hey,

Het kan ook zonder VBA :shocked::thumb:

Heel toevallig dat ik deze gisteren tegenkwam..het moest zo zijn denk ik

Dit is trick882 Excel 2007 (weet niet of het op voorgaande versies ook werkt)
wil je de hele uitleg kijk dan even trick881 (excel 2010) en pas het laatste stukje aan.

http://www.youtube.com/watch?v=W_GBoDkb2pI&feature=plcp

Bestandje uit de youtube er even bijgedaan.

 

[wieter]

Hey Eric,
Enige tijd geleden heb ik deze methode eens toegepast voor een vereniging van classic-cars bezitters.
Er zit wel een ander stukje code in, om de foto te laten verdwijnen bij een nieuwe zoekactie.
Met deze methode zijn leuke dingen te maken.
NADEEL!!!! Het toevoegen van veel foto's, maakt het bestand enorm zwaar.
Om de bijlage verstuurd te krijgen (zelfs gerarred) kon ik maar 1 foto laten staan.
De vraagsteller reageert niet meer, maar misschien leest hij alles en doet hij er wat mee.

Bekijk bijlage 155919

 

[Excel12345]

@Wieter

De eerste methode is inderdaad wat ik zoek, het lukt me niet.

@wildboy

Mooi alternatief, deze is gelukt

Bedankt voor de reacties

 

[wieter]

Als je echt de eerste methode wil gebruiken.
In de bijlage een stap voor stap uitleg.
Er zitten in de bijlage maar 2 foto's om onder de 100kb te blijven, zodat ik het zonder rarren kan versturen.

Eigenlijk zijn de twee methodes identiek, enkel de uitvoering verschilt

Bekijk bijlage 156149

 

[Excel12345]

Oke, hij werkt handig om te weten voor de volgende keer. Ik wist niet hoe ik bestanden een naam moest geven, vandaar dat de uitleg met youtube filmpje wel lukte.

Bedankt voor de reacties ik zet de vraag hierbij op beantwoord.