aktaulizácia Powerpoint Vyřešeno

[maraga]

zdravím,

vedel by mi niekto z vás pomôcť pri úprave makra, ktoré slúži na aktualizáciu objektov vložených do prezentácie?

toto makro vždy aktualizuje všetky objekty na všetkých slajdoch, je možné ho upraviť tak aby sa zaktualizoval len slajd na ktorom práve som?

makro:

Private Sub CommandButton1_Click()

Dim list As Slide
Dim objekt As Shape

Application.DisplayAlerts = False

For Each list In ActivePresentation.Slides
For Each objekt In list.Shapes
If objekt.Type = msoLinkedOLEObject Then

objekt.LinkFormat.Update
End If
Next
Next
End Sub

ďakujem

[Reklama]

[cmuch]

nejsem si jistý, ale vyskusaj.

Kód: Vybrat vše

kod byl nefunkční


Tady je náprava.
Aktualizuje se pouze aktualni slide (snímek)

Kód: Vybrat vše

Sub AktualizaceSlide()

  'aktualni slide
  SlideIndex = ActiveWindow.View.Slide.SlideIndex
 
  'pro vsechny objekty na slide
  For s = 1 To ActivePresentation.Slides(SlideIndex).Shapes.Count
   
    'pokud ma objekt propojeni tak se aktualizuje
    If ActivePresentation.Slides(SlideIndex).Shapes(s).Type = msoLinkedOLEObject Then
        ActivePresentation.Slides(SlideIndex).Shapes(s).LinkFormat.Update
    End If
  Next s
End Sub

[maraga]

ahoj,
ja to skúšam tak že do prezentácie na jeden slide vložím ako objekt s prepojením jeden excelovský súbor a na druhý slide vložím durhý excelovský súbor a ak zmením hodnotu v súbore napr pridám farebné pozadie, cez tlačítko aktualizujem hodnoty.

Ak však budem mať 30 slidov a budem mať v nich 30 excel súborov a zmením si len v jednom hodnoty, veľmi dlho aktualizuje celú prezentáciu.

ďakujem

[cmuch]

Takže to jde?

Pokud ano tak téma uzamkni zelenou fajou.

[maraga]

Práveže nefunguje:) vyhadzuje chybu na "For Each objekt In list.Shapes"

[cmuch]

Opraveno předchozí makro.

[maraga]

teraz mi vypisuje pri "SlideIndex = ActiveWindow.View.Slide.SlideIndex"

Cant assign to read-only property

hmm

[cmuch]

To vypadá jak kdyby si to měl (ten objekt, nebo sešit) jen pro čtení.

--- Doplnění předchozího příspěvku (15 Črc 2013 21:13) ---

Zkus si vytvořit nový sešit s novými třeba 2mi objekty jak se Ti bude chovat.