PPT2000: Chcete-li do prezentace vlo�it propojen� obr�zky makro

ID �l�nku: 241378 - Produkty, kter� se vztahuj� k tomuto �l�nku.

UPOZORN�N�: TENTO �L�NEK BYL STROJOV� P�ELO�EN

Zobrazen� anglick�ho �l�nku a jeho �esk�ho p�ekladu vedle sebe

Zobrazen� p�vodn�ho anglick�ho �l�nku a jeho p�ekladu vedle sebe.

Rozbalit v�echny z�lo�ky | Minimalizovat v�echny z�lo�ky

Souhrn

PowerPoint neposkytuje p��m� metoda p�eru�it odkazy proveden� obr�zky ne� vyj�m�n� a vkl�d�n� obr�zku do sn�mku. Tento �l�nek obsahuje uk�zkov� k�d makra, kter� automatizuje tento proces reinserting propojen� obr�zky jako vlo�en� obr�zky.

Zp�t nahoru | Dejte n�m zp�tnou vazbu

Dal�� informace

Pozn�mka: N�sleduj�c� p��klady makro pracovat pouze v aplikaci PowerPoint. Visual Basic pro aplikace prohl�e�e prezentac� PowerPoint nepodporuje makra. Dal�� informace z�sk�te v n�sleduj�c�m �l�nku znalostn� b�ze Microsoft Knowledge Base:Spole�nost Microsoft poskytuje uk�zky programov�n� pouze pro ilustraci, bez ��dn� z�ruky v�slovn� uveden� nebo odvozen�,. v�etn�, bez omezen�, odvozen�ch z�ruk vztahuj�c�ch se k obchodovatelnosti nebo vhodnosti pro ur�it� ��el. Tento �l�nek p�edpokl�d�, �e u�ivatel je obezn�men s programovac�m jazykem, kter� je p�edm�tem uk�zky, a s n�stroji pou�it�mi pro vytvo�en� a lad�n� skriptu. Pracovn�ci technick� podpory spole�nosti Microsoft mohou vysv�tlit funkce ur�it�ho postupu, nemohou v�ak n�sleduj�c� p��klady roz��it o dal�� funkce nebo konstrukce podle konkr�tn�ch po�adavk� u�ivatele. N�sleduj�c� makro zkontroluje ka�d� sn�mek propojen� obr�zky. Pokud nalezne propojen� obr�zek, Makro potom z�sk� um�st�n� a n�zev souboru pro p�vodn� obr�zek a obdr�� velikost, um�st�n� a po�ad� vykreslov�n� obr�zku na sn�mku. Potom odstran� aktu�ln� obr�zek a vlo�� obr�zek v p�esn� stejn� pozici a velikost. Potom zopakuje hled�n�.

Pozn�mka: Toto makro mus� spustit v po��ta�i, kter� m� p��stup k soubor�m propojen� obr�zek. Pokud to neprovedete, makra nelze vlo�it obr�zky do prezentace.

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

Zp�t nahoru | Dejte n�m zp�tnou vazbu

Odkazy

Dal�� informace o zp�sobu pou�it� uk�zkov�ho k�du v tomto �l�nku naleznete v n�sleduj�c�m �l�nku znalostn� b�ze Microsoft Knowledge Base:

212536

(http://support.microsoft.com/kb/212536/EN-US/ )

OFF2000: Jak spustit uk�zkov� k�d z �l�nk� znalostn� b�ze

Zp�t nahoru | Dejte n�m zp�tnou vazbu

Vlastnosti

ID �l�nku: 241378 - Posledn� aktualizace: 17. �ervna 2005 - Revize: 2.0

Informace v tomto �l�nku jsou ur�eny pro produkt:

Microsoft PowerPoint 2000 Standard Edition

kbmt kbinfo KB241378 KbMtcs

Strojov� p�elo�en� �l�nek

D�le�it�: Tento �l�nek byl p�elo�en pomoc� software spole�nosti Microsoft na strojov� p�eklad, ne profesion�ln�m p�ekladatelem. Spole�nost Microsoft nab�z� jak �l�nky p�elo�en� p�ekladatelem, tak �l�nky p�elo�en� pomoc� software na strojov� p�eklad, tak�e v�echny �l�nky ve Znalostn� datab�zi (Knowledge Base) jsou dostupn� v �e�tin�. P�eklad pomoc� software na strojov� p�eklad ale nen� bohu�el v�dy dokonal�. Obsahuje chyby ve sklo�ov�n� slov, skladb� v�t, nebo gramatice, podobn� jako kdy� cizinci d�laj� chyby p�i mluven� v �e�tin�. Spole�nost Microsoft nen� pr�vn� zodpov�dn� za nep�esnosti, chyby nebo �kody vznikl� chybami v p�ekladu, nebo p�i pou�it� nep�esn� p�elo�en�ch instrukc� v �l�nku z�kazn�kem. Spole�nost Microsoft aktualizuje software na strojov� p�eklad, aby byl po�et chyb omezen na minimum.

Projd�te si tak� anglickou verzi �l�nku:241378

(http://support.microsoft.com/kb/241378/en-us/ )

Zp�t nahoru | Dejte n�m zp�tnou vazbu