控制图片大小问题(100分)

F

freebird_xh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #1

我用OLE往word文档中的一个表格(10*10)的第一个单元格插入了一张图片,但是插入后,我怎么控制图片的大小.即我希望能对插入的图片进行缩放,使其适应表格的大小.希望大家帮

 

Z

zhangshunzhong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #2

Selection.InlineShapes.AddPicture FileName:="xxx.jpg" , LinkToFile:=False, SaveWithDocument:=True

 

Z

zhangshunzhong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #3

var FWordlevariant;


var FileName,LinkToFile,SaveWithDocument:OleVariant;
begin
FWord:=CreateOleObject('Word.application');
或FWord:=GetActiveOleObject('Word.application');

FileName:='xxx.jpg';
LinkToFile:=False;
SaveWithDocument:=True;
FWord.application.Selection.InlineShapes.AddPicture(FileName,LinkToFile,SaveWithDocument);

end;

 

F

freebird_xh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #4

楼上的那些代码可以改变图片的大小吗??
我往word中是通过一下代码插入的图片:
procedure TForm1.Button1Click(Sender: TObject);
var
Word, Doc, Fields:OleVariant;
begin
ClipBoard.Assign(image1.Picture.Bitmap);

Word:=CreateOleObject('Word.Application');

Word.Visible:=True;

Word.Documents.Add('C:/2003.dot');
Doc := Word.ActiveDocument;

Fields := Doc.FormFields;
Fields.item('image').range.paste;
END;
现在希望插入后可以控制图片的大小,请各位大侠帮忙

 

Z

zhangshunzhong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #5

加载图片时保存图片对象到inlineshape中

var inlineshapelevariant;
Filename,linktofile,savewithdocumentlevariant;
begin
Fword:=GetActiveoleobject('word.application');
FileName:='xxx.jpg';
LinkToFile:=False;
SaveWithDocument:=True;
inlineshape:=FWord.application.Selection.InlineShapes.AddPicture(FileName,LinkToFile,SaveWithDocument);
inlineshape.Height:= 124.45;
inlineshape.Width:=124;

 

F

freebird_xh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #6

可以根据我的代码进行操作吗?
我对 InlineShapes 这些都不熟悉,很少用到OLE编程,谢谢
或许我们可以QQ联系: 46676533,加我时请注明是DFW的朋友

 

Z

zhangshunzhong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #7

图片还是加载进去吧,Paste进去的东西的类型怎么获得呢

var inlineshapelevariant;

Fields := Doc.FormFields;
inlineshape:=Fields.item('image').range.InlineShapes.AddPicture(FileName,LinkToFile,SaveWithDocument);
inlineshape.height:=...

 

F

freebird_xh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #8

接受答案了.