Andrés tiene una foto en el Portapapeles. Le gustaría, para la celda seleccionada, colocar la imagen en un comentario. Si la celda no tiene comentarios, entonces será necesario crear uno. Si ya hay un comentario, será necesario agregarle la imagen. Andrés sabe que esto requeriría una macro, pero no está seguro de cómo trabajar con comentarios en una macro para hacer lo que necesita.

Microsoft, en la última versión de Office 365, ahora se refiere a comments como notes. Sin embargo, para los propósitos de este consejo, continuaré refiriéndome a ellos por el nombre tradicional de comentarios.

Lo que Andrés quiere hacer no es tan fácil como uno podría desear. El primer problema es que parece que no hay forma en VBA de usar el Portapapeles como fuente de una imagen destinada a un comentario. Es posible evitar esto cambiando la fuente para que sea una imagen en un archivo; en otras palabras, hacer que la macro permita al usuario seleccionar un archivo de imagen que luego se coloca en el comentario.

Sub AddCommentPicture()

Dim PicChoice As Variant

If ActiveCell.Comment Is Nothing Then         ActiveCell.AddComment     End If     PicChoice = Application.GetOpenFilename("JPEGs .jpg,.jpg")



If PicChoice = False Then         MsgBox "No file was selected."

Else         ActiveCell.Comment.Shape.Fill.UserPicture PicChoice         ActiveCell.Comment.Shape.LockAspectRatio = True     End If End Sub

La macro prueba la celda activa para ver si tiene un comentario. Si no, agregará uno. Luego muestra un cuadro de diálogo Abrir que muestra solo archivos JPG. (Puede cambiar el parámetro de la función GetOpenFilename para indicar qué tipos de archivos deben mostrarse). El archivo que elija se asigna al comentario.

Tenga en cuenta que el código no hace nada para cambiar el tamaño de la imagen. Si lo desea, puede agregar el código necesario para cambiar el tamaño. Querrá agregar ese código directamente después de la línea que bloquea la relación de aspecto de la imagen, cerca del final de la macro.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (5489) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365.