• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

plaatje laten zien bij muisklik

Status
Niet open voor verdere reacties.

gGerretje

Gebruiker
Lid geworden
12 mrt 2008
Berichten
437
Hallo helpers,

Ik zou graag bij het klikken op een cel een afbeelding willen tonen in een apart kader.
In bijgevoegd vereenvoudigd bestandje is dit al gelukt. Het betreft een bieretiketje uit mijn verzameling.

Ik heb die afbeelding binnen een opmerking geplaatst.
Maar zo krijg ik overal dat rode driehoekje van de opmerkingen. En de weergave met schaduw is ook al niet fraai.

Na wat zoeken kwam ik deze vraag met antwoorden tegen.
https://www.helpmij.nl/forum/showthread.php/920783-Hover-tekst-in-Excel-(of-mouseover)?highlight=mouseover+Excel

In #3 geeft gast0660 voor cel C4 een mooie oplossing met een opmerking die pas verschijnt bij een muisklik.
Ik zie echter niet hoe hij het gedaan heeft en ik zou ditzelfde graag willen doen. Maar maar dan met de betreffende afbeelding in dat infovakje.
Het lijkt mij niet heel erg moeilijk. Je moet het alleen even weten. En ik weet het niet :-(

Kan iemand mij op weg helpen?

Alvast bedankt voor jullie hulp.

Groeten
Ger
 

Bijlagen

  • test met plaatjes.xlsm
    94,6 KB · Weergaven: 80
Laatst bewerkt:
Dat is het invoerbericht bij Gegevensvalidatie.
Maar daar kan je bij mijn weten geen plaatje in kwijt.
 
Laatst bewerkt:
Hoi Ed,

Dank voor je opmerking. Ik zie het ja.
Maar heb je wel nog een idee om die schaduwrand van de afbeelding weg te krijgen?

Of nog een andere idee natuurlijk ...

Groeten,
Ger
 
Laatst bewerkt:
Zit dat niet in het plaatje zelf?
 
Ik ga het nog eens goed bekijken.

Toevoeging:

Nee het plaatje heeft geen rand.
Ik hoopte plotseling even dat je gelijk had.
 
Laatst bewerkt:
Heeft iemand anders misschien nog een idee hoe ik mijn plaatje nog wat mooier (dus zonder schaduwrand) kan laten tonen bij muisklik of mouseover?

Groetjes,
Ger
 
Voer dit eens uit:
Code:
Range("F24").Comment.Shape.Shadow.Visible = msoFalse
 
Hallo Ed,

Dat werkt goed.
Ziet er al mooi uit.

Dank je wel voor de tip.
En als ik dat voor alle plaatjes wil?
Dan gebruik is iets als: for each xxx in Range
maar dat soort codes zijn niet mijn sterkste punt (lees: zwakke punt).


Heb je wellicht ook nog een idee om het rode driehoekje en het pijltje van de opmerking naar de cel weg te "toveren"?
Dan zou het helemaal Top zijn.

Groetjes,
Ger
 
Laatst bewerkt:
Nee, dat gaat niet.
 
Hoi Ed,

Oké. Jammer. Niets aan te doen.

Bedankt voor je hulp. Het is al een stuk fraaier zo.

Groetjes,
Ger
 
heb het niet echt onderzocht, maar volgens mij zijn het plaatjes die als naam "Commentx" dragen.
Nu wordt er gekeken in welke cel de linkerbovenhoek van je plaatje staat en daarop wordt wel of niet actie ondernomen
Code:
Sub randje()
   For Each sh In ActiveSheet.Shapes
      MsgBox sh.TopLeftCell.Address & vbTab & sh.Name   'zeg cel linkerbovenhoek en naam
      If Not Intersect(Range("F1:I50"), sh.TopLeftCell) Is Nothing Then
         sh.Shadow.Visible = msoFalse
      End If
   Next
End Sub
 
Om driehoekjes te verwijderen (in versie Excel 21010):

Ga naar opties --> Geavanceerd --> scrollen naar beneden
Bij Weergave --> Voor cellen met opmerkingen, weergeven
selecteer Geen opmerkingen of indicatoren

Wim
 
De vraag zou kunnen gesteld worden of je dan nog veel hebt aan de opmerkingen, want die zijn dan méé weg (t.t.z. onzichtbaar) samen met de driehoekjes...
 
En de plaatjes dus.
En weet Microsoft dat Excel versie 21010 er al is? ;)
 
Laatst bewerkt:
Haha, die eer laat ik aan jou :d
 
Hallo bereidwillige helpers,

Ik ben alweer geweldig geholpen
.
Met de optie van Ed kreeg ik elk plaatje al zonder schaduw, maar handmatig.
Met de toevoeging van cow18 krijg ik ze inderdaad allemaal weg.
Ik zet hem gewoon in de Activate van het betreffende werkblad en het is gebeurd.

@ cow18: Ik neem aan dat je de If-lus erin hebt gezet om te voorkomen dat er in de betreffende range geen afbeelding wordt aangetroffen en dat er dan een foutmelding gegeven zou worden?

@ Wivoe: dat wegwerken van de indicatoren werkt inderdaad maar dan is (zoals Enigmasmurf terecht aangeeft) de opmerking zelf ook weg. En daar ging het juist om.
Vreemd dat de mogelijkheid om alleen die indicator uit te schakelen er niet bij staat. Misschien is die mogelijkheid er wel in versie 21010 :)

Nogmaals bedankt allemaal voor het helpen oplossen van mijn vraag.
Ik wacht even of er wellicht nog bruikbare toevoegingen komen voor ik hem op opgelost zet.

Met vriendelijke groeten,
Ger
 
Laatst bewerkt:
Hiermee is het rode driehoekje bijna niet meer zichtbaar.


Code:
Sub CoverCommentIndicator()
Dim pWs As Worksheet
Dim pComment As Comment
Dim pRng As Range
Dim pShape As Shape
Dim wShp As Long
Dim hShp As Long
Set pWs = Application.ActiveSheet
wShp = 6
hShp = 4
For Each pComment In pWs.Comments
  Set pRng = pComment.Parent
  Set pShape = pWs.Shapes.AddShape(msoShapeRightTriangle, pRng.Offset(0, 1).Left - wShp, pRng.Top, wShp, hShp)
  With pShape
    .Flip msoFlipVertical
    .Flip msoFlipHorizontal
    .Fill.ForeColor.SchemeColor = 1
    .Fill.Visible = msoTrue
    .Fill.Solid
    .Line.Visible = msoFalse
  End With
Next
End Sub
Code is niet van mezelf.
 
Een overlay.
Leuk idee :)
 
Hierbij nog een methode met één ActiveX plaatje
Kolom N
 

Bijlagen

  • test met plaatjes (1).xlsm
    454,2 KB · Weergaven: 69
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan