|
19.09.2008, 12:13 | #1 |
Участник
|
Image & Excel
Добрый день !!!
Подскажите пжлста как можно выложить миниатюру(картинку) в определенную область excel (типа указываешь к примеру ComExcelDocument_RU::numToNameCell(1,10) и именно туда и устанавливает) |
|
|
За это сообщение автора поблагодарили: arhat (1). |
19.09.2008, 12:43 | #2 |
Moderator
|
Записывайте действия в Excel макрорекордером, причесывайте получившийся код VBA, портируйте его на X++.
Следующий код VBA достает картинку из файла и позиционирует ее левый верхний угол в левый верхний угол ячейки B3: Код: Range("B3").Select ActiveSheet.Pictures.Insert "C:\MyPicture.jpg" X++: { ComExcelDocument_RU doc = new ComExcelDocument_RU(); COM xlApp; // Excel.Application COM wbook; COM activeSheet; COM pictures; COM range; ; doc.NewFile(); wbook = doc.getComDocument(); xlApp = wbook.Parent(); activeSheet = xlApp.ActiveSheet(); range = activeSheet.Range(ComExcelDocument_RU::numToNameCell(2,3)); // B3 range.Select(); pictures = activeSheet.Pictures(); pictures.Insert(@'C:\MyPicture.jpg'); } X++: activeSheet.Paste(); // pictures = activeSheet.Pictures(); // pictures.Insert(@'C:\MyPicture.jpg'); |
|
|
За это сообщение автора поблагодарили: arhat (1). |
19.09.2008, 13:21 | #3 |
Участник
|
Gustav Благодарю! за то что вы внимательны к новичкам таким как я … и я тоже теперь будут внимателен к остальным … )
|
|
19.09.2008, 13:40 | #4 |
Moderator
|
офф-топ
Цитата:
Цитата:
Однажды ласточка со своими маленькими птенцами спасалась от хищников и оказалась на краю глубокого горного ущелья. И первый птенец стал просить:
- Мамочка, перенеси меня, и я всегда буду любить тебя! - Врешь! - сказала ласточка и сбросила его в пропасть. - Мама, перенеси меня, и я тоже когда-нибудь спасу тебя! - сказал второй птенец. - Врешь! - сказала ласточка и тоже сбросила его в пропасть. А третий птенец сказал: - Мама, спаси меня, и я когда выросту тоже буду спасать своих детей! - А вот ты говоришь правду, - сказала ласточка и спасла его. Так выпьем же за горькую правду! |
|