Office学习社区 › Office入门和提高 › 求解：此段代码为什么不能打开当前PPT文档所在的文件夹？

user_pjmctpqr 发表于 2016-4-12 12:16:33

求解：此段代码为什么不能打开当前PPT文档所在的文件夹？

求解：此段代码为什么不能打开当前PPT文档所在的文件夹？
Private Sub CommandButton1_Click() Dim MyFolderString As String MyFolderString = Dir(ActivePresentation.Path, vbDirectory) Debug.Print MyFolderString ActivePresentation.FollowHyperlink Address:=MyFolderString, _ NewWindow:=True, AddHistory:=TrueEnd Sub

user_wdazl 发表于 2016-4-12 15:02:10

有请斑竹...

查看完整版本: 求解：此段代码为什么不能打开当前PPT文档所在的文件夹？