Не отображается рисунок в эксель
Требуется макросом поместить изображение (картинку) на лист Excel?
Используйте функцию ВставитьКартинку , которая позволит вам вставить картинку в выбранную ячейку (или диапазон ячеек).
При вызове функции можно задать дополнительные дополнительные параметры, указав, следует ли подгонять картинку (или ячейку) по высоте и ширине.
Если вам требуется вставлять много изображений на лист Excel, - то вам поможет надстройка, позволяющая производить поиск изображений в заданной папке, и производить вставку картинок в ячейки или примечания
Кроме того, надстройка для вставки изображений в Excel умеет загружать картинки из интернета (по ссылкам в таблице Excel)
В этом примере демонстрируются возможные варианты применения функции вставки картинок:
А вот и сама функция (скопируйте этот код в стандартный модуль, чтобы иметь возможность вставки картинок одной строкой кода из любого макроса):
Комментарии
Доброго дня!
Думаю есть решения для моей задачи. Прошу помочь найти нужные инструкции (ссылки) для решения ее.
Дано:
Есть таблица со списком учеников. Ученики каждый урок получают оценки (таблица Журнал оценок). Эти оценки используются для подсчета статистики посещаемости тех или иных мероприятий учениками. На главной странице при выборе нужной фамилии ученика появляется вся статистика по этому ученику.
Задача:
Сделать так, что бы при выборе фамилии появлялись по мимо статистических данных, еще и картинки в нужных ячейках, не меняя размера ячеек.
Решение:
Понимаю, что нужно сделать лист, где таблица со столбцами: "Список учеников", "Одежда", "Награды" итд. А вот как сделать так что бы при настройке этой таблицы потом в основном разделе при выборе фамилии появлялись все картинки связанные с этим учеником да еще в нужных ячейках, не изменяя размеры ячеек - не знаю. Подскажите плиз, где и что почитать и посмотреть. Спасибо заранее!
Тут нужно написать формулу, возвращающую случайное число от 1 до 10, и по этому числу получить путь к картинке.
А что дальше делать, использовать мою программу или же написать отдельный макрос из нескольких строк для вставки 1 картинки, - это уже не ваш выбор.
Здравствуйте! Помогите решить следующую проблему: имеется 10 рисунков (с1,с2,с3. с10). Необходимо чтобы загружалась на лист одна случайная картинка.
Подскажите пожалуйста, что нужно прописать, чтобы путь к файлу брался из ячейки и чтобы вставить не одно изображение в определенную ячейку, а несколько картинок.
Т.е. есть в ячейках AD2:AD2500 прописан пусть к файлу, нужно вставить эти картинки в ячейки C2:C2500.
Все хорошо, но файлы формата *.jpg не грузятся.
Здравствуйте,
спасибо большое за то что пытаетесь автоматизировать ручные процессы
интересует как сохранить картинки с файла в заданную папку, сохранив при этом высокое качество?
пока сохраняет изображения в форматированном для еxcel разрешении, т.е. маленькими и сжатыми
Теперь понятно, почему в стандартном хэлпе об этих объектах нет ни слова. Спасибо за разъяснение.
Класс Picture остался в наследство от старых версий Excel, теперь он скрыт в объектной модели.
Не советую им пользоваться для вставки картинок, т.к. в новых версиях вставленные таким способом картинки не будут сохраняться внутри файла Excel
Где искать описание? Ну в гугле, наверное, но у меня навскидку не получилось какое-то внятное описание
Здравствуйте, Игорь. В ваших макросах используется объявление Dim ph As Picture. Подскажите, пожалуйста, где можно найти описание свойств и методов для таких объектов.
Добрый день, Игорь! Ваша надстройка платная. А покупать мне ее точно не будут. к сожалению
Если надстройку использовать не сможете, то и макрос смысла нет писать - он тоже не заработает (потому что моя надстройка - это обычный файл Excel с макросами)
Хотя, я не видел еще ни одного компа с Excel под Windows, где нельзя было бы использовать мою настройку
Добрый день! Спасибо Игорь за ваш сайт!
Подскажите пожалуйста как применить этот макрос для задачи:
есть строки в эксель
как применить макрос что бы изображение по ссылке из столбца В вставлялось в соответствующую ячейку С.
Я понимаю что ваша надстройка может это без проблем, но использовать ее на рабочем компьютере я не смогу.
Set Pic = Sheets("Price ").Shapes.AddPicture(FileName, LinkToFile, SaveWithDocument , Left, Top, Width, Height)
FileName — строка, задающая имя файла, на основе которого создается рисунок
LinkToFile — допустимые значения: True (рисунок связан с файлом, на основе которого создан) и False (в противном случае)
SaveWithDocument — допустимые значения: True(сохраняется рисунок с рабочей книгой) и False (в рабочей книге сохраняется связь с рисунком, а не сам рисунок)
Left, Top — координаты левого верхнего угла объекта
Width, Height — ширина и высота объекта
Сергей, если почитаете комменты к статье, — найдете ответ на этот вопрос.
ну вставка происходит не в ячейку а поверх ее
как с помощью макроса выбора изображения, вставить картинки, спасибо
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", "*.jpg"
.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 ? заранее, спасибо!
Спасибо Вам огромное!
Здравствуйте, Александр.
Событие Worksheet_Change реагирует только на ручное изменение ячеек (ну и на изменение макросом)
А чтобы на пересчёт реагировало, - тут надо использовать событие пересчета листа, - Worksheet_Calculate
Ну и код у вас ужасно длинный, - можно сделать проще:
Здравствуйте.
Пытаюсь решить такую задачу: при изменении значений ячеек изменять видимость картинок.
когда вручную указываю значение - макрос включает и выключает картинки, а когда изменение значения ячейки вызвано результатом вычислений формул - макрос не работает. Пробовал указывать в макросе тип число, тип текст у переменной, которая принимает значение моей ячейки, саму ячейку умножал на 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
Буду очень благодарен за помощь, рязъяснения в моих возможных заблуждениях.
Спасибо большое, попробовала, все работает. Сори что загрузила глупым вопросом)
Анастасия, в Excel есть кнопка «сжать рисунки» (при выделении одной или нескольких картинок на ленте появляется вкладка «Работа с рисунками», где присутствует эта кнопка)
Выделите все рисунки, нажмите кнопку, сохраните потом файл, - и всё.
Сделать это макросом, - не получится (только вручную)
Игорь, здравствуйте! Не знаю сможете мне подсказать или нет, но была бы крайне признательна. У меня такая проблема. Из 1с выгружаю в эксел прайс (уже с картинками), причем программа настроена так, что окошко для картинки я могу задать любое и именно под размер этого окошка оно будет уменьшаться. НО по сути хотя оно и выводится в прайс небольшим окошком - вставляется не уменьшенными пикселями, а полноценно - просто маленького вида, т.е. при растягивании фото в эксел в ручную - я вижу полноценную большую качественную фотографию. Таким образом файл этот весит неимоверно много отправлять такой клиентам не реально, а как сжать его я не могу найти решения (перевод в сжатый пдф очень портит вид картинки, что даже особо и не поймешь что там изображено). Откровенно говоря ничего не понимаю в макросах. Но если есть какой-то вариант решения ыопроса - буду разбираться.
Вопрос. При отправки таблицы с фотографиями через почту майл фотографии переворачиваются в таблице. Что делать?
Примечание: Мы стараемся как можно оперативнее обеспечивать вас актуальными справочными материалами на вашем языке. Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Просим вас уделить пару секунд и сообщить, помогла ли она вам, с помощью кнопок внизу страницы. Для удобства также приводим ссылку на оригинал (на английском языке) .
Просмотр и упорядочение рисунков
Некоторые файлы не отображаются в области предварительного просмотра.
По умолчанию в Microsoft Office Picture Manager отображаются только файлы рисунков. Эту настройку можно изменить так, чтобы в Picture Manager отображались файлы всех типов.
В меню Вид выберите команду Показывать только рисунки, чтобы снять метку у команды.
Параметр для работы с красный значок X отображается вместо рисунка.
Возможно, файл поврежден. Проверьте, можно ли открыть его в другой программе.
Кнопки панели инструментов и команды меню, не включена для изображения, которое необходимо работать с.
Возможно, следует выделить рисунок; возможно также, выбранный элемент имеет формат, который невозможно изменить в Microsoft Office Picture Manager.
Изменение рисунков
Я не нравится так, как изменить оказалось.
В меню Правка выберите соответствующую команду Отменить.
Не удается найти способ настройки выделит и теней в области задач яркость и контрастность.
Необходимо отобразить параметры в области задач.
Рядом с группой Дополнительные параметры нажмите кнопку Дополнительно.
После попытки обрезки мою фотографию, но теперь его размеры всех неверны.
При обрезке рисунка можно сохранить его пропорции, удерживая нажатой клавишу SHIFT при перетаскивании любого маркера.
Средство устранения красных глаз не удаляли эффекта красных глаз в мою фотографию.
Неверная центровка маркеров красных глаз. В область задачУстранение эффекта красных глаз щелкните ссылку Восстановить выделенные глаза и установите маркеры красных глаз точно на зрачки глаз.
Команда отмены отменяет результаты изменений для всех рисунков, которые я внес изменения
Команда Отменить действует на все выделенные рисунки. Если требуется отменить изменения только для некоторых рисунков, убедитесь, что при выборе команды выделены только эти рисунки.
Совместное использование рисунков
Если требуется, чтобы адресат получил рисунок как файл, убедитесь, что установлен флажок в виде вложений в области задач Электронная почта.
При импорте содержимого web-страниц на лист EXCEL может попасть множество ненужных объектов: картинок, элементов управления, таблиц, форм. Часть из этих объектов может быть скрыта. Научимся отображать эти объекты, а затем удалять их.
Для отображения скрытых объектов необходимо вызвать в меню Главная/ Редактирование/ Найти и выделить команду Область выделения .
Нажимая на название объекта ( Picture 1 ) можно выделить объект, затем клавишей DEL – удалить его если нужно.
Совет : чтобы удалить элемент управления (см. Control 13 на рисунке выше) необходимо перейти на вкладке Разработчик в режим Конструктора ( Разработчик/ Элементы управления ). Чтобы открыть вкладку Разработчик зайдите в меню Кнопка офис/ Параметры Excel/ Основные/ Показывать вкладку Разработчик на ленте .
Выделить ВСЕ объекты можно с помощью инструмента Выделение группы ячеек ( Главная/ Найти и выделить ). Переключатель установить на Объекты .
На первом рисунке (окно Область выделения . ) видно, все объекты разделены на 2 группы (группы отделены горизонтальной линией). Инструмент Выделение группы ячеек выделяет сначала объекты из нижней группы (наподобие выделения нижнего слоя). После их выделения, а затем удаления с помощью клавиши DEL , можно приниматься за вторую группу объектов. Заново вызовите Инструмент Выделение группы ячеек, который выделит теперь оставшиеся элементы (верхнюю группу).
Аналогичный подход может быть использован и для объектов, созданных самостоятельно.
СОВЕТ: Другим способом удаления картинок, объектов (элементов формы), гиперссылок является вставка содержимого web-страницы не прямо в EXCEL, а в стандартное приложение Windows Блокнот (Notepad.exe). После вставки содержимого web-страницы из Буфера обмена в новый документ Блокнота в нем будет содержаться только текст с web-страницы. Затем остается этот текст скопировать в EXCEL.
При открытии некоторых документов не отображаются рисунки у пользователей в домене и на рдс. На личном ноуте всё отображается сразу.
Office чистили в ноль, ставили 2021, 19, 16 эффект тот же.
Скрин во вложении.
Не отображаются рисунки и формулы
Здравствуйте. У меня в ворде 2003 с недавних пор не отображаются рисунки и формулы. Получается.
Не отображаются рисунки
Доброго всего и всем Поясните плз, почему картинки вставленные в лотус клиенте из буфера!! (НЕ.
Не отображаются рисунки в RichEdit
Я читал что нужно загрузить новую версию RichEdit Как скажите пожалуйста Нужен RichEdit Version.
В графическом режиме не отображаются чёрные рисунки на белом фоне
Всем привет! В изучении паскаля дошёл до простейшей графики и сразу же столкнулся с проблемой: не.
А рисунки у пользователей в одной папке с файлом Excel, также как и на Вашем личном ноуте? Это про адреса
Igor_61, я просто прошу файл excel с её ПК на свой, и у меня все отображается. Файлы рисунков отдельно не лежат.
После генерации данные из этих таблиц отображаются в index и edit но не отображаются в details
Проблема в следующем есть множество таблиц связанных с таблицей Flat после генерации данные из.
Не отображаются вовсе или неправильно отображаются пару сайтов
Доброго времени суток.При переходе только на два сайта для изучение иностранных языков (lingualeo.
Символы отображаются в Cambria Math, но не отображаются в Times New Roman
Здравствуйте! Помогите, пожалуйста, разобраться в проблеме. Если я вставляю в документ Word -.
Верстка, картинки некорректно отображаются или не отображаются
У меня имеется трехколоночный сайт, по правой колонке будет располагаться картинка, состоящий из.
Не отображаются графики выходного сигнала, а входящего отображаются
Подскажите пожалуйста, почему не отображаются графики спектра сигнала и выходного сигнала.
Как в Word 2010 аккорду "Ctrl ё" присвоить действие кнопки "формат по абзацу"
Скажите, плиз. как в Word 2010 аккорду "Ctrl+ё" присвоить действие кнопки "Формат по абзацу".
Как в Word 2013 создать программно стиль "Абзаца", а не стиль "Связанный (абзац и знак)"
Как в Word 2013 создать программно стиль "Абзаца", а не стиль "Связанный (абзац и знак)". По.
"Не удается отобразить эту страницу" в браузере
Мне нужно что бы в браузере когда вводишь неправильный адрес выдавала мою ошибку, возможно такое.
Вкладка "вставка", кнопка "рисунки", выбрать рисунок, затем нажать не "выбрать", а стрелочку рядом с этой кнопкой - откроется меню вставки, и там можно выбрать "вставить связь". То есть рисунок не будет помещен в *.docx\word\media\, а будет подгружаться из указанной папки.
Если файл рисунка удалить, получится указанная вами ситуация.
Dinoxromniy, Это документ загружен из интернета, так что не прокатит. Скажите, пожалуйста, у вас открываются картинки в этом документе?
Dr_Mann, в этом документе нет картинок, в принципе нет.
Формат docx - это по-сути архив, который открывается любым архиватором.
Любая картинка хранится в папке 3531149286 (1).docx\word\media\
У вас в файле даже этой папки нет. Разумеется, я также ничего не вижу.
Решение
Если у него видны эти картинки, он может внедрить из в документ.
Если не ошибаюсь - выделить и нажать ctrl+shift+F9
Dinoxromniy, Еще раз попробовал скачать документ с источника (онлайн-калькулятор), проблему исправили. По-моему разработчики следят за темой))
Я здесь пишу, чтобы не создавать новую тему. У меня примерно такая же проблема, но не совсем. Дело вот в чём имеется документ Word (doc или docx, неважно), с ним связыны (не внедрены!) несколько десятков рисунков ( - нельзя внедрять, поскольку часть рисунков всё время редактируется!). При перемещении папки с файлом (или после переноса его на другой компьютер) картинки не отображаются, то есть Word хранит не относительный, а абсолютный путь к картинкам.
Вопрос вот в чём: Можно ли сделать так, чтобы в настройках конкретного документа Word абсолютный путь заменялся на относительный?
Читайте также: