Имя: Пароль:
1C
 
excel и картинка в ячейку
0 lamme
 
01.06.09
09:54
буквально на той неделе была тема - про то
как всатвить в ексель файл в опр ячейку - внешнюю картинку
Пните меня на ту ссылку или подскажите как сделать .
(втянул уши в шею ... щас будут пинать за баян)
1 DrHiHi
 
01.06.09
10:08
(0) поищи программирование VBA ексель и тоже самое напиши в 1С 7.7, после создания Excel.Application
2 Deon
 
01.06.09
10:09
(0) Запусти в экселе макрос, забубень картинку, посмотри текст макроса, скопируй в 1С.
3 skunk
 
01.06.09
10:16
хотел бы глянуть как в екселе вставить картинку в ячейку
4 Иду
 
01.06.09
10:24
Range("Y330").Select
ActiveSheet.Pictures.Insert("C:\Huy.jpeg")
5 skunk
 
01.06.09
10:27
(4)и что это вставит картинку в ячейку?
6 Иду
 
01.06.09
10:32
Excel = СоздатьОбъект("Excel.Application");
Excel.Displayalerts = 0;
Excel.Workbooks.Add();
Excel.Range("Y330").Select();
Excel.ActiveSheet.Pictures.Insert("C:\Huy.jpeg");
Excel.Visible = 1;

(5) ессно нет, привяжет вставкой верхний левый к ранжу, а ты что спросить хотел? можно ли внутрь засунуть?
7 skunk
 
01.06.09
10:33
(6)насколько понял человеку нужно именно во внутрь ячейки... насколько помню, такого в екселе сделать нельзя
8 Ursus maritimus
 
01.06.09
10:34
Интерсно, что изображено на C:\Huy.jpeg
У меня какие-то ассоциации странные....
9 Иду
 
01.06.09
10:36
(7), да, только через тосамое место, изменеиеем размеров ячейки, да и то не внутри будет, а сверху, можно и в подложку закатать, но не в ячейку, там только цифры и буквы живут.

(8) не понял, какие?
10 Ursus maritimus
 
01.06.09
10:37
(9) матофильтр не пропускает
11 SunKisa
 
03.06.09
13:19
(6)А можно как то сделать так, например, верхний правый угол картинки распологался у ячейки D1?
12 SunKisa
 
03.06.09
14:07
Пишу так:
ВходExcel.Range("D1").Select();
ВходExcel.ActiveSheet.Pictures.Insert("C:\Users\ses\Desktop\для прайсов\1.jpg");
Все равно ставит картинку в верхний левый угол листа
13 SunKisa
 
03.06.09
14:28
Нашла пример, помогите на 1С записать его:
iFilePicture$ = "C:\MyPicture.gif"
With Worksheets(1).Pictures.Insert(FileName:=iFilePicture$)
    .Top = 50
    .Left = 100
    .Width = 250
    .Height = 250
End With
14 SunKisa
 
03.06.09
15:11
Всё, разобралась, вдруг кому интересно будет:
Картинка=Лист.Shapes.AddPicture("C:\1.jpg",0,1,Слева,Сверху,Ширина,Высота);