Albert (opmerking invoegen)

[Albert1984]

Geacht forum,
Het is mij niet mogelijk om in Excel 2007 een cel (opmerking invoegen) om een kaartje (map) of foto te plaatsen.
weet u een oplossing?

 

[edmoor]

Mocht je daar een VBA oplossing voor zoeken dan kan dat met de volgende code die eenvoudig naar wens is aan te passsen:

Sub InvoegenPlaatjeInOpmerking()
    Dim Foto As String
    ChDir "C:"
    ChDir "\Plaatjes"
    Foto = Application.GetOpenFilename(FileFilter:="Foto's (*.jpg), *.jpg", Title:="Kies een foto")
    If Foto <> "" Then
        ActiveCell.Select
        Selection.ClearComments
        With ActiveCell.AddComment
            .Text "Opmerking tekst"
            With .Shape
                .Fill.UserPicture Foto
            End With
        End With
    End If
End Sub