Jeg sidder og fumler med at oprette en makro, men det får jeg ikke til at virke. Jeg bruger Excel 2013.

Når man bruger "Indsæt kommentar" og her indsætter en kommentar, kan man bagefter se kommentaren ved at føre musen hen over cellen, hvori kommentaren er indsat.

På samme måde vil jeg gerne kunne indsætte et billede i stedet for en kommentar (hvor billedet vises, når man fører musen hen over cellen), og jeg har fundet ud af, at det kan gøres således:

1. Højreklik på en celle, og vælg "Indsæt kommentar"

2. Højreklik på kommentarboksens ramme (curseren skal blive til et kors)

3. Vælg "Formatér kommentar"

4. Vælg fanebladet "Farver og streger"

5. Vælg boksen "Farve"

6. Vælg "Effekter"

7. Vælg fanebladet billedet

8. Vælg "Vælg billede"

Jeg kunne tænke mig en makro, der udfører ovenstående, men den skal stoppe ved et forudbestemt bibliotek, hvor billederne ligger, således at man vælger det billede, man vil have.

Det går fint med at starte på at optage makroen, men når man stopper efter at have åbnet det pågældende bibliotek, kan man ikke afslutte optagelsen.

Jeg ville blive meget glad, nogen kan forklare mig, hvordan jeg får dette til at virke 

du browse dig frem til aktuel billede som indsættes i kommentaren.

 

Sub IndsætBillede()
Dim x As FileDialog
Set x = Application.FileDialog(msoFileDialogOpen)
x.Show
sti = x.SelectedItems(1)
Selection.AddComment
Selection.Comment.Visible = True
Selection.Comment.Shape.Select True
Selection.ShapeRange.Fill.UserPicture sti
Set x = Nothing
End Sub

1000 tak for dit svar - som virker! 

Der er bare én ting: Jeg vil gerne at billedet som default er skjult, så det først ses, når man fører musen hen over cellen.

Jeg har prøvet at ændre denne linie:

Selection.Comment.Visible = True

til

Selection.Comment.Visible = False

- men det virker ikke.

Jeg anvender Excel 2013.

Igen - tak! 

 

Sub IndsætBillede()
On Error GoTo ud
Dim x As FileDialog
Set x = Application.FileDialog(msoFileDialogOpen)
x.Show
sti = x.SelectedItems(1)
Selection.AddComment
Selection.Comment.Visible = True
Selection.Comment.Shape.Select True
Selection.ShapeRange.Fill.UserPicture sti
ActiveCell.Comment.Visible = False
ud:
Set x = Nothing
End Sub

 

Så virker det, som jeg havde tænkt mig 
Jeg fandt selv ud af at tilføje to linjer for at angive en default højde/bredde på kommentarboksen (så billederne får en passende størrelse).

Tusind mange tak for hjælpen