Добавление изображения в примечание

С помощью нижеуказанного макроса, в примечание активной ячейки можно добавить изображение.

При выделении данной ячейки - изображение будет отображаться в комментарии.

Данный код добавляет в контекстное меню ячейки новое действие "Вставить изображение"

Нижеуказанный макрос лучше всего поместить в "личную книгу макросов" (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
 

Вложения:
AddIm.xls39 КБ

Комментарии

Настройки просмотра комментариев

Выберите нужный метод показа комментариев и нажмите "Сохранить установки".

Елена, попробуйте нажать в меню сайта на кнопке КОНТАКТЫ, - возможно, там есть интересующая вас информация )

Отлично. Как нам с Вами связаться? Не хочется в форуме свои контакты оставлять)

Здравствуйте, Елена. Да, могу помочь. Минимальная стоимость заказа у меня - 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 пункта.

Большое спасибо! Очень помогли!

Как насчёт комментария по размеру изображения. Можно ли это реализовать?

Спасибо!

После строки

ActiveCell.AddComment. Shape.Fill.UserPicture (ImaFile)

добавьте следующее:

ActiveCell.Comment.Shape.Width = 200
ActiveCell.Comment.Shape.Height = 100

Отлично работает!
Как задать размер окна примечания?

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
CAPTCHA
Подтвердите, пожалуйста, что вы - человек:
  ___           _  _                           
|_ _| __ _ | || | _ __ __ __ _ _
| | / _` | | || |_ | '_ \ \ \ / / | | | |
| | | (_| | |__ _| | | | | \ V / | |_| |
|___| \__,_| |_| |_| |_| \_/ \__,_|
Введите код, изображенный в стиле ASCII-арт.

Не получается применить макрос? Не удаётся изменить код под свои нужды?

Оформите заказ у нас на сайте, не забыв прикрепить примеры файлов, и описать, что и как должно работать.