|
|

楼主 |
发表于 2009-11-12 19:29:11
|
显示全部楼层
来自: 中国天津
谢谢斑竹6 L6 J0 A/ k9 K! g
% R: H$ z" E9 k引用的对象应该是正确的
, K( J2 w5 b7 w, F( `$ Q* j& I3 U' W8 t5 g- e* f N" h! i
因为对象是在前一段程序中生成的,而且第一次运行时可以正确执行并输出期望的结果,但第二次就会出现偏移,plottofile方法输出的图形相对于图纸发生偏移,目前没有找到原因,第三次运行时会出现本贴所说的错误提示
' {7 V W( d- K4 Q, h* Y' ]* `, }. k& R' t l3 u
为了切断其他可能的联系,我重建了个按钮,输入如下程序:& h% Y1 [3 q# D$ P& i% g- r3 H' b
public aa as long
* K5 S- m; \5 \Private Sub CommandButton9_Click()9 d( ]+ w& G6 m" L. {
Dim M1 As MODI.Document, M2 As MODI.Document '合并
/ ?. H: G ^5 x8 Q1 u& xDim bb, path As String
- ^6 u% s- i; {) ]4 k3 l( e, G5 Kaa = aa + 100
4 C6 h: Y3 e0 i- N& c) n1 Z- i: Cbb = Str(aa)
! x( C4 U8 }4 Vpath = "d:\我的图纸\" & bb & ".mdi"
( ~; |0 _* K' G/ KSet M1 = New MODI.Document! N. u; o4 L4 d$ T0 s
Set M2 = New MODI.Document9 ]* |. A8 {8 t2 u1 `) M
M1.Create "d:\我的图纸\1111.mdi"
1 l$ F# d0 N6 f' z M2.Create "d:\我的图纸\2222.mdi"
( ]4 l& i0 e2 q/ H( M M1.Images.Add M2.Images(0), Nothing
R$ b$ V7 F! C9 D. |# K M1.SaveAs path
" _ }( f0 K e2 F9 D M1.Close5 _/ e6 Q3 v0 i* i# G4 O
M2.Close6 C0 f8 J; U$ m8 S
End Sub
% I0 g+ k& C4 e* p8 r+ P# n- q% `* n此程序在office 2003下正常运行,而在office2007也可以运行,但是仍然会不定时的出错,相同的错误提示 |
|