不显示删除回复显示所有回复显示星级回复显示得分回复 Delphi AddPicture 图片上加入一个超链接。链接到一个avi文件上去。求人呀[问题点数:40

Question

加入图片用这个，成功了  
PptApp := CreateOleObject('PowerPoint.Application'); 
    PptApp.Visible := true; 
  PptApp.ActiveWindow.Selection.SlideRange.Shapes.AddPicture('D:\TigerData\DrHearing\ResultOut\000000003.jpg', msoTrue, msoTrue, 270, 203, 180, 135).Select; 可是怎在图片上加超链接呀！无论如何都搞不定。我试了很多代码，如 
//PptApp.ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseClick).Hyperlink.Address:='D:\TigerData\DrHearing\ResultOut\000000002.avi'; 
  wrdSelection.ShapeRange.ActionSettings(ppMouseClick).Hyperlinks.Address:='http://www.microsoft.com'; 
wrdSelection:=Shapes.AddPicture('D:\TigerData\DrHearing\ResultOut\000000003.jpg', msoTrue, msoTrue, 270, 203, 180, 135); 
  有高手吗

Answer 1

PptApp.ActiveWindow.Presentation.Slides.Add(Index:=n+1, Layout:=ppLayoutText).Select; 
    PptApp.ActiveWindow.Selection.SlideRange.Shapes.AddPicture('D:\TigerData\DrHearing\ResultOut\000000003.jpg', msoTrue, msoTrue, 270, 203, 180, 135).Select; 
    //PptApp.ActiveWindow.Selection.SlideRange.Shapes('Picture 5').Select; 
    PptApp.ActiveWindow.Selection.SlideRange.Shapes.Item(3).Select;   //PptApp.ActiveWindow.Selection.SlideRange.ActionSettings(ppMouseClick).Hyperlink.Address:='D:\TigerData\DrHearing\ResultOut\000000003.avi'; 
也不行 

Answer 2

gyk120
 
(大风起兮羽飞扬)   感谢你的回复。