Excel ЧаВо

         

Как добавить 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



Содержание раздела