AXForum  
Вернуться   AXForum > Microsoft Dynamics AX > DAX: Программирование
All
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 19.09.2008, 12:13   #1  
AxTimur is offline
AxTimur
Участник
 
21 / 11 (1) +
Регистрация: 08.08.2008
Image & Excel
Добрый день !!!

Подскажите пжлста как можно выложить миниатюру(картинку) в определенную область excel (типа указываешь к примеру ComExcelDocument_RU::numToNameCell(1,10) и именно туда и устанавливает)
За это сообщение автора поблагодарили: arhat (1).
Старый 19.09.2008, 12:43   #2  
Gustav is offline
Gustav
Moderator
Аватар для Gustav
SAP
Лучший по профессии 2009
 
1,858 / 1152 (42) ++++++++
Регистрация: 24.01.2006
Адрес: Санкт-Петербург
Записей в блоге: 19
Записывайте действия в Excel макрорекордером, причесывайте получившийся код VBA, портируйте его на X++.
Следующий код VBA достает картинку из файла и позиционирует ее левый верхний угол в левый верхний угол ячейки B3:
Код:
 
Range("B3").Select
ActiveSheet.Pictures.Insert "C:\MyPicture.jpg"
P.S.
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  
AxTimur is offline
AxTimur
Участник
 
21 / 11 (1) +
Регистрация: 08.08.2008
Gustav Благодарю! за то что вы внимательны к новичкам таким как я … и я тоже теперь будут внимателен к остальным … )
Старый 19.09.2008, 13:40   #4  
Gustav is offline
Gustav
Moderator
Аватар для Gustav
SAP
Лучший по профессии 2009
 
1,858 / 1152 (42) ++++++++
Регистрация: 24.01.2006
Адрес: Санкт-Петербург
Записей в блоге: 19
офф-топ
Цитата:
Сообщение от AxTimur Посмотреть сообщение
за то что вы внимательны к новичкам таким как я … и я тоже теперь будут внимателен к остальным … )
напомнило тост Калягина из фильма "Прохиндиада":
Цитата:
Однажды ласточка со своими маленькими птенцами спасалась от хищников и оказалась на краю глубокого горного ущелья. И первый птенец стал просить:
- Мамочка, перенеси меня, и я всегда буду любить тебя!
- Врешь! - сказала ласточка и сбросила его в пропасть.
- Мама, перенеси меня, и я тоже когда-нибудь спасу тебя! - сказал второй птенец.
- Врешь! - сказала ласточка и тоже сбросила его в пропасть. А третий птенец сказал:
- Мама, спаси меня, и я когда выросту тоже буду спасать своих детей!
- А вот ты говоришь правду, - сказала ласточка и спасла его.
Так выпьем же за горькую правду!
 

Похожие темы
Тема Автор Раздел Ответов Посл. сообщение
Исследование скорости экспорта данных из Axapta в Excel (коллективный эксперимент) Gustav DAX: База знаний и проекты 79 13.02.2014 13:18
axaptapedia: Image class Blog bot DAX Blogs 0 22.07.2008 15:05
[Excel] - Несколько версий Excel на машине клиента Андре DAX: Программирование 11 07.08.2007 13:45
Сколько записей можно импортировать при помощи шаблонов Excel& Penguin DAX: Функционал 13 17.08.2005 13:36
Image & Table daemon DAX: Программирование 3 10.04.2003 09:12

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 21:13.