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

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

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

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

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

39 КБ

28010 просмотров

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

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

Игорь (администратор сайта), 9 Июл 2017 - 20:50.#1

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

Елена, 9 Июл 2017 - 17:27.#2

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

Игорь (администратор сайта), 9 Июл 2017 - 16:09.#3

Здравствуйте, Елена. Да, могу помочь. Минимальная стоимость заказа у меня - 1000 руб

Елена, 9 Июл 2017 - 02:51.#4

Добрый вечер! А можете ли Вы мне вставить такой макрос в мой файл. И показать как это делать? И сколько это будет стоить?)). Спасибо! Очень жду ответа.

Гость, 9 Ноя 2015 - 12:47.#5

Цена вопроса?

Игорь (администратор сайта), 9 Ноя 2015 - 01:34.#6

Под заказ сможем сделать (если готовы оплатить)

Гость, 9 Ноя 2015 - 00:39.#7

Уважаемый автор, а нельзя ли сделать две и более строк с выпадающим меню, но разными размерами, т.е. чтобы не одна строка "вставить изображение", а две? Например, в одной строке "вставить изображение 240х320", а под ним другой размер "вставить изображение 1024х768"

Гость, 25 Янв 2014 - 22:37.#8

1 см = 28,3 пункта (приблизительно при разрешении рисунка 72-1200 точек/дюйм)

Гость, 25 Янв 2014 - 22:30.#9

В данном случае цифры 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 пункта.

Гость, 8 Ноя 2013 - 01:38.#10

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

Гость, 24 Май 2013 - 02:39.#11

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

Гость, 13 Мар 2013 - 11:37.#12

Спасибо!

Игорь (администратор сайта), 12 Мар 2013 - 18:09.#13

После строки

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

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

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

Гость, 12 Мар 2013 - 17:58.#14

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

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

Комментарии

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

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

НАДСТРОЙКИ ДЛЯ EXCEL