PPT2000: ????? ????? ????? ???????? ??? ????? ????????

???? ???????: 241378 - ??? ???????? ???? ????? ????? ??? ???????.
????? ???????? ????? ????? ??????? ?????? ?????? ???????
????? ???? | ?? ????

??????

?? ???? PowerPoint ????? ????? ??? ?????????? ???? ?? ??????? ??? ????? ??? ?????? ???? ?????? ?????? ??? ???? ??? ???????. ????? ??? ??????? ??? ??????? ?????? ?????? ????? ?????? ????? ??? reinserting ????? ???????? ??? ????? ???????.
???? ??? ?????? | ????? ???????

??????? ????

??????: ??????? ??????? ??????? ???? ??? ?? PowerPoint. Visual Basic for Applications ????? ??????? ??? ?????? ?? ??? Microsoft PowerPoint Viewer. ?????? ??? ??????? ??????? ???? ??? ??? ??????? ?????? ?????? ?? "????? ??????? ?? Microsoft:???? Microsoft ??????? ???????? ??? ??? ?? ???? ??????? ?? ?? ?????. ??? ????? ???? ?? ????? ??? ???????? ??????? ?????? ???????? ?? ???????? ???? ????. ????? ??? ??????? ???? ?????? ?? ??? ??????? ???? ??? ????? ?? ??????? ???? ??? ????????? ?????? ?????? ?????????. ???? ??????? ????? ??? Microsoft ??? ????? ????? ???? ???? ?? ?????? ?????? ??? ??????? ?????? ????? ?????? ?? ????? ??????? ?????? ??????? ?????. ????? ??????? ?????? ??? ????? ????? ????????. ??? ??? ???? ?????? ??????? ?? ???? ???? ???? ??? ?????? ??????? ?? ?????? ??? ??? ???? ? ??????? ???????? ?????? ??? ???????. ??? ?? ??? ?????? ??????? ? ?????? ?????? ?? ??? ?????? ?????? ?????. ????? ?? ?????.

??????: ??? ????? ??? ??????? ??? ???? ????????? ???? ???? ?????? ??? ????? ????? ????????. ??? ?? ??? ????? ?? ??????? ????? ????? ?? ????? ????????. 
Sub UnlinkPicture()
   ' Enable the error handler.
   '
   On Error GoTo ErrorHandler
   
   Dim oSlide As Slide
   Dim oShape As Shape
   Dim strPath As String
   Dim fHt As Single
   Dim fWd As Single
   Dim fTop As Single
   Dim fLeft As Single
   Dim fOrder As Single
   Dim lIndex As Long
   
   ' Check to see if the presentation is in the correct view.
   ' Raise the custom error message 555.
   '
   If ActiveWindow.ViewType <> ppViewNormal And ActiveWindow.ViewType _
        <> ppViewSlide Then
      Err.Raise 555, "Unlink Picture Macro", _
        "Not in Slide View or Normal View"
   End If

   ' Check to see if the presentation has no slides.
   ' Raise the custom error message 556.
   '
   If ActivePresentation.Slides.Count = 0 Then
      Err.Raise 556, "Unlink Picture Macro", _
        "Presentation contains no slides"
   End If

   ' Loop through each slide in the presentation.
   '
   For Each oSlide In ActivePresentation.Slides
      
   ' On the current slide, find those pictures that are
   ' linked, and get the positon, size, layer, and name
   ' of the image. Then delete it from the slide.
   '
      With oSlide
         For Each oShape In .Shapes
            If oShape.Type = msoLinkedPicture Then
               strPath = oShape.LinkFormat.SourceFullName
               fHt = oShape.Height
               fWd = oShape.Width
               fTop = oShape.Top
               fLeft = oShape.Left
               fOrder = oShape.ZOrderPosition
               oShape.Delete
         
   ' Create a new picture from the same file, and original settings.
   '
               Set oShape = _
      .Shapes.AddPicture(strPath, msoFalse, msoTrue, fLeft, fTop, fWd, fHt)
               
   ' Reposition the image back to its orginal Zorder layer.
   '
               While oShape.ZOrderPosition > fOrder
                  oShape.ZOrder msoSendBackward
               Wend
   
            End If
         Next oShape
      End With
   Next oSlide
   Exit Sub
ErrorHandler:
   ' Create Error message and raise dialog box with error message.
   '
   ErrMsg = "Error " & Err.Number & ": " & Err.Source & vbNewLine _
     & Err.Description
   MsgBox ErrMsg, vbCritical, "Error Message"

End Sub
???? ??? ?????? | ????? ???????

?????

?????? ??? ???? ?? ????????? ??? ????? ??????? ????? ???????? ???????? ?? ??? ???????? ???? ??? ??? ??????? ????? ?????? ?? "????? ??????? ?? Microsoft:
212536
(http://support.microsoft.com/kb/212536/EN-US/ )
OFF2000: ????? ????? ????? ??????? ?????? ?? ?????? ????? ???????
???? ??? ?????? | ????? ???????

???????

???? ???????: 241378 - ????? ??? ??????: 10/????? ??????/1426 - ??????: 2.0
????? ???
  • Microsoft PowerPoint 2000 Standard Edition
????? ??????: 
kbmt kbinfo KB241378 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????241378
(http://support.microsoft.com/kb/241378/en-us/ )
???? ??? ?????? | ????? ???????

????? ???????

 
???? ??? ?????????? ??? ??????