Как Вставить Картинку В Excel 2007

Тема в разделе "Delphi - Компоненты", создана пользователем alba, 7 апр 2014.

  1. alba

    alba New Member

    Репутация:
    0
    Регистрация:
    4 дек 2008
    Сообщения:
    2
    Симпатии:
    0
    Здравствуйте, есть функция, которая вставляет картинку в Excel 2003:

    Function PicturesInsert (sheet:variant;range:string; pictures_:string):boolean;
    begin
    PicturesInsert:=true;
    try
    E.ActiveWorkBook.Sheets.item[sheet].Range[range].Select;
    E.ActiveWorkBook.Sheets.item[sheet].Pictures.Insert(pictures_).Select;
    except
    PicturesInsert:=false;
    end;
    End;

    но это не работает в Excel 2007, тк картинка не вставляется в указанную ячейку, а позиционируется в начале листа,

    Пожалуйста, поделитель готовой функцией, у кого есть
     
  2. alba

    alba New Member

    Репутация:
    0
    Регистрация:
    4 дек 2008
    Сообщения:
    2
    Симпатии:
    0

    Уже сама написала, пользуйтесь на здоровье
    Итак, эта функция правильно позиционирует рисунок в заданной ячейке для MS Excel 2007

    Function PicturesInsert_2007 (sheet:variant;range:string;
    pictures_:string):boolean;

    begin
    PicturesInsert_2007:=true;
    try

    E.ActiveWorkBook.Sheets.item[sheet].Range[range, EmptyParam].Select;
    E.ActiveWorkBook.Sheets.item[sheet].Pictures.Insert(pictures_).Select;

    E.Selection.Top:=E.ActiveWorkBook.Sheets.item[sheet].Range[range].Top;
    E.Selection.Left:=E.ActiveWorkBook.Sheets.item[sheet].Range[range].Left;;

    except
    PicturesInsert_2007:=false;
    end;
    End;
     
Загрузка...
Похожие Темы - Как Вставить Картинку
  1. susinmn
    Ответов:
    7
    Просмотров:
    3.913
  2. nexlez
    Ответов:
    0
    Просмотров:
    283
  3. Aaleks111
    Ответов:
    2
    Просмотров:
    622
  4. Amfion
    Ответов:
    5
    Просмотров:
    898
  5. Dimkawshm
    Ответов:
    2
    Просмотров:
    1.900

Поделиться этой страницей