如果解决ppt中的相对路径？

user_lgjdn

如果解决ppt中的相对路径？

a851593029

不懂意思！！

xuting

本文件夹中的
位置

user_ushbn

Sub filedir()   MsgBox Application.ActivePresentation.Path  End Sub

kbiabtqb8

楼主的要求实在太不明确了

user_wclch

大使能搞具体定不。整个例子啊

user_akxtf

前两天也有个同学问我了个相对路径的问题，我想大概意思是这样的。
比如在ppt里面添加了一个flash的控件，就是ShockwaveFlash，指向flash的时候要填绝对路径，
问题就来了，这个ppt如果copy给别人的话，不知道会放在那个目录下，（最多也就保证flash和ppt在
同一目录下），因此路径变了，flash自然是不能播放了。
楼主估计是想用宏做下面几件事：
读取一个Presentation的路径，在加上flash的名字，凑一个flash的完整路径，再填到flash的属性里面去。
小弟对ppt的宏不是很了解，特别是ppt里的各项属性的名称等等都还没上路，故当时也没解决，刚才看到这个帖子
才想起当时的事。
好像加一段宏就行了。
“Slide1.ShockwaveFlash1.Movie = Application.ActivePresentation.Path + "1.swf"”

dli21317

不用加宏吧！！

lwmx28

我对宏一向不是很喜欢，因为当做好的文件给别人时由于安全设置问题，会弹出安全提醒对话框。
还有，如果ppt中有音乐文件，默认也是绝对路径，如果不用宏，不知道怎样变成相对路径，请高人指点