代码在窗体中运行无效

yuyvtul · 发表于 2006-6-27 11:27

用VBA做了一个窗体，每个按钮对应插入一个图形，而图形是用Word做的文本框(PNG图片)。
存在的问题是，若运行宏前处于选中文本框状态或光标在文本框中的状态，则点击提示“不可将文本框置于文本框、标注批注、脚注或尾注中”。
单独用代码SendKeys "{ESC 2}"可将光标移到页面，但若此代码在窗体中，不起作用。
请教，为什么不起作用，应该怎么处理。
附代码：
Private Sub Image02_Click()
SendKeys "{ESC 2}"
ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, FileName:= _
    "D:\02.PNG", LinkToFile:=False, SaveWithDocument:=True). _
        WrapFormat.Type = wdWrapTight
    Options.PictureWrapType = wdWrapMergeTight
End Sub

鑫11 · 发表于 2006-6-27 12:50

在SendKeys "{ESC 2}"前加上UserForm1.Hide（隐藏窗体）试一试

SendKeys "{ESC 2}"只作用于当前窗口，此时窗体为当前窗口

UserForm1.Hide是为了把word窗口变为当前窗口

[此贴子已经被作者于2006-6-27 13:38:40编辑过]

yuyvtul · 发表于 2006-6-28 21:04

谢谢鑫11兄，完美解决。同时将http://club.excelhome.net/viewthread.php?tid=161841&replyID=&skin=0的难题也完美解决了，代码待后。
再求助鑫兄。

IywnNvpx.rar (9.09 KB, 下载次数: 13)

[此贴子已经被作者于2006-6-28 21:06:05编辑过]

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