请问如何调整OLE的编辑窗口大小?

[yu1970]

我取Picture控件作为容器,放入OlE控件,然后读入EXCEL文档,程序要对EXCEL文档进行编辑.想调整其编辑窗口大小与Picture一致,然后使用SCROLLBAR来翻动未显示在窗口中的文档部分.请问哪位高手能写出源码?

我只在CSDN查到查看WORD文档的.

Dim doc As Word.Document
Dim win As Word.Window
With OLE1
.SizeMode = 1
.CreateEmbed App.Path & "\Word.doc"
.DoVerb vbOLEPrimary
.AutoVerbMenu = False
End With

Set doc = OLE1.object
Set win = doc.ActiveWindow

OLE1.Move 0, 0, Picture1.Width - 70, Picture1.Height - 120

win.ActivePane.DisplayRulers = False'不显示标尺
win.ActivePane.DisplayVerticalRuler = False'不显示标尺
win.DisplayVerticalScrollBar = True'显示滚动条
win.DisplayHorizontalScrollBar = True'显示滚动条
doc.ActiveWindow.ActivePane.SmallScroll Down:=10'移动位置

[yu1970]

怎么我发的贴都是死贴.
哎,搞得我都没兴趣上这里了.

在PICTUREBOX外面自己再加SCROLLBAR,马马虎虎顶着用先吧.