Komprimer billed i kommentarfelt

Er der mulighed for at se en prøve på denne popup funktion?
@-adresse under min profil.

Her er makroen jeg bruger ...

Sub popup(t, thefile)
Set p = LoadPicture(thefile)
h = 200
w = 200 * p.Width / p.Height
With Range("a" + CStr(t))
  .AddComment
  .Comment.Shape.Height = h
  .Comment.Shape.Width = w
  .Comment.Shape.Fill.UserPicture thefile
  End With
End Sub

Hvor t blot er et række nummer
... og thefile er hele stien c:\\bla\gro.jpg

Ok - men var der mulighed for at se selve filen?

Denne gik da vist død ...

Ja - det kan vi vist godt sige :-)

Men excel ark her ... http://kigs.dk/kommentar.xls
Her dog uden makroen ...

Hej

Tilsyneladende en løsning:

Sub indsetBillede()
    popup 10, "C:\Users\peter\Desktop\Eksp_Passiflora\IMG_0497.jpg"
End Sub
Sub popup(t, thefile)
    Set p = LoadPicture(thefile)
    h = 200
    w = 200 * p.Width / p.Height
    With Range("a" + CStr(t))
        .AddComment
        .Comment.Shape.Height = h
        .Comment.Shape.Width = w
        .Comment.Shape.Fill.UserPicture thefile
       
       
        Application.ScreenUpdating = False
       
        Application.DisplayAlerts = False
        Application.SendKeys "%a~"
        Application.CommandBars.ExecuteMso "PicturesCompress"
        Application.SendKeys "{ENTER}"
    End With
End Sub

Tak ... det jo helt kanon ...
Sender du svar ....

Selv tak..