У Андреса есть изображение в буфере обмена. Он хотел бы, чтобы в выбранной ячейке изображение было помещено в комментарий. Если в ячейке нет комментария, его необходимо создать. Если комментарий уже есть, то к нему нужно добавить картинку. Андрес знает, что для этого потребуется макрос, но он не знает, как работать с комментариями в макросе, чтобы делать то, что ему нужно.

В последней версии Office 365 Microsoft теперь называет comments как notes. Однако в целях этого совета я буду продолжать называть их традиционным именем comments.

То, что хочет сделать Андрес, далеко не так просто, как хотелось бы. Первая проблема заключается в том, что, похоже, в VBA нет возможности использовать буфер обмена в качестве источника изображения, предназначенного для комментария. Это можно обойти, изменив источник на изображение в файле — другими словами, чтобы макрос позволял пользователю выбирать файл изображения, который затем помещается в комментарий.

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

Макрос проверяет активную ячейку, чтобы увидеть, есть ли в ней комментарий. Если нет, он добавит один. Затем отображается диалоговое окно «Открыть», в котором отображаются только файлы JPG. (Вы можете изменить параметр функции GetOpenFilename, чтобы указать, какие типы файлов должны отображаться.) Выбранный файл затем назначается комментарию.

Обратите внимание, что код ничего не делает для изменения размера изображения. При желании вы можете добавить код, необходимый для изменения размера. Вы захотите добавить этот код сразу после строки, которая фиксирует соотношение сторон изображения, ближе к концу макроса.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (5489) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365.