afbeelding tonen bij celselectie

[Bart Rijkmans]

graag zou ik een afbeelding willen tonen als een bepaalde cel geselecteerd
wordt bijvoorbeeld
cel a1 staat auto als deze cel geselecterrd wordt verschijnt er een
afbeelding van een auto
cel a2 staat fiets als deze cel geselecteerd wordt verschijnt er een
afbeelding van een fiets
cel a3 staat vliegtuig als deze cel geselecteer wordt verschijnt er een
afbeelding van een vliegtuig

voor alles geldt als de cel niet meer is geselecteerd verdwijnt de
afbeelding

wie o wie is de deskundige??

[berre51]

Post by Bart Rijkmans
graag zou ik een afbeelding willen tonen als een bepaalde cel geselecteerd
wordt bijvoorbeeld
cel a1 staat auto als deze cel geselecterrd wordt verschijnt er een
afbeelding van een auto
cel a2 staat fiets als deze cel geselecteerd wordt verschijnt er een
afbeelding van een fiets
cel a3 staat vliegtuig als deze cel geselecteer wordt verschijnt er een
afbeelding van een vliegtuig
voor alles geldt als de cel niet meer is geselecteerd verdwijnt de
afbeelding
wie o wie is de deskundige??

Er is eerder op het forum ongeveer dezelfde vraag verschenen. De
oplossing was het gebruik van een afbeelding als opmerking. Telkens je
met de muiswijzer de cel aanwijst, verschijnt de afbeelding.

Hoe?
Invoegen > opmerking > rechts klikken op de rand van de opmerking >
opmerking opmaken > kleuren en lijnen >
kleur > opvuleffecten > figuur > figuur selecteren

mvg
berre_51

[Bart Rijkmans]

klopt deze oplossing was mij bekend maar vraag t bij een sterk wisselende a
kollom veel werk
graag had ik een andere oplossing gezien 9zelf dacht ik mee in de richting
van vba

Bart
toch bedankt voor je reactie

Post by berre51

Post by Bart Rijkmans
graag zou ik een afbeelding willen tonen als een bepaalde cel
geselecteerd
wordt bijvoorbeeld
cel a1 staat auto als deze cel geselecterrd wordt verschijnt er een
afbeelding van een auto
cel a2 staat fiets als deze cel geselecteerd wordt verschijnt er een
afbeelding van een fiets
cel a3 staat vliegtuig als deze cel geselecteer wordt verschijnt er een
afbeelding van een vliegtuig
voor alles geldt als de cel niet meer is geselecteerd verdwijnt de
afbeelding
wie o wie is de deskundige??

Er is eerder op het forum ongeveer dezelfde vraag verschenen. De
oplossing was het gebruik van een afbeelding als opmerking. Telkens je
met de muiswijzer de cel aanwijst, verschijnt de afbeelding.
Hoe?
Invoegen > opmerking > rechts klikken op de rand van de opmerking >
opmerking opmaken > kleuren en lijnen >
kleur > opvuleffecten > figuur > figuur selecteren
mvg
berre_51

[Wigi]

Hoi

Deze code kan je alvast een heel eind op weg zetten:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim s As Shape

'don't show pictures
For Each s In ActiveSheet.Shapes
s.Visible = msoFalse
Next

If Not Intersect(Target, Columns(1)) Is Nothing Then

'we're in column A
If Not Target.Value = "" Then
ActiveSheet.Pictures(Target.Value).Visible = True
End If

End If
End Sub

Klik met rechtermuisknop op de bladtab, onderaan het blad, van het blad waar
dit moet van toepassing zijn. Kies Programmacode weergeven. Kopieer en plak
de code daar in het lege witte veld.
--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music

Post by Bart Rijkmans
klopt deze oplossing was mij bekend maar vraag t bij een sterk wisselende a
kollom veel werk
graag had ik een andere oplossing gezien 9zelf dacht ik mee in de richting
van vba
Bart
toch bedankt voor je reactie

Post by berre51

Post by Bart Rijkmans
graag zou ik een afbeelding willen tonen als een bepaalde cel geselecteerd
wordt bijvoorbeeld
cel a1 staat auto als deze cel geselecterrd wordt verschijnt er een
afbeelding van een auto
cel a2 staat fiets als deze cel geselecteerd wordt verschijnt er een
afbeelding van een fiets
cel a3 staat vliegtuig als deze cel geselecteer wordt verschijnt er een
afbeelding van een vliegtuig
voor alles geldt als de cel niet meer is geselecteerd verdwijnt de
afbeelding
wie o wie is de deskundige??

Er is eerder op het forum ongeveer dezelfde vraag verschenen. De
oplossing was het gebruik van een afbeelding als opmerking. Telkens je
met de muiswijzer de cel aanwijst, verschijnt de afbeelding.
Hoe?
Invoegen > opmerking > rechts klikken op de rand van de opmerking >
opmerking opmaken > kleuren en lijnen >
kleur > opvuleffecten > figuur > figuur selecteren
mvg
berre_51

[floris5]

Bart,

Het is ook met vba op te lossen,

ff heel basaal:

voeg in een sheet een plaatje van een vliegtuig, fiets en auto in. Geef deze
plaatjes voor de makkelijkheid ook de naam van hetgeen erop het plaatje staat.

Voer in willekeurige cellen de namen van de objecten waarvan je een plaatje
hebt ingevoerd.

plak in het programmacode scherm van het gebruikte blad de volgende code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim objVorm As Object

For Each vorm In ActiveSheet.Shapes
vorm.Visible = False
Next vorm

For Each vorm In ActiveSheet.Shapes
If LCase(Target.Value) = LCase(vorm.Name) Then
Shapes(vorm.Name).Visible = msoCTrue
End If
Next vorm

End Sub

Als je een nu een cel selecteert met daarin de naam van een voorwerp waarvan
ook een plaatje is ingevoegd zou dit moeten worden getoond,

Success ermee,

Floris

Post by Bart Rijkmans
klopt deze oplossing was mij bekend maar vraag t bij een sterk wisselende a
kollom veel werk
graag had ik een andere oplossing gezien 9zelf dacht ik mee in de richting
van vba
Bart
toch bedankt voor je reactie

Post by berre51

Post by Bart Rijkmans
graag zou ik een afbeelding willen tonen als een bepaalde cel geselecteerd
wordt bijvoorbeeld
cel a1 staat auto als deze cel geselecterrd wordt verschijnt er een
afbeelding van een auto
cel a2 staat fiets als deze cel geselecteerd wordt verschijnt er een
afbeelding van een fiets
cel a3 staat vliegtuig als deze cel geselecteer wordt verschijnt er een
afbeelding van een vliegtuig
voor alles geldt als de cel niet meer is geselecteerd verdwijnt de
afbeelding
wie o wie is de deskundige??

Er is eerder op het forum ongeveer dezelfde vraag verschenen. De
oplossing was het gebruik van een afbeelding als opmerking. Telkens je
met de muiswijzer de cel aanwijst, verschijnt de afbeelding.
Hoe?
Invoegen > opmerking > rechts klikken op de rand van de opmerking >
opmerking opmaken > kleuren en lijnen >
kleur > opvuleffecten > figuur > figuur selecteren
mvg
berre_51

[Niek Otten]

Een handleiding:

http://www.mcgimpsey.com/excel/lookuppics.html
--
Kind regards,

Niek Otten
Microsoft MVP - Excel

"Bart Rijkmans" <***@planet.nl> wrote in message news:46bdc63a$0$25498$***@text.nova.planet.nl...
| graag zou ik een afbeelding willen tonen als een bepaalde cel geselecteerd
| wordt bijvoorbeeld
| cel a1 staat auto als deze cel geselecterrd wordt verschijnt er een
| afbeelding van een auto
| cel a2 staat fiets als deze cel geselecteerd wordt verschijnt er een
| afbeelding van een fiets
| cel a3 staat vliegtuig als deze cel geselecteer wordt verschijnt er een
| afbeelding van een vliegtuig
|
| voor alles geldt als de cel niet meer is geselecteerd verdwijnt de
| afbeelding
|
| wie o wie is de deskundige??
|
|

[Piet Robe]

Ron,
Ik heb getracht de website die je hebt aangedragen toe te passen in mijn
situatie. Alleen het lukt me niet.
Wat heb ik gedaaan.
1. op sheet2 heb ik de namen in kolomA vervangen door mijn 4 namen.
2. daarna op sheet1 gecontroleerd, het werkt met de plaatjes van het
voorbeeld.
3. daarna het plaatje van mij zelf ergen op de sheet1 gezet
4. plaatje hernoemd naar picture1
5. het werkt
6. Nu heeft het plaatje de naam van 1234.JPG getracht dit te veranderen
alleen dan werkt het niet meer. Nu kan alle plaatjes van een andere naam
voorzien, maar het zijn er nogal al wat. Is dit ook aan te passen dat werkt
met ????.JPG.
groet
Piet
--
Met vriendelijke groet
Piet Robe

Post by Niek Otten
http://www.mcgimpsey.com/excel/lookuppics.html
--
Kind regards,
Niek Otten
Microsoft MVP - Excel
| graag zou ik een afbeelding willen tonen als een bepaalde cel geselecteerd
| wordt bijvoorbeeld
| cel a1 staat auto als deze cel geselecterrd wordt verschijnt er een
| afbeelding van een auto
| cel a2 staat fiets als deze cel geselecteerd wordt verschijnt er een
| afbeelding van een fiets
| cel a3 staat vliegtuig als deze cel geselecteer wordt verschijnt er een
| afbeelding van een vliegtuig
|
| voor alles geldt als de cel niet meer is geselecteerd verdwijnt de
| afbeelding
|
| wie o wie is de deskundige??
|
|

[Piet Robe]

Ron,
Ik heb getracht de website die je hebt aangedragen toe te passen in mijn
situatie. Alleen het lukt me niet.
Wat heb ik gedaaan.
1. op sheet2 heb ik de namen in kolomA vervangen door mijn 4 namen.
2. daarna op sheet1 gecontroleerd, het werkt met de plaatjes van het
voorbeeld.
3. daarna het plaatje van mij zelf ergen op de sheet1 gezet
4. plaatje hernoemd naar picture1
5. het werkt
6. Nu heeft het plaatje de naam van 1234.JPG getracht dit te veranderen
alleen dan werkt het niet meer. Nu kan alle plaatjes van een andere naam
voorzien, maar het zijn er nogal al wat. Is dit ook aan te passen dat werkt
met ????.JPG.
groet
Piet
--
Met vriendelijke groet
Piet Robe

Post by Niek Otten
http://www.mcgimpsey.com/excel/lookuppics.html
--
Kind regards,
Niek Otten
Microsoft MVP - Excel
| graag zou ik een afbeelding willen tonen als een bepaalde cel geselecteerd
| wordt bijvoorbeeld
| cel a1 staat auto als deze cel geselecterrd wordt verschijnt er een
| afbeelding van een auto
| cel a2 staat fiets als deze cel geselecteerd wordt verschijnt er een
| afbeelding van een fiets
| cel a3 staat vliegtuig als deze cel geselecteer wordt verschijnt er een
| afbeelding van een vliegtuig
|
| voor alles geldt als de cel niet meer is geselecteerd verdwijnt de
| afbeelding
|
| wie o wie is de deskundige??
|
|

[Bart Rijkmans]

wigi - floris5,

beiden bedankt voor de opllossing
ik heb uiteindelijk gekozen voor de oplossing van floris 5 omdat die geen
foutmelding genereert als er iets in de a kolom staat waar geen afbeelding
van is

Bart

Post by Bart Rijkmans
graag zou ik een afbeelding willen tonen als een bepaalde cel geselecteerd
wordt bijvoorbeeld
cel a1 staat auto als deze cel geselecterrd wordt verschijnt er een
afbeelding van een auto
cel a2 staat fiets als deze cel geselecteerd wordt verschijnt er een
afbeelding van een fiets
cel a3 staat vliegtuig als deze cel geselecteer wordt verschijnt er een
afbeelding van een vliegtuig
voor alles geldt als de cel niet meer is geselecteerd verdwijnt de
afbeelding
wie o wie is de deskundige??

[Bart Rijkmans]

Om e.e.a. te vervolmaken zou het mooi zijn als het plaatje bv. 2 kollommen
rechts van de naam getoond wordt
Kan dat??

Bvd
Bart

Post by Bart Rijkmans
wigi - floris5,
beiden bedankt voor de opllossing
ik heb uiteindelijk gekozen voor de oplossing van floris 5 omdat die geen
foutmelding genereert als er iets in de a kolom staat waar geen afbeelding
van is
Bart

Post by Bart Rijkmans
graag zou ik een afbeelding willen tonen als een bepaalde cel
geselecteerd wordt bijvoorbeeld
cel a1 staat auto als deze cel geselecterrd wordt verschijnt er een
afbeelding van een auto
cel a2 staat fiets als deze cel geselecteerd wordt verschijnt er een
afbeelding van een fiets
cel a3 staat vliegtuig als deze cel geselecteer wordt verschijnt er een
afbeelding van een vliegtuig
voor alles geldt als de cel niet meer is geselecteerd verdwijnt de
afbeelding
wie o wie is de deskundige??

[floris5]

Bart,

hieronder een "licht aangepaste uitvoering" van de macro, met het aanpassen
van de sinKolomafstand kun je de kolomafstand instellen. Als je de ' weghaalt
bij de 4 regels kun je ook de rij afstand aanpassen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim objVorm As Object
Dim sinLinks As Single
Dim sinTop As Single
Dim sinKolomafstand
Dim sinRijafstand
Dim intTeller%

sinKolomafstand = 2
sinRijafstand = 0

If Target.Cells.Count = 1 Then
For Each objVorm In ActiveSheet.Shapes
objVorm.Visible = False
Next objVorm
For Each objVorm In ActiveSheet.Shapes
If LCase(Target.Value) = LCase(objVorm.Name) Then
Shapes(objVorm.Name).Visible = msoCTrue
For intTeller = 1 To Target.Column + sinKolomafstand
sinLinks = sinLinks + Columns(intTeller).Width
Next intTeller
' For intTeller = 1 To Target.Row - 1 + sinRijafstand
' sinTop = sinTop + Rows(intTeller).Height
' Next intTeller
' Shapes(objVorm.Name).Top = sinTop
Shapes(objVorm.Name).Left = sinLinks
End If
Next objVorm
Else
For Each objVorm In ActiveSheet.Shapes
objVorm.Visible = False
Next objVorm
End If
End Sub

succes ermee,

Floris

Post by Bart Rijkmans
Om e.e.a. te vervolmaken zou het mooi zijn als het plaatje bv. 2 kollommen
rechts van de naam getoond wordt
Kan dat??
Bvd
Bart

Post by Bart Rijkmans
wigi - floris5,
beiden bedankt voor de opllossing
ik heb uiteindelijk gekozen voor de oplossing van floris 5 omdat die geen
foutmelding genereert als er iets in de a kolom staat waar geen afbeelding
van is
Bart

Post by Bart Rijkmans
graag zou ik een afbeelding willen tonen als een bepaalde cel
geselecteerd wordt bijvoorbeeld
cel a1 staat auto als deze cel geselecterrd wordt verschijnt er een
afbeelding van een auto
cel a2 staat fiets als deze cel geselecteerd wordt verschijnt er een
afbeelding van een fiets
cel a3 staat vliegtuig als deze cel geselecteer wordt verschijnt er een
afbeelding van een vliegtuig
voor alles geldt als de cel niet meer is geselecteerd verdwijnt de
afbeelding
wie o wie is de deskundige??

[Piet Robe]

beste Niek, Floirs en anderen,
met interesse dit draadje gevolgd. Heb getracht dit na te bootsaen, maar het
lukt me niet. Ook niet met de aangedragen site van Niek.
Bij die van flris heb i het volgende gedaan.
Achter blad1 heb ik de (aangepaste/laatsete) VBA code van Floris geplakt.
Op blad genaamd dia heb ik allemaal fotos staan. De fotos hebben allemaal de
bestandsnaam ????.JPG
Wat ik ook intyp in blad1 er komt geen foto te zien.
Als ik de code kopieer en achter blad dia kopieer verdwijnewn wel allefot's,
maar als ik dan 1234.JPG naam van het plaatje in typ gebeurt er niets
waarneembaars voor mij.
Het nummer wordt dan waarschijnlijk niet gevonden (bestaat wel op het blad)
want de vraagstelling was als het er niet was om dan niets te laten zien.
Wat doe ik fout of zie ik over het hoofd.
--
Met vriendelijke groet
Piet Robe

Post by Bart Rijkmans
graag zou ik een afbeelding willen tonen als een bepaalde cel geselecteerd
wordt bijvoorbeeld
cel a1 staat auto als deze cel geselecterrd wordt verschijnt er een
afbeelding van een auto
cel a2 staat fiets als deze cel geselecteerd wordt verschijnt er een
afbeelding van een fiets
cel a3 staat vliegtuig als deze cel geselecteer wordt verschijnt er een
afbeelding van een vliegtuig
voor alles geldt als de cel niet meer is geselecteerd verdwijnt de
afbeelding
wie o wie is de deskundige??

[floris5]

Hallo Piet.

Op het blad waarachter de macro is geplakt moeten de foto´s staan, in jou
geval dan dus het blad dia.

Met de namen van de verschillende figuren wordt niet de bestandsnaam bedoeld
maar de naam van het figuur die het krijgt als het in excel wordt ingevoegd.

Deze naam is te vinden in het naamvak meestal linksboven gesitueerd. Indien
je een door jou ingevoerde foto selecteert zal daar een naam komen te staan.
Als je nu in het naamvak klikt kun je er een andere naam voor intypen.

Indien je deze naam vervolgens in een van de cellen invoert en deze cel
vervolgens opnieuw selecteert zou de de foto moeten verschijnen

Probeer het eens,

Floris

Post by Piet Robe
beste Niek, Floirs en anderen,
met interesse dit draadje gevolgd. Heb getracht dit na te bootsaen, maar het
lukt me niet. Ook niet met de aangedragen site van Niek.
Bij die van flris heb i het volgende gedaan.
Achter blad1 heb ik de (aangepaste/laatsete) VBA code van Floris geplakt.
Op blad genaamd dia heb ik allemaal fotos staan. De fotos hebben allemaal de
bestandsnaam ????.JPG
Wat ik ook intyp in blad1 er komt geen foto te zien.
Als ik de code kopieer en achter blad dia kopieer verdwijnewn wel allefot's,
maar als ik dan 1234.JPG naam van het plaatje in typ gebeurt er niets
waarneembaars voor mij.
Het nummer wordt dan waarschijnlijk niet gevonden (bestaat wel op het blad)
want de vraagstelling was als het er niet was om dan niets te laten zien.
Wat doe ik fout of zie ik over het hoofd.
--
Met vriendelijke groet
Piet Robe

Post by Bart Rijkmans
graag zou ik een afbeelding willen tonen als een bepaalde cel geselecteerd
wordt bijvoorbeeld
cel a1 staat auto als deze cel geselecterrd wordt verschijnt er een
afbeelding van een auto
cel a2 staat fiets als deze cel geselecteerd wordt verschijnt er een
afbeelding van een fiets
cel a3 staat vliegtuig als deze cel geselecteer wordt verschijnt er een
afbeelding van een vliegtuig
voor alles geldt als de cel niet meer is geselecteerd verdwijnt de
afbeelding
wie o wie is de deskundige??

[Bart Rijkmans]

heren
het was me weer een waar genoegen
perfecte hulp tot en met vhet laatst toe

bedankt
Bart

Post by floris5
Hallo Piet.
Op het blad waarachter de macro is geplakt moeten de fotoŽs staan, in jou
geval dan dus het blad dia.
Met de namen van de verschillende figuren wordt niet de bestandsnaam bedoeld
maar de naam van het figuur die het krijgt als het in excel wordt ingevoegd.
Deze naam is te vinden in het naamvak meestal linksboven gesitueerd. Indien
je een door jou ingevoerde foto selecteert zal daar een naam komen te staan.
Als je nu in het naamvak klikt kun je er een andere naam voor intypen.
Indien je deze naam vervolgens in een van de cellen invoert en deze cel
vervolgens opnieuw selecteert zou de de foto moeten verschijnen
Probeer het eens,
Floris

Post by Piet Robe
beste Niek, Floirs en anderen,
met interesse dit draadje gevolgd. Heb getracht dit na te bootsaen, maar het
lukt me niet. Ook niet met de aangedragen site van Niek.
Bij die van flris heb i het volgende gedaan.
Achter blad1 heb ik de (aangepaste/laatsete) VBA code van Floris geplakt.
Op blad genaamd dia heb ik allemaal fotos staan. De fotos hebben allemaal de
bestandsnaam ????.JPG
Wat ik ook intyp in blad1 er komt geen foto te zien.
Als ik de code kopieer en achter blad dia kopieer verdwijnewn wel allefot's,
maar als ik dan 1234.JPG naam van het plaatje in typ gebeurt er niets
waarneembaars voor mij.
Het nummer wordt dan waarschijnlijk niet gevonden (bestaat wel op het blad)
want de vraagstelling was als het er niet was om dan niets te laten zien.
Wat doe ik fout of zie ik over het hoofd.
--
Met vriendelijke groet
Piet Robe

Post by Bart Rijkmans
graag zou ik een afbeelding willen tonen als een bepaalde cel geselecteerd
wordt bijvoorbeeld
cel a1 staat auto als deze cel geselecterrd wordt verschijnt er een
afbeelding van een auto
cel a2 staat fiets als deze cel geselecteerd wordt verschijnt er een
afbeelding van een fiets
cel a3 staat vliegtuig als deze cel geselecteer wordt verschijnt er een
afbeelding van een vliegtuig
voor alles geldt als de cel niet meer is geselecteerd verdwijnt de
afbeelding
wie o wie is de deskundige??

[Piet Robe]

Floris,
het is gelukt. Het was nook een kwestie van goed lezen. Ik had verwachting
dat ik type de naam en direct werd het plaatje getoond.
groet
Piet

Post by floris5
Hallo Piet.
Op het blad waarachter de macro is geplakt moeten de foto´s staan, in jou
geval dan dus het blad dia.
Met de namen van de verschillende figuren wordt niet de bestandsnaam bedoeld
maar de naam van het figuur die het krijgt als het in excel wordt ingevoegd.
Deze naam is te vinden in het naamvak meestal linksboven gesitueerd. Indien
je een door jou ingevoerde foto selecteert zal daar een naam komen te staan.
Als je nu in het naamvak klikt kun je er een andere naam voor intypen.
Indien je deze naam vervolgens in een van de cellen invoert en deze cel
vervolgens opnieuw selecteert zou de de foto moeten verschijnen
Probeer het eens,
Floris

Post by Piet Robe
beste Niek, Floirs en anderen,
met interesse dit draadje gevolgd. Heb getracht dit na te bootsaen, maar het
lukt me niet. Ook niet met de aangedragen site van Niek.
Bij die van flris heb i het volgende gedaan.
Achter blad1 heb ik de (aangepaste/laatsete) VBA code van Floris geplakt.
Op blad genaamd dia heb ik allemaal fotos staan. De fotos hebben allemaal de
bestandsnaam ????.JPG
Wat ik ook intyp in blad1 er komt geen foto te zien.
Als ik de code kopieer en achter blad dia kopieer verdwijnewn wel allefot's,
maar als ik dan 1234.JPG naam van het plaatje in typ gebeurt er niets
waarneembaars voor mij.
Het nummer wordt dan waarschijnlijk niet gevonden (bestaat wel op het blad)
want de vraagstelling was als het er niet was om dan niets te laten zien.
Wat doe ik fout of zie ik over het hoofd.
--
Met vriendelijke groet
Piet Robe

Post by Bart Rijkmans
graag zou ik een afbeelding willen tonen als een bepaalde cel geselecteerd
wordt bijvoorbeeld
cel a1 staat auto als deze cel geselecterrd wordt verschijnt er een
afbeelding van een auto
cel a2 staat fiets als deze cel geselecteerd wordt verschijnt er een
afbeelding van een fiets
cel a3 staat vliegtuig als deze cel geselecteer wordt verschijnt er een
afbeelding van een vliegtuig
voor alles geldt als de cel niet meer is geselecteerd verdwijnt de
afbeelding
wie o wie is de deskundige??