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";
Возможно ли сделать так, что бы картинки подгружались динамически из внешний файлов. Прайс собираюсь записывать на диск с картинками.
|
|
4
sda553
26.07.13
✎
13:11
|
(3) В смысле того, что сделал бы вместо Excel файла, html файл, который, между прочим, можно успешно открывать в екселе.
В этом случае и картинки будут снаружи, и подгружаться они будут динамически
|
|