afbeelding vergroten bij hoveren van muis over een cel met (kleine) afbeelding

[Angela69]

Hallo,

In een ledenlijst staan afbeeldingen in een cel
Wie kan een script maken, waarbij als de muis over de afbeelding gaat, deze vergroot wordt.

Is dit te realiseren?

Zie voorbeeld bestand

 

[edmoor]

Geen afbeeldingen te zien hier:

 

[jverkerk]

Wat gek, bij mij wel.
MS 365

 

[edmoor]

Microsoft Community zegt dit:

#unknown! displayed in excel where an inserted picture should be located | Microsoft Community Hub

A supplier is sending me an excel template which contains pictures in a cellThe picture can be viewed in web based outlook and web based excel but when I...

techcommunity.microsoft.com

 

[jverkerk]

Misschien zo niet de bedoeling maar het zou kunnen.

 

[Angela69]

Nou Johan, dit zou goed kunnen werken hoor! Bedankt, maar ik zie geen script, hoe werkt dit in mijn grote bestand zo meteen?

 

[jverkerk]

Hoi Angela, er is ook geen script maar gaat via een notitie en dan een afbeelding invoegen bij kleuren en lijnen.
Afbeelding

 

[Angela69]

Top, helemaal wat ik wilde, ontzettend bedankt voor je hulp!!

 

[AHulpje]

Je kunt dat ook automatiseren, zie voorbeeld.
Ook een hele reeks afbeeldingen zou je op soortgelijke wijze geautomatiseerd kunnen toevoegen.

 

[jverkerk]

Dat is wel handig @AHulpje, gaat een stuk sneller vooral als je er veel moet doen.

 

[AHulpje]

Als je er veel moet doen kan dat geautomatiseerd worden, hoef je nog maar één keer met de muis te klikken. Heb je bijvoorbeeld een lijst namen met bijbehorende foto's dan is dat eenvoudig te implementeren. Maar wat is veel?

 

[Angela69]

Wow, dit is helemaal het einde, werkt een stuk handiger als de er zo'n 200 mag invoeren. Super bedankt !!

 

[HSV]

Waarom tijdelijk opslaan op het werkblad als het rechtstreeks kan.

Sub InsertComment()
    Dim imagePath As String
    Dim rng As Range
    
     On Error Resume Next
    Set rng = Application.InputBox( _
      Title:="Plaats foto in commentaar", _
      Prompt:="Selecteer een cel", _
      Type:=8)
      On Error GoTo 0
    If rng Is Nothing Then Exit Sub

    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Selecteer een foto"
        .Filters.Add "Foto", "*.jpg; *.jpeg; *.png"
        .AllowMultiSelect = False
        
If .Show = -1 Then
 imagePath = .SelectedItems(1)
   With rng
       .ClearComments
         With .AddComment.Shape
            .Height = .Height * 3.5
            .Width = .Width + 30
            .Fill.UserPicture imagePath
         End With
      MsgBox "Foto staat in de cel als opmerking"
    End With
 Else
   MsgBox "Geen foto geselecteerd.", vbInformation
 End If
End With
End Sub

 

[AHulpje]

@HSV
Omdat ik graag de hoogte/breedte verhouding (aspectratio) van de foto wil behouden. Importeer maar eens een liggende en een staande foto, dan zie je het verschil. Jouw *3.5 en +30 gelden beslist niet voor alle foto's.

Bericht automatisch samengevoegd: Vandaag om 19:20

@Angela69
Ik bedoelde met één muisklik alle 200 foto's importeren als je een lijst met namen en bijbehorende foto's hebt. Dus bijvoorbeeld in kolom C de naam Angela en ergens in een map op je harde schijf de foto Angela.jpg etc.

 

[HSV]

De staande foto wordt niet staande getoond maar 90 graden gedraaid met dezelfde grootte.

Dit doet volgens mij hetzelfde maar rechtstreeks in de comment.

With .AddComment.Shape
            .Fill.UserPicture imagePath
            .ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
            .ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
            .Visible = msoFalse
         End With

 

[popipipo]

200 foto's importeren

Ik ben benieuwd of excel dit aan kan.

 

[AHulpje]

@HSV
Weet niet of Dick Schoof hiermee tevreden is:

Denk dat hij dit beter vindt: