Имя: Пароль:
IT
 
Прайс в формате Excel с картинками.
0 DGorgoN
 
26.07.13
11:18
Вопрос к знатокам 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";
                
Возможно ли сделать так, что бы картинки подгружались динамически из внешний файлов. Прайс собираюсь записывать на диск с картинками.
1 sda553
 
26.07.13
11:21
(0) Я бы html туда врезал, а в html был бы <img> вот и получилось динамически
2 Утконос
 
26.07.13
11:23
(0) мне вот эта штука здорово помогла с размером файла
- правда на клюшках, но смысел понятен

В 60 !!! раз сжимаем файл MS EXCEL с картинками (созданный программно из 1С)
http://infostart.ru/public/19977/
3 DGorgoN
 
26.07.13
12:35
(1) В смысле?
4 sda553
 
26.07.13
13:11
(3) В смысле того, что сделал бы вместо Excel файла, html файл, который, между прочим, можно успешно открывать в екселе.

В этом случае и картинки будут снаружи, и подгружаться они будут динамически
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс