Ответ на пост «Excel. Картинка во всплывающей подсказке»

Можно конечно и так. Но представьте, что у вас картинок несколько сотен и их нужно периодически обновлять/добавлять/удалять. Можно конечно делать это ручками, как описано у автора, но гораздо проще делать это через макрос:

Sub InsertPicturesInComments()
On Error Resume Next

Dim rngPics As Range, rngOut As Range
Dim i As Long, p As String, w As Long, h As Long

Set rngPics = Range("B1:B100") 'диапазон путей к картинкам
Set rngOut = Range("A1:A100") 'диапазон вывода примечаний

rngOut.ClearComments 'удаляем старые примечания

'проходим в цикле по ячейкам
For i = 1 To rngPics.Cells.Count

p = rngPics.Cells(i, 1).Value 'считываем путь к файлу картинки
w = LoadPicture(p).Width 'и ее размеры
h = LoadPicture(p).Height

With rngOut.Cells(i, 1)
.AddComment.Text Text:="" 'создаем примечание без текста
.Comment.Visible = True
.Comment.Shape.Select True
End With
With rngOut.Cells(i, 1).Comment.Shape 'заливаем картинкой
.Fill.UserPicture p
.ScaleWidth 3, msoFalse, msoScaleFromTopLeft
.ScaleHeight h / w * 5.4, msoFalse, msoScaleFromTopLeft 'корректируем размеры
End With
Next i
End Sub

Показать полностью

Excel. Картинка во всплывающей подсказке

Несколько раз напоролся на ситуацию, когда хорошая и удобная вещь протирается, рвется или иными способами приходит в негодность, а вспомнить, где я её покупал и за сколько, уже не получается, начал вести список вещей: какая вещь, где и когда куплена, по какой причине и когда пришла в негодность.

Но по описанию я сам не понимаю, какие именно штаны имел в виду, поэтому начал в эту таблицу добавлять и картинки. Но картинки распирают таблицу, получается неудобно и некрасиво.

Поэтому, когда узнал, что в Excel можно вставлять картинки во всплывающие примечания - очень обрадовался.

Excel. Картинка во всплывающей подсказке Инструкция, Microsoft Excel, Картинки, Примечание, Длиннопост

Поделюсь и тут этим способом, вдруг кому пригодится

  1. Создаём примечание Shift + F2

  2. Наводим курсор на границу примечания и нажимаем ПКМ

3. Переходим в «Формат примечания», переходим во вкладку «Цвета и линии - Цвет - Способы заливки»

Excel. Картинка во всплывающей подсказке Инструкция, Microsoft Excel, Картинки, Примечание, Длиннопост

4. В окне «Способы заливки» - во вкладку «Рисунок» и там, ткнув на кнопку «Рисунок», выбираем нужную картинку

Excel. Картинка во всплывающей подсказке Инструкция, Microsoft Excel, Картинки, Примечание, Длиннопост
Показать полностью 3
Отличная работа, все прочитано!