Comment met foto

[DonJonsson]

Goedenavond,

Bijgevoegd heb ik testsheet waarbij ik images toevoeg in een loop in kolom B (vanaf B10). Aan de hand van de url die in de B kolom vernoemd staat. Nu wil ik eigenlijk ook dat wanneer ik met de muis over de cel ga dat er een grotere foto naar voren komt. (mouse hover).

Ik krijg het per cel wel voor elkaar, maar het lukt me niet om hem in de loop te krijgen.

Is er iemand die me hierme kan en wil helpen?

 

[HSV]

De shape krijgt 3x de hoogte en breedte van de cel (cl).

Sub hsv()
Dim c As Range, cl As Range
Set c = Range("B10", Cells(Rows.Count, 2).End(xlUp))
 c.ClearComments
   For Each cl In c
        With cl.AddComment.Shape
            .Fill.UserPicture cl.Value
            .Height = [COLOR=#ff0000]cl[/COLOR].Height * 3
            .Width = [COLOR=#ff0000]cl[/COLOR].Width * 3
         End With
   Next cl
End Sub

 

[DonJonsson]

Dankje HSV. Het werkt goed!
Is het ook mogelijk de foto iets te comprimeren?

 

[alphamax]

comprimeren

wat bedoel je hier precies mee? de foto goed passend in de comment, of minder filesize?

 

[DonJonsson]

Hoi Alphamax,

Comprimeren als in de filesize verkleinen. Nu heb ik Excel bestanden die meer dan 20mb groot zijn

 

[JEC.]

Begin met opslaan als xlsb. Dat gaat alsnog niet helpen als je extreem veel foto's in je bestand hebt zitten

 

[alphamax]

Sub hsv()
    Dim c As Range, cl As Range
    Set c = Range("B10", Cells(Rows.Count, 2).End(xlUp))
    c.ClearComments
    For Each cl In c
        With cl.AddComment.Shape
            .Fill.UserPicture cl.Value
            .Height = cl.Height * 3
            .Width = cl.Width * 3
            [COLOR="#FF0000"]With Application.CommandBars.FindControl(ID:=6382)
                '%A = alle afbeeldingen in het document
                '%W = Web/Scherm
                '{Enter} = OK
                '{Enter} = "Het comprimeren van een afbeelding excel kan de kwaliteit... " Toepassen
                SendKeys "%A%W{Enter}{Enter}" 
                .Execute
            End With[/COLOR]
        End With
    Next cl
End Sub

Getest met excel2007nl.

Je moet wel eerst het bestand opslaan en sluiten, en daarna in de verkenner/explorer van map wisselen voordat je verschillen in de bestandsgrootte ziet.