#0
by DGorgoN
Вопрос к знатокам VBA и Excel. Хочу сделать прайс в Excel с картинками, которые будут лежать рядом с ним. Прайс с картинками, которые сохраняются в самом файле я уже сделал - файл открывается долго. Код для данного внедрения: ИмяФайла = "C:models2"+Прав("000000"+СокрЛП(сКод), 5)+".jpg"; ЯчейкаКартинки = Екс.ActiveSheet.Cells(лчСчетчик, 3); ЯчейкаКартинки = Екс.ActiveSheet.Cells(лчСчетчик, 3); Екс.ActiveSheet.Pictures.Insert(ИмяФайла).Select; СчExcelСтрок = лчСчетчик; ШиринаИзобр=Екс.Selection.Width; ВысотаИзобр=Екс.Selection.Height; Екс.Selection.Delete; ШиринаКартинки = 10; ВысотаКартинки = 10; Екс.ActiveSheet.Cells(СчExcelСтрок,3).AddComment; Екс.ActiveSheet.Cells(СчExcelСтрок,3).Comment.Text(" ",1); Екс.ActiveSheet.Cells(СчExcelСтрок,3).Comment.Shape.AlternativeText=""; Екс.ActiveSheet.Cells(СчExcelСтрок,3).Comment.Shape.AutoShapeType=5; Екс.ActiveSheet.Cells(СчExcelСтрок,3).Comment.Shape.Width=400; Екс.ActiveSheet.Cells(СчExcelСтрок,3).Comment.Shape.Height=300; Екс.ActiveSheet.Cells(СчExcelСтрок,3).Comment.Shape.Fill.Visible=-1; Екс.ActiveSheet.Cells(СчExcelСтрок,3).Comment.Shape.Fill.UserPicture(ИмяФайла); Екс.ActiveSheet.Cells(СчExcelСтрок,3).Value = "v"; Возможно ли сделать так, что бы картинки подгружались динамически из внешний файлов. Прайс собираюсь записывать на диск с картинками.
#2
by Утконос
мне вот эта штука здорово помогла с размером файла - правда на клюшках, но смысел понятен В 60 !!! раз сжимаем файл MS EXCEL с картинками (созданный программно из 1С)
#4
by sda553
В смысле того, что сделал бы вместо Excel файла, html файл, который, между прочим, можно успешно открывать в екселе. В этом случае и картинки будут снаружи, и подгружаться они будут динамически
Тэги:
Ответить:
Комментарии доступны только авторизированным пользователям
Похожие вопросы 1С
- Как заполнить "Поступление ТМЦ" из накладной в формате Excel.
- при сохранении отчета в формате *.xls 1с зависает?????
- Ошибка при: Excel = Новый COMОбъект("Excel.Application");
- Не могу в прайс листе вывести логотип
- Можно ли как-то использовать Excel.Application без установки Excel
- Сохранять отчет через каждые полчаса в формате Excel
- Сохранить Excel в старом формате (1997-2003)
- OpenOffice сохраняет в формате Excel только 129 строк
- Есть разница в CreateObject("Excel.Application") и Новый COMОбъект("Excel.Applicatio
- как в 1с8.1 УТ сохранить прайс лист в формате xls
- Обмен данными в формате в формате УФЭБС 1с 7.7Бюджетка
- Прайс по остаткам в УТ11
В этой группе 1С
- Настройка SSD на ноутбке для работы с 1С
- 1С 8 УПП Распределенка и перерасчеты
- ЗУП: остатки отпусков у сотрудника, который отсутствует по невыясненной причине
- Как сделать открытие смены в 1C: 8.1 Розница (базовая)?
- Бух 3.0 ошибка ввода нового физ лица
- СКД: запретить сохранение настроек
- Не могу выполнить функцию Свернуть
- Поиск по штрих.коду в документе инвентаризация
- Удалить дубли в регистре сведений ШтрихКоды.
- Программно создать документ по расписанию регламентного задания
- Как правильно сделать кадровое перемещение?
- Как в СКД преобразовать строку в число?
- Сравнение двух реквизитов в запросе, как ?
- ЗУП: остатки отпусков у сотрудника, который находится в отпуске по уходу за ребё
- Не срабатывает Файл.Существует()
- SSD для tempdb
- ут11 регистры расчеты с клиентами и расчеты с клиентами по документам
- ошибка при установке значений атрибута контекста
- СКД: макет для общих итогов
- СКД. Не срабатывает отбор при программном выводе отчета