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

我取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'移动位置   
--------------------编程问答-------------------- 怎么我发的贴都是死贴.
哎,搞得我都没兴趣上这里了.

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

补充：VB ,  控件