Вставка картинок и изображений в ячейки листа Excel

Добрый день!
Ваша
Sub ВставитьКартинку(
работает.
Вопрос: как удалить эту картинку?
Володя

Доброго дня!
Думаю есть решения для моей задачи. Прошу помочь найти нужные инструкции (ссылки) для решения ее.

Дано:
Есть таблица со списком учеников. Ученики каждый урок получают оценки (таблица Журнал оценок). Эти оценки используются для подсчета статистики посещаемости тех или иных мероприятий учениками. На главной странице при выборе нужной фамилии ученика появляется вся статистика по этому ученику.

Задача:
Сделать так, что бы при выборе фамилии появлялись по мимо статистических данных, еще и картинки в нужных ячейках, не меняя размера ячеек.

Решение:
Понимаю, что нужно сделать лист, где таблица со столбцами: "Список учеников", "Одежда", "Награды" итд. А вот как сделать так что бы при настройке этой таблицы потом в основном разделе при выборе фамилии появлялись все картинки связанные с этим учеником да еще в нужных ячейках, не изменяя размеры ячеек - не знаю. Подскажите плиз, где и что почитать и посмотреть. Спасибо заранее!

Здравствуйте! Помогите решить следующую проблему: имеется 10 рисунков (с1,с2,с3,...с10). Необходимо чтобы загружалась на лист одна случайная картинка.

Подскажите пожалуйста, что нужно прописать, чтобы путь к файлу брался из ячейки и чтобы вставить не одно изображение в определенную ячейку, а несколько картинок.
Т.е. есть в ячейках AD2:AD2500 прописан пусть к файлу, нужно вставить эти картинки в ячейки C2:C2500.

Все хорошо, но файлы формата *.png не грузятся.

Здравствуйте,
спасибо большое за то что пытаетесь автоматизировать ручные процессы

интересует как сохранить картинки с файла в заданную папку, сохранив при этом высокое качество?
пока сохраняет изображения в форматированном для еxcel разрешении, т.е. маленькими и сжатыми

Теперь понятно, почему в стандартном хэлпе об этих объектах нет ни слова. Спасибо за разъяснение.

Здравствуйте, Игорь. В ваших макросах используется объявление Dim ph As Picture. Подскажите, пожалуйста, где можно найти описание свойств и методов для таких объектов.

Добрый день, Игорь! Ваша надстройка платная. А покупать мне ее точно не будут...к сожалению

Добрый день! Спасибо Игорь за ваш сайт!

Подскажите пожалуйста как применить этот макрос для задачи:
есть строки в эксель

|___A__|______________________________B____________________________________|___C___|
|255555|http://chart.apis.google.com/chart?cht=qr&chs=50x50&chl=255555%0D%0A&chld=H|0|_______|
|256666|http://chart.apis.google.com/chart?cht=qr&chs=50x50&chl=256666%0D%0A&chld=H|0|_______|
|257777|http://chart.apis.google.com/chart?cht=qr&chs=50x50&chl=257777%0D%0A&chld=H|0|_______|

как применить макрос что бы изображение по ссылке из столбца В вставлялось в соответствующую ячейку С.

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

Set Pic = Sheets("Price ").Shapes.AddPicture(FileName, LinkToFile, SaveWithDocument , Left, Top, Width, Height)

FileName — строка, задающая имя файла, на основе которого создается рисунок
LinkToFile — допустимые значения: True (рисунок связан с файлом, на основе которого создан) и False (в противном случае)
SaveWithDocument — допустимые значения: True(сохраняется рисунок с рабочей книгой) и False (в рабочей книге сохраняется связь с рисунком, а не сам рисунок)
Left, Top — координаты левого верхнего угла объекта
Width, Height — ширина и высота объекта

Здравствуйте! Все работает и вставляет... НО!!! После изменения пути расположения картинок, и открытии вновь файла, на месте картинки пишется следующий текст: " Не удается отобразить связанный рисунок. Возможно, этот файл был перемещен, переименован или удален. Убедитесь, что ссылка указывает на правильный файл и верное размещение."
Пользуюсь Excel 2016. Почему он вставляет картинки как ссылки, и как это можно исправить?
Заранее спасибо!

ну вставка происходит не в ячейку а поверх ее

как с помощью макроса выбора изображения, вставить картинки, спасибо
Sub InsertPicture()
Dim FD As FileDialog
Dim iFileName As String
Set FD = Application.FileDialog(msoFileDialogFilePicker)
With FD
.Filters.Clear
.Filters.Add "Âñå ðèñóíêè", "*.*"
.Filters.Add "JPG", "*.jpg"
.Filters.Add "Ðèñóíêè", "*.bmp"
.Filters.Add "PNG", "*.png"
.Filters.Add "tif", "*.tif"
.FilterIndex = 2
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path
.Title = "Äîáàâëåíèå ðèñóíêà"
.ButtonName = "Âñòàâèòü"
If .Show = False Then
'MsgBox "Âû íå óêàçàëè íóæíûé ôàéë!", 48, "Îøèáêà"
Exit Sub
Else
iFileName = Right(.SelectedItems(1), Len(.SelectedItems(1)) - InStrRev(.SelectedItems(1), "\"))
If Right(UCase(iFileName), 4) = ".XLS" Then iFileName = Left(iFileName, Len(iFileName) - 4)
End If
End With
Set FD = Nothing
ActiveSheet.Pictures.Insert(iFileName).Select - ВОТ тут я завершились мои познания в VBA ?????
End Sub

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

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

Отличная надстройка! Спасибо!!

Подскажите, как прописать путь к ячейке в которой находится картинка для Image1 ? заранее, спасибо!

Спасибо Вам огромное!

Здравствуйте.
Пытаюсь решить такую задачу: при изменении значений ячеек изменять видимость картинок.
когда вручную указываю значение - макрос включает и выключает картинки, а когда изменение значения ячейки вызвано результатом вычислений формул - макрос не работает. Пробовал указывать в макросе тип число, тип текст у переменной, которая принимает значение моей ячейки, саму ячейку умножал на 1 для получения типа число - бесполезно. Код следующий:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dVal As Integer
If Not Intersect(Target, ActiveSheet.Range("BD49")) Is Nothing Then
dVal = ActiveSheet.Range("BD49").Value

If dVal = 0 Then
With ActiveSheet
.Shapes.Item(1).Visible = True
.Shapes.Item(2).Visible = True
.Shapes.Item(3).Visible = True
.Shapes.Item(4).Visible = True
.Shapes.Item(5).Visible = True
.Shapes.Item(6).Visible = True
.Shapes.Item(7).Visible = True
End With

ElseIf dVal = 1 Then
With ActiveSheet
.Shapes.Item(1).Visible = True
.Shapes.Item(2).Visible = True
.Shapes.Item(3).Visible = True
.Shapes.Item(4).Visible = True
.Shapes.Item(5).Visible = False
.Shapes.Item(6).Visible = False
.Shapes.Item(7).Visible = False
End With

ElseIf dVal = 2 Then
With ActiveSheet
.Shapes.Item(1).Visible = True
.Shapes.Item(2).Visible = True
.Shapes.Item(3).Visible = False
.Shapes.Item(4).Visible = False
.Shapes.Item(5).Visible = True
.Shapes.Item(6).Visible = True
.Shapes.Item(7).Visible = False
End With

ElseIf dVal = 3 Then
With ActiveSheet
.Shapes.Item(1).Visible = True
.Shapes.Item(2).Visible = True
.Shapes.Item(3).Visible = True
.Shapes.Item(4).Visible = True
.Shapes.Item(5).Visible = False
.Shapes.Item(6).Visible = False
.Shapes.Item(7).Visible = True
End With

ElseIf dVal = 4 Then
With ActiveSheet
.Shapes.Item(1).Visible = True
.Shapes.Item(2).Visible = True
.Shapes.Item(3).Visible = False
.Shapes.Item(4).Visible = False
.Shapes.Item(5).Visible = True
.Shapes.Item(6).Visible = True
.Shapes.Item(7).Visible = True
End With

End If
End If
End Sub

Буду очень благодарен за помощь, рязъяснения в моих возможных заблуждениях.

Спасибо большое, попробовала, все работает. Сори что загрузила глупым вопросом)

Игорь, здравствуйте! Не знаю сможете мне подсказать или нет, но была бы крайне признательна... У меня такая проблема. Из 1с выгружаю в эксел прайс (уже с картинками), причем программа настроена так, что окошко для картинки я могу задать любое и именно под размер этого окошка оно будет уменьшаться. НО по сути хотя оно и выводится в прайс небольшим окошком - вставляется не уменьшенными пикселями, а полноценно - просто маленького вида, т.е. при растягивании фото в эксел в ручную - я вижу полноценную большую качественную фотографию. Таким образом файл этот весит неимоверно много отправлять такой клиентам не реально, а как сжать его я не могу найти решения (перевод в сжатый пдф очень портит вид картинки, что даже особо и не поймешь что там изображено). Откровенно говоря ничего не понимаю в макросах... Но если есть какой-то вариант решения ыопроса - буду разбираться.

Вопрос. При отправки таблицы с фотографиями через почту майл фотографии переворачиваются в таблице. Что делать?

Огромное спасибо.

Здравствуйте. У меня проблема с поиском картинок в папке. Имеется артикул вида "123/123", а название фото "123123". Возможно при поиске удаление символа "/" с помощью формулы для обработки имени файла в вкладке дополнительно? Если да до подскажите формулу. Заранее спасибо.

Можете ли помочь? У меня такая проблема... Я выгружаю из 1С таблицу как HTML.
После чего вызываю Aplication.Excel, открываю им этот файл (Open), и делаю SaveAs как XLS.
Все бы отлично, но картинка в таблице сохраняется как ссылка на неё (сама картинка не сохраняется в файл).
И при передаче XLS-файла в нем картинки нет, только надпись, что картинка была перемещена или удалена...

Можно ли изменить картинку в экселе таким образом, чтобы она при сохранении сохранилась в само тело XLS?
Если такая возможность есть, объясните, как это вообще делать (я надеюсь сам перекладу на 1С алгоритм, мне главное понять суть).
Заранее спасибо...

П.С. нужно для экспорта из старой 1С платформы (которую не разрешают обновлять) в которой была проблема экспорта в эксель (выгружался с ошибками).

Большое спасибо за макрос!
Всё отлично работает!

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

    If AdjustPicture Then    ' ПОДГОНЯЕМ РАЗМЕРЫ ИЗОБРАЖЕНИЯ под ячейку (оптимальный вариант)
    
        ' если K_picture меньше 1, поворачиваем на 90 CCW
        If K_picture < 1 Then ph.ShapeRange.Rotation = -90

Картинка вставляется, вращается, но вставляется с сильным смещением вниз и влево.
Не могу понять, что я делаю не так.

Здравствуйте, есть ли макрос для вставки значений из Excel в файлы PDF, JPG (или другие картинки)?

Спасибо.

Спасибо. То, что Эксель вставит картинку ссылкой - не страшно. Даже хорошо. Изменив картинку изменю ее и в файле.
Подскажите, пожалуйста, как сдвинуть картинку чуть влево и чуть вверх.
До этого использовал:
Selection.ShapeRange.IncrementTop -4.5
Selection.ShapeRange.IncrementLeft -24.75
Но с новым кодом не работает.

Друзья. Я вставляю картинку картинкой, а не ссылкой. Макрос просто записал.

Вот в чем вопрос: как сделать макрос для обрезки картинки? У картинки по бокам белые поля, их надо убрать.
Пробовал включить запись макроса и обрезать картинку. Все отлично, но при исполнении записанного макроса картинка не обрезается.

Код такой:
Sub Макрос3()
Range("C5").Select
ActiveSheet.Pictures.Insert( _
Excel.Application.ActiveWorkbook.Path & "\Превью А.jpg" _
).Select
Selection.ShapeRange.IncrementTop -4.5
Selection.ShapeRange.IncrementLeft -24.75
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.IncrementLeft 22.6299212598
Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 300
Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 164
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 0
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = 0

Range("O5").Select
ActiveSheet.Pictures.Insert( _
Excel.Application.ActiveWorkbook.Path & "\Превью Б.jpg" _
).Select
Selection.ShapeRange.IncrementTop -4.5
Selection.ShapeRange.IncrementLeft -24.75
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.IncrementTop 4.5354330709
Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 300
Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 164
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 0
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = 0
End Sub

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

Спасибо

Скажите пожалуйста, как можно вставлять изображение из из этого же файла excel (например, с другого листа)? Задача - нужно что бы просто менялся логотип на бланке при выборе значения из списка. И что бы этот файл был автономный (не привязан к диску/папке на определенном компьютере)