Con esta sencilla Macro se pueden ocultar imágenes de Excel dentro del archivo. Solo usas el botón de asignar Imagen y la imagen es colocada dentro de un comentario y solo puede ser vista ingresando a la celda del comentario.
ESTA ES LA MACRO
Sub insertarImagenComentario()
On Error Resume Next
Dim PicturePath As String
Dim CommentBox As Comment
PicturePath = Application.InputBox(«Ingrese la ruta y Foto», «Foto»)
Application.ActiveCell.ClearComments
Set CommentBox = Application.ActiveCell.AddComment
CommentBox.Text Text:=»»
CommentBox.Shape.Fill.UserPicture (PicturePath)
CommentBox.Shape.ScaleHeight 2.4, msoFalse, msoScaleFormTopLeft
CommentBox.Shape.ScaleWidth 3.2, msoFalse, msoScaleFromTopLeft
CommentBox.Visible = False
End Sub