如何在Word的表格中插入图片?
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
我不知道该怎样使用其变量,也就不能写这句,好人帮帮我,不胜感谢。