如何向word 中加入图片?(61分)

  • 主题发起人 主题发起人 zhansong333
  • 开始时间 开始时间
Z

zhansong333

Unregistered / Unconfirmed
GUEST, unregistred user!
我在paradox中存的是图片的‘路径’; 我想通过 delphi 实现向 word 中加入图片。
该怎么实现,请教。。。。。。。谢谢![:(][:(][?]
 
录一个加图片的宏看看

Sub Macro1()
'
' Macro1 Macro
' 宏在 2006-6-16 由 wangdg 录制
'
Selection.InlineShapes.AddPicture FileName:= _
"E:/My Document/My Pictures/39_118_8.jpg", LinkToFile:=False, _
SaveWithDocument:=True
End Sub
 
不懂啊,能否说明白点呢
 
var FPicture:OleVariant;
插入图片
FPicture:=MSWord.documents.item(1).InlineShapes.AddPicture('C:/0003.jpg',False, True );
FPicture.ConvertToShape.select; //转成可移动模式...
documents.Application.Selection.ShapeRange.width:=大小;
documents.Application.Selection.ShapeRange.height:=高度;
documents.Application.Selection.ShapeRange.IncrementLeft(左);
documents.Application.Selection.ShapeRange.IncrementTop(右);
 
看WORD的编程帮助
 
后退
顶部