Z zhansong333 Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-16 #1 我在paradox中存的是图片的‘路径’; 我想通过 delphi 实现向 word 中加入图片。 该怎么实现,请教。。。。。。。谢谢![][][?]
道 道长 Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-16 #2 录一个加图片的宏看看 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
录一个加图片的宏看看 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
I iseek Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-17 #4 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(右);
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(右);