"slumpmellem" til at skifte mellem forskellige billeder

Ikke uden VBA desværre
Indsæt følgende kode i arkets kodemodul (højreklik på arkfane,vis programkode)

Private Sub Worksheet_Calculate()
Range("B2").Comment.Shape.Select True
Selection.ShapeRange.Fill.UserPicture "C:\Users\pm\Pictures\pic" & Range("B2") & ".jpg"
End Sub

Forudsætninger :
Stien skal tilrettes aktuel forhold
Du har en synlig kommentar i celle B2
Dine billednavne er pic1.jpg, pic2.jpg, pic3.jpg, pic4.jpg
Billednavne og type kan være anderledes skal blot rettes i koden
men de skal være ens bortset fra tallet

og du i celle B2 har formlen slumpmellem(1;4)

Jeg får følgende besked, når jeg indsætter ovenstående.
Jeg har rettet i stien i forhold til placering af mine billeder.
I celle B2 har jeg indsat formlen slumpmellem(1;4).

Rum-time error "91":

Object variable or Wtih block variable not set

???
Findes der en "VBA for dummies"?? - eller er der noget, du kan anbefale en nybegynder?
Hilsen Mvest.

Har du indsat en synlig kommentar i celle B2 ?

Tryk F9 for genberegn så skiftes der mellem billederne

Det er rigtig smart. - og det virker!

Det var den synlige kommentar, jeg havde overset.

Hvordan kan du anbefale, at jeg laver sikkerhedsinstillinger bedst muligt? - jeg skal jo tillade makro.

Du kan i samme forbindelse sende et svar.

Tak igen for hjælpen.

Hilsen Mvest.

Kom lige til at se, at jeg får et problem, når jeg vil udskrive.

Kan det laves sådan, at jeg kan lave en udskrift, hvor billederne også kommer med?

Vælg lav eller mellem i sikkerhedsindst.

Vælg Sideopsætning i menuen Filer
På fanen Ark kan du vælge udskrift af kommentarer