Plantilla que usa Imágenes Ocultas en Excel

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

 

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *