|
|
#1 |
|
Участник
|
Image & Excel
Добрый день !!!
Подскажите пжлста как можно выложить миниатюру(картинку) в определенную область excel (типа указываешь к примеру ComExcelDocument_RU::numToNameCell(1,10) и именно туда и устанавливает) |
|
|
|
| За это сообщение автора поблагодарили: arhat (1). | |
|
|
#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). | |
|
|
#3 |
|
Участник
|
Gustav Благодарю! за то что вы внимательны к новичкам таким как я … и я тоже теперь будут внимателен к остальным … )
|
|
|
|
|
#4 |
|
Moderator
|
офф-топ
Цитата:
напомнило тост Калягина из фильма "Прохиндиада":Цитата:
Однажды ласточка со своими маленькими птенцами спасалась от хищников и оказалась на краю глубокого горного ущелья. И первый птенец стал просить:
- Мамочка, перенеси меня, и я всегда буду любить тебя! - Врешь! - сказала ласточка и сбросила его в пропасть. - Мама, перенеси меня, и я тоже когда-нибудь спасу тебя! - сказал второй птенец. - Врешь! - сказала ласточка и тоже сбросила его в пропасть. А третий птенец сказал: - Мама, спаси меня, и я когда выросту тоже буду спасать своих детей! - А вот ты говоришь правду, - сказала ласточка и спасла его. Так выпьем же за горькую правду! |
|
|