Показать сообщение отдельно
  #4  
Старый 16.05.2012, 21:06
Аватар для Ildar-tsr
Ildar-tsr Ildar-tsr вне форума
Местный
 
Регистрация: 09.08.2011
Адрес: г.Сургут, ХМАО
Сообщения: 453
Репутация: 7402
По умолчанию

Цитата:
Сообщение от alex_rR
...а к отдельному объекту (фигура "прямоугольник" и в нем текст).
Если в своей книге нажмешь на прямоугольник с текстом, то в верхнем левом углу (левее поля, где значения в ячейку вводятся) увидишь название своего объекта. В твоей книге они называются Текст 1, Текст 2 и т.д.
Возьмем например Ф.И.О. в самом конце (Текст 9):
Код:
var
  e: OleVariant;
  s: string;
begin
  e:= CreateOleObject('Excel.Application');
  e.Workbooks.Add('C:\Users\elias\Desktop\форма1.xls');
  
  e.ActiveSheet.Shapes.Range['Текст 9'].Select;
  s:= e.Selection.ShapeRange.TextFrame2.TextRange.Characters.Text;
  ShowMessage(s);

  e.Visible:= true;
end;
__________________
Google в помощь
Ответить с цитированием