Как добавить URL? Как сделать гиперссылку для рисунка?
Delphi:
// добавим гиперссылки в A7 и A8
with ASheet do Hyperlinks.Add( Range['A7', EmptyParam], 'http://www.delphikingdom.com/asp/section.asp?id=16', EmptyParam, 'Все материалы раздела'#10'Hello, World!', 'Hello, World!'); with ASheet do Hyperlinks.Add( Range['A8', EmptyParam], 'http://www.delphikingdom.com/asp/nets.asp', EmptyParam, 'Верхний уровень "Дерева тем"'#10'тематического каталога', 'Тематический каталог');
// вставим рисунок в текущую ячейку и создадим гиперсылку
Pic := (ASheet.Pictures(EmptyParam, lcid) as Pictures).Insert( MyPicsPath + '\common.gif', EmptyParam);
ASheet.Hyperlinks.Add( Pic.ShapeRange.Item(1), 'http://www.delphikingdom.com/', EmptyParam, 'Королевство Delphi', EmptyParam);
// редактирование
with ASheet.Range['A8', EmptyParam].Hyperlinks.Item[1] do begin
Address := 'http://www.delphikingdom.com/asp/answer.asp?IDAnswer=23150'; ScreenTip := 'Вопроc ¹ 23150'; TextToDisplay := 'Как в Excel редактировать гиперссылки, содержащиеся в ячейках?'; end;
// удалим гиперссылку - останется только тект, указанный в TextToDisplay
ASheet.Range['A8', EmptyParam].Hyperlinks.Item[1].Delete;
Hyperlinks Property
Hyperlinks Collection
Hyperlink Object
