• 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.

Comment met foto

Status
Niet open voor verdere reacties.

DonJonsson

Gebruiker
Lid geworden
12 nov 2020
Berichten
16
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?
 

Bijlagen

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

Code:
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
 
Dankje HSV. Het werkt goed!
Is het ook mogelijk de foto iets te comprimeren?
 
wat bedoel je hier precies mee? de foto goed passend in de comment, of minder filesize?
 
Hoi Alphamax,

Comprimeren als in de filesize verkleinen. Nu heb ik Excel bestanden die meer dan 20mb groot zijn
 
Begin met opslaan als xlsb. Dat gaat alsnog niet helpen als je extreem veel foto's in je bestand hebt zitten
 
Laatst bewerkt:
Code:
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.

Afbeeldingen comprimeren.jpg
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan