powerpoint ve VBA ile nesnelere özellik atama

[Makinist_K]

sevgili uzmanlar,

bir şeyi kafaya taktım bitürlü bulamadım araştırmalara rağmen;

powerpointe;

ekle>nesne>windows media player

seçeneğinden bir video ekledim;

eklenen nesnenin properties penceresine girerek, video urlsi atayaraktan; videolarımı çalıştırıyorum.

Sorun: sunudosyamı başka bir konuma videolarla birlikte kaydettiğimde linkler güncellenmiyor tabi

şöyle birşey yapmayı denedim:

Private Sub WindowsMediaPlayer_URLStateChange()

yol = ActivePresentation.Path
yol1 = yol & "\" & takimtan & ".wmv"
Slide177.WindowsMediaPlayer1.URL = yol1
End Sub

tabi tık yok ama url yi siliyor enazından

ben nerde hata yapıyorum, kodu okuyunca ne yapmaya çalıştığımı anlamıştırsınız