С помощью нижеуказанного макроса, в примечание активной ячейки можно добавить изображение.
При выделении данной ячейки - изображение будет отображаться в комментарии.
Данный код добавляет в контекстное меню ячейки новое действие "Вставить изображение"
Нижеуказанный макрос лучше всего поместить в "личную книгу макросов" (PERSONAL)
В модуль "ЭтаКнига" файла PERSONAL.xls вставляем:
Private Sub Workbook_Open() MyComBars End sub
Также создаем новый модуль (в книге PERSONAL), в который помещаем следующий код:
Sub MyComBars() Application.CommandBars("cell").Reset With Application.CommandBars("cell").Controls.Add(Type:=1, Before:=5) .OnAction = "AddImage" .Caption = "Вставить изображение" End With End Sub Sub AddImage() Dim ImaFile$ If Selection.Cells.Count > 1 Then Exit Sub With Application.FileDialog(msoFileDialogFilePicker) .Show If .SelectedItems.Count = 0 Then Exit Sub ImaFile = .SelectedItems(1) End With On Error GoTo nexterr ActiveCell.ClearComments ActiveCell.AddComment.Shape.Fill.UserPicture (ImaFile) Exit Sub nexterr: MsgBox "Можно выбирать только изображения!", vbCritical, "Ошибка" ActiveCell.ClearComments End Sub
Если вам нужно вставить изображения в примечания большого количества ячеек,
и вы хотите, чтобы Excel сам искал нужные картинки в заданной папке,
- воспользуйтесь надстройкой для вставки изображений на лист Excel
by LightZ
Комментарии
Елена, попробуйте нажать в меню сайта на кнопке КОНТАКТЫ, - возможно, там есть интересующая вас информация )
Отлично. Как нам с Вами связаться? Не хочется в форуме свои контакты оставлять)
Здравствуйте, Елена. Да, могу помочь. Минимальная стоимость заказа у меня - 1000 руб
Добрый вечер! А можете ли Вы мне вставить такой макрос в мой файл. И показать как это делать? И сколько это будет стоить?)). Спасибо! Очень жду ответа.
Цена вопроса?
Под заказ сможем сделать (если готовы оплатить)
Уважаемый автор, а нельзя ли сделать две и более строк с выпадающим меню, но разными размерами, т.е. чтобы не одна строка "вставить изображение", а две? Например, в одной строке "вставить изображение 240х320", а под ним другой размер "вставить изображение 1024х768"
1 см = 28,3 пункта (приблизительно при разрешении рисунка 72-1200 точек/дюйм)
В данном случае цифры 200 и 100 - это пункты, а не пиксели. Переход от пикселей к пунктам: разрешение рисунка 72 точки/дюйм - 1 пиксель = 1 пункт, разрешение рисунка 96 точек/дюйм - 1 пиксель = 0,75 пункта, разрешение рисунка 100 точек/дюйм - 1 пиксель = 0,72 пункта, разрешение рисунка 150 точек/дюйм - 1 пиксель = 0,48 пункта, разрешение рисунка 200 точек/дюйм - 1 пиксель = 0,36 пункта, разрешение рисунка 300 точек/дюйм - 1 пиксель = 0,24 пункта, разрешение рисунка 600 точек/дюйм - 1 пиксель = 0,12 пункта, разрешение рисунка 1200 точек/дюйм - 1 пиксель = 0,06 пункта.
Большое спасибо! Очень помогли!
Как насчёт комментария по размеру изображения. Можно ли это реализовать?
Спасибо!
После строки
добавьте следующее:
Отлично работает!
Как задать размер окна примечания?
Отправить комментарий