vtable.Cell(4,2).Range.Text=ALLTRIM(STR((x80+0.005),11,2))        &&向定位的表的第4行第2列写一个字符“x2000”
vtable.Cell(4,4).Range.Text=ALLTRIM(STR((y80n+0.005),10,2))     &&向定位的表的第4行第4列写一个字符“y2000”
vtable.Cell(4,6).Range.Text=ALLTRIM(STR(h85,7,2))           &&向定位的表的第4行第6列写一个字符“h85”
vtable.Cell(5,4).Range.Text=ALLTRIM(vtime)             &&向定位的表的第5行第4列写一个字符“vtime”
vpicture1='"'+vfpicture+ALLTRIM(点号)+'a.jpg"'                            &&计算要插入图片1
vpicture2='"'+vfpicture+ALLTRIM(点号)+'b.jpg"'
IF FILE(vpicture1)                                                        &&如果图片1存在的话
      vtable.Cell(8,2).Range.Delete                                         &&去掉表格第8行第2列的内容      
      vtable.Cell(8,2).Range.InlineShapes.AddPicture(vpicture1)　      　&&向定位的表的第8行第2列插入图片1
ENDIF 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　&&如果图片1存在的话
IF FILE(vpicture2)                                                        &&如果图片2存在的话
   　vtable.Cell(8,4).Range.Delete                                         &&去掉表格第8行第4列的内容      
 　  vtable.Cell(8,4).Range.InlineShapes.AddPicture(vpicture2）　　　&&向定位的表的第8行第4列插入图片1
 ENDIF 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　&&如果图片1存在的话
上面这段代码中，以下一句可以在Command窗口中运行，在程序中却不正确，请教是为什么？？？
　　　 vtable.Cell(8,2).Range.InlineShapes.AddPicture(vpicture1)
AddPicture的语法为：
AddPicture（FileName as String,[LinkToFile as Variant],[SaveWithDoument as  Variant],[Range as  Variant]) as     InLineShape
我不知道该怎样使用其变量，也就不能写这句，好人帮帮我，不胜感谢。

试试：
vtable.Documents(1).Tables(1).Cell(8,4).Range.InlineShapes.AddPicture(vpicture2)