载自:http://www.pptfaq.com/FAQ00433.htm Sub EditLink()' Edit links of some types' Little error checking. It works or not. No harm if not. Dim sLinkSource As String Dim sOriginalLinkSource As String If ActiveWindow.Selection.ShapeRange.Count <> 1 Then MsgBox ("Please select one and only one shape, then try again.") Exit Sub End If With ActiveWindow.Selection.ShapeRange(1) 'MsgBox .LinkFormat.SourceFullName sOriginalLinkSource = .LinkFormat.SourceFullName sLinkSource = InputBox("Edit the link", "Link Editor", sOriginalLinkSource) If sLinkSource = sOriginalLinkSource Then ' nothing changed; our work on this planet is done Exit Sub End If