如何用VBA打开"插入图片"对话框。并加以定制？

dzdoc · 发表于 2005-6-11 22:44

这样我就可以在工具档中,加上几个添加几个按钮，使他们打开的“插入图片”对话框指向不同的目录？

[此贴子已经被作者于2005-6-11 23:18:58编辑过]

yxp · 发表于 2005-6-13 00:04

Selection.InlineShapes.AddPicture FileName:="F:\*", LinkToFile :=False, SaveWithDocument:=True

yuyvtul · 发表于 2005-6-13 00:43

以下是引用yxp在2005-6-13 0:04:00的发言： Selection.InlineShapes.AddPicture FileName:="F:\*", LinkToFile :=False, SaveWithDocument:=True

工具档中的几个按钮，可选择性地插入分别对应的不同的目录中的图片，不是插入指定图片。

dzdoc · 发表于 2005-6-22 11:48

问题解决了。。利用以下语句

System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Word\Options", "PICTURE-PATH") = "F:\"

Dialogs(wdDialogInsertPicture).Show

		自动登录	找回密码
密码			免费注册

二楼将楼主的意思理解错了