|
ｿｽｿｽDelphi Q & Aｿｽfｿｽｿｽｿｽｿｽ
|
ｿｽ像度ｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽJpegｿｽｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽｿｽｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽｿｽﾉは？
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
boon 2007/04/17(ｿｽｿｽ) 11:12:44
//GetAPP0_Offsetｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽp
functionGetAPP0_Offset(Ms:TMemoryStream):Integer;
var
p1,p2:PByte;
begin
result:=-1;
p1:=Ms.Memory;
while(Integer(p1)-Integer(Ms.Memory))
ifp1^=$FFthen
begin
p2:=p1;
Inc(p2);
ifp2^=$E0then
begin
result:=Integer(p1)-Integer(Ms.Memory);
exit;
end;
end;
Inc(p1);
end;
end;
procedureTForm1.Button1Click(Sender:TObject);
var
Bmp:TBitmap;
Jpg:TJpegImage;
Ms:TMemoryStream;
APPO_Offset:Integer;
Units,Hidpi,Lodpi:Byte;
dpi:WORD;
ExcelFile,ExcelSheet:String;
MyFormat:Word;
AData:THandle;
APalette:HPALETTE;
begin
Jpg:=TJpegImage.Create;
try
Bmp:=TBitmap.Create;
Ms:=TMemoryStream.Create;
try
Bmp.Width:=2955;
Bmp.Height:=1622;
SetStretchBltMode(Bmp.Canvas.Handle,HALFTONE);
StretchBlt(Bmp.Canvas.Handle,219,0,2736,1622,
Image1.Canvas.Handle,0,0,Image1.Picture.Width,Image1.Picture.Height,SRCCOPY);
Jpg.Assign(Bmp);
Jpg.SaveToStream(Ms);
APPO_Offset:=GetAPP0_Offset(Ms);
Ms.Position:=APPO_Offset+2+9;
Units:=1;
Ms.Write(Units,1);
//ｿｽ像度ｿｽｿｽ300ｿｽﾉ設抵ｿｽ
dpi:=300;
Hidpi:=HiByte(dpi);
Lodpi:=LoByte(dpi);
Ms.Write(Hidpi,1);
Ms.Write(Lodpi,1);
Ms.Write(Hidpi,1);
Ms.Write(Lodpi,1);
Ms.Position:=0;
Jpg.LoadFromStream(Ms);
finally
Bmp.Free;
Ms.Free;
end;
ExcelFile:='C:¥Test.xls';
ExcelSheet:='Test';
try
ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=True;
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open
(ExcelFile,null,null,null,null,null,
null,null,null,null,null,null,null,null,null,0));
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[ExcelSheet]as_Worksheet);
try
//SaveToClipboardFormatｿｽﾅゑｿｽBitmapｿｽ`ｿｽｿｽｿｽﾉなゑｿｽ像度ｿｽｿｽ72dpiｿｽﾉ戻ゑｿｽ
Jpg.SaveToClipboardFormat(MyFormat,AData,APalette);
ClipBoard.SetAsHandle(MyFormat,AData);
//SaveToFileｿｽﾅゑｿｽ300dpiｿｽﾅ出ｿｽﾍでゑｿｽｿｽｿｽ
Jpg.SaveToFile('d:¥test.jpg');
ExcelWorksheet1.Range['A1','A1'].Select;
//ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽｿｽｿｽｿｽVｿｽ[ｿｽgｿｽﾉ画像ｿｽ¥ｿｽｿｽtｿｽｿｽ
ExcelWorksheet1.Paste;
except
ExcelWorksheet1.Range['A1','A1'].Select;
end;
ExcelWorkbook1.SaveAs('c:¥Test2.xls',Null,Null,Null,Null,Null,
xlNoChange,Null,Null,Null,Null,Null,0);
finally
ExcelApplication1.Disconnect;
end;
finally
Jpg.Free;
end;
end;
ｿｽｿｽLｿｽ¥ｿｽ[ｿｽXｿｽﾅ、Image1ｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽ鞫懶ｿｽｿｽgｿｽ蛯ｵｿｽAｿｽ像度ｿｽｿｽ300ｿｽﾉ変更ｿｽｿｽｿｽｿｽJpegｿｽｿｽ
ExcelｿｽｿｽSheetｿｽﾉクｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽoｿｽRｿｽﾅ貼ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽｿｽoｿｽRｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ黷ｵｿｽｿｽｿｽvｿｽｿｽｿｽﾂゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾅ、TJpegImageｿｽｿｽSaveToClipboardFormatｿｽｿｽgｿｽｿｽｿｽﾄ鯉ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽA
Bitmapｿｽﾉ戻ゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽAｿｽ像度ｿｽｿｽ72dpiｿｽﾉ戻ゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
SaveToFileｿｽｿｽgｿｽｿｽｿｽｿｽ300dpiｿｽｿｽJpegｿｽﾅ保托ｿｽｿｽoｿｽｿｽｿｽｿｽﾌで、SaveToClipboardFormat
ｿｽｿｽgｿｽｿｽｿｽﾄは厄ｿｽｿｽｿｽｿｽﾈんだと擾ｿｽｿｽｿｽﾉ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾈにゑｿｽｿｽﾇゑｿｽｿｽｿｽｿｽ@ｿｽﾍなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾂ具ｿｽｿｽﾍ、Delphi7+Excel2003ｿｽﾅゑｿｽｿｽB
ｿｽﾆゑｿｽｿｽ閧ｷｿｽｿｽｿｽｿｽ 2007/04/17(ｿｽｿｽ) 12:59:10
ｿｽgｿｽｿｽkｿｽｿｽｿｽ@ｿｽﾆ dpiｿｽﾌ変更ｿｽ@ｿｽﾆの間には抵ｿｽｿｽﾚの関係ｿｽﾍなゑｿｽｿｽじゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽHｿｽHｿｽHｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽﾅゑｿｽjokｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾍ出ｿｽﾍデｿｽoｿｽCｿｽXｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽtｿｽgｿｽﾖの指ｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽﾌで画像ｿｽｿｽｿｽﾌゑｿｽﾌには変会ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾆ擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
boon 2007/04/17(ｿｽｿｽ) 14:07:56
ｿｽﾆゑｿｽｿｽ閧ｷｿｽｿｽｿｽ閧ｳｿｽｿｽ
ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾍ。
ｿｽmｿｽｿｽｿｽﾉ拡ｿｽｿｽkｿｽｿｽｿｽｿｽdpiｿｽﾏ更ｿｽﾆの間には抵ｿｽｿｽﾚ関係ｿｽﾍなゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾍ難ｿｽｿｽﾉ厄ｿｽｿｽﾍなゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽ‾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊは「300dpiｿｽﾌ画像ｿｽｿｽExcelｿｽｿｽ
ｿｽVｿｽ[ｿｽgｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽTｿｽCｿｽYｿｽﾌ画像ｿｽｿｽ72dpiｿｽﾌ包ｿｽｿｽﾆ、300dpiｿｽﾌ包ｿｽｿｽｿｽExcelｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽｿｽﾆ、
ｿｽｿｽｿｽR300dpiｿｽﾌ包ｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽﾟに拡ｿｽ蛯ｵｿｽﾄゑｿｽｿｽｿｽけｿｽﾅゑｿｽｿｽB
Excelｿｽｿｽｿｽ300dpiｿｽﾌ画像ｿｽｿｽRｿｽsｿｽ[ｿｽｿｽｿｽｿｽﾆ、ｿｽ¥ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽｿｽ300dpiｿｽﾈので、
ｿｽｿｽｿｽﾇの擾ｿｽｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽﾌ使ｿｽｿｽｿｽｿｽｿｽﾌ厄ｿｽｿｽﾈんじゑｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾆゑｿｽｿｽ閧ｷｿｽｿｽｿｽｿｽ 2007/04/17(ｿｽｿｽ) 15:09:12
EXCELｿｽﾅ ｿｽ}ｿｽｿｽ->ｿｽ}->ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾅ挿ｿｽｿｽｿｽｿｽｿｽｿｽﾆ確ｿｽｿｽｿｽｿｽdpiｿｽﾉゑｿｽｿｽｿｽﾄ大きｿｽｿｽｿｽｿｽｿｽﾏゑｿｽｿｽﾜゑｿｽｿｽﾋ・ｿｽEｿｽmｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍクｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽﾆは会ｿｽｿｽﾌ関係ｿｽｿｽﾈゑｿｽｿｽけｿｽﾅ・ｿｽE
ｿｽuｿｽ}ｿｽｿｽ->ｿｽ}->ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾌ托ｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽoｿｽRｿｽﾌ貼ｿｽｿｽtｿｽｿｽｿｽﾅゑｿｽうｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾄでゑｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽiｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽj
ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽｿｽｿｽjpegｿｽfｿｽ[ｿｽ^ｿｽﾆゑｿｽｿｽﾄ托ｿｽｿｽﾝゑｿｽｿｽｿｽけｿｽｿｽｿｽ痰ｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
boon 2007/04/17(ｿｽｿｽ) 15:39:14
ｿｽ}ｿｽｿｽ->ｿｽ}->ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽﾅ挿ｿｽｿｽｿｽｿｽｿｽｿｽｿｽdpiｿｽﾉゑｿｽｿｽｿｽﾄ大きｿｽｿｽｿｽｿｽｿｽﾏゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謗ｿｿｽﾅ茨ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
Excelｿｽｿｽﾅゑｿｽｿｽﾌ挿ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽｿｽRｿｽsｿｽ[ｿｽｿｽｿｽｿｽﾆ、ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽoｿｽRｿｽﾅゑｿｽ像度ｿｽｿｽﾛ趣ｿｽｿｽｿｽｿｽｿｽｿｽﾜま貼ｿｽｿｽtｿｽｿｽｿｽoｿｽｿｽｿｽｿｽﾌで、ｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾍなゑｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽ蛯､ｿｽH
ｿｽｿｽｿｽﾈみゑｿｽExcelｿｽｿｽﾅコｿｽsｿｽ[ｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽﾍ、Jpegｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾍ抵ｿｽｿｽﾗてゑｿｽｿｽﾈゑｿｽﾅ包ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、Jpegｿｽﾆゑｿｽｿｽﾄ保趣ｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽiｿｽ痰､ｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽj
JpegｿｽｿｽGifｿｽｿｽPngｿｽ窿ｿｽ^ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾆゑｿｽｿｽﾄ変奇ｿｽｿｽｿｽｿｽﾄ貼ｿｽｿｽtｿｽｿｽｿｽ骼厄ｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽｿｽﾈゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾈ外ｿｽｿｽExcelｿｽﾉデｿｽ[ｿｽ^ｿｽnｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾋ・ｿｽEｿｽE
ｿｽﾆゑｿｽｿｽ閧ｷｿｽｿｽｿｽｿｽ 2007/04/17(ｿｽｿｽ) 16:08:20
ｿｽｿｽ閧ｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽEXCELｿｽ}ｿｽNｿｽｿｽｿｽﾅ記ｿｽ^ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ動ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽBDS2006ProｿｽﾅゑｿｽDelphiｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽｿｽﾆ会ｿｽｿｽﾌゑｿｽｿｽｿｽofficeｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽiｿｽIｿｽjｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、
ｿｽ}ｿｽｿｽ->ｿｽ}->ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾌマｿｽNｿｽｿｽｿｽﾌ抵ｿｽｿｽgｿｽｿｽ
ActiveSheet.Pictures.Insert("ｿｽKｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽ72DPI.jpg")
ｿｽｿｽﾌ記ｿｽqｿｽﾉ托ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽA
ExcelWorksheet1.Pictures.Insert('ｿｽKｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽ72DPI.jpg');
ｿｽﾄな奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽEｿｽEｿｽEｿｽiｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが）
ｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽsｿｽｿｽｿｽしｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽiｿｽｿｽｿｽﾓ任ｿｽj
dpiｿｽｿｽﾏ更ｿｽｿｽｿｽﾄセｿｽ[ｿｽuｿｽｿｽｿｽAｿｽｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽqｿｽﾌ包ｿｽｿｽ@ｿｽﾅイｿｽｿｽｿｽTｿｽ[ｿｽgｿｽｿｽｿｽｿｽﾎでゑｿｽｿｽﾜゑｿｽｿｽか？
boon 2007/04/17(ｿｽｿｽ) 16:20:14
ｿｽﾆゑｿｽｿｽ閧ｷｿｽｿｽｿｽ閧ｳｿｽｿｽ
ｿｽｿｽLｿｽｿｽｿｽ@ｿｽﾍ趣ｿｽｿｽｿｽlｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAPicturesｿｽﾍ使ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAInsertｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽｿｽEｿｽEｿｽEｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽEｿｽEｿｽE
ｿｽoｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽﾌ厄ｿｽｿｽﾈのゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽしｿｽﾄみまゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽ 2007/04/17(ｿｽｿｽ) 19:47:23
>Jpegｿｽﾆゑｿｽｿｽﾄ保趣ｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
WindowsｿｽｿｽSDKｿｽｿｽｿｽxｿｽｿｽｿｽｿｽJpegｿｽｿｽFｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽrｿｽbｿｽgｿｽ}ｿｽbｿｽvｿｽﾉなゑｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
boon 2007/04/18(ｿｽｿｽ) 09:09:10
ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
ｿｽﾈゑｿｽﾙど。
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽｿｽﾅはビｿｽbｿｽgｿｽ}ｿｽbｿｽvｿｽﾆゑｿｽｿｽﾄ趣ｿｽｿｽﾂゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽﾈゑｿｽﾙど。ｿｽﾈゑｿｽﾙど。
ｿｽﾜゑｿｽｿｽrｿｽbｿｽgｿｽ}ｿｽbｿｽvｿｽﾅはまゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAJpegｿｽﾅなゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾌゑｿｽ300dpiｿｽｿｽｿｽｿｽｿｽmｿｽﾛ出ｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾇね。
_Worksheet.PasteSpecialｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽﾅなゑｿｽﾆゑｿｽｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾈと考ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
http://msdn2.microsoft.com/ja-jp/library/microsoft.office.interop.excel._worksheet.pastespecial(vs.80).aspx
boon 2007/04/18(ｿｽｿｽ) 09:16:27
PasteSpecialｿｽﾅは厄ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ・ｿｽEｿｽE
ｿｽﾆゑｿｽｿｽ閧ｷｿｽｿｽｿｽｿｽ 2007/04/18(ｿｽｿｽ) 11:20:35
ｿｽｿｽｿｽﾍ解像度ｿｽﾈゑｿｽﾄゑｿｽﾌゑｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽAｿｽ}ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鞫懶ｿｽﾌスｿｽPｿｽ[ｿｽｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾅよいｿｽﾆ思ｿｽｿｽｿｽB
ｿｽﾅゑｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽﾜでの暦ｿｽｿｽｿｽﾉ会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾈみに趣ｿｽｿｽｿｽBDS2006ProｿｽﾅゑｿｽOfficeｿｽRｿｽｿｽｿｽ|ｿｽｿｽｿｽｿｽｿｽｿｽｿｽiｿｽｿｽｿｽﾌゑｿｽｿｽﾈ・ｿｽEｿｽHｿｽjｿｽﾌで ComObjｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾍ便擾ｿｽHｿｽｿｽｿｽ竄ｵｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽBDS2006ProｿｽｿｽDelphiｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾅゑｿｽOfficeｿｽRｿｽｿｽｿｽ|ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾇ、ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾎ・ｿｽEｿｽH
ｿｽｿｽUsesｿｽ@ｿｽﾉ comobjｿｽ@ｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽ驍ｱｿｽｿｽ
procedureTForm1.Button1Click(Sender:TObject);
var
E_Excel:Variant;
E_Application:Variant;
E_WorkBook:Variant;
E_WorkSheet:Variant;
begin
//ExcelｿｽｿｽIｿｽ[ｿｽvｿｽｿｽ
try
E_Excel:=CreateOleObject('Excel.Application');
E_Application:=E_Excel.Application;
except
onEOleSysErrordobegin
//ｿｽNｿｽｿｽｿｽｿｽｿｽs
ShowMessage('ExcelｿｽｿｽｿｽNｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽ');
E_Excel:=Null;
Exit;
end;
end;
E_Application.Visible:=True;
E_Application.WorkBooks.Open(ExtractFilePath(Application.ExeName)+'MyData.xls');
E_WorkBook:=E_Application.ActiveWorkbook;
E_WorkSheet:=E_Application.ActiveSheet;
//ｿｽZｿｽｿｽA1ｿｽﾉ画像ｿｽｿｽ}ｿｽｿｽ
E_Application.Range['A1:A1'].Select;
E_WorkSheet.Pictures.Insert('c:¥ｿｽｿｽｿｽｿｽ72DPI.jpg').select;
//ｿｽｿｽｿｽｿｽｿｽﾅ画像ｿｽｿｽｿｽｿｽRｿｽﾉ伸ｿｽkｿｽiｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽj
E_WorkSheet.Pictures[1].ShapeRange.ScaleWidth(0.5,0,0);
E_WorkSheet.Pictures[1].ShapeRange.ScaleHeight(0.5,0,0);
E_Excel:=unAssigned;
E_WorkBook:=Unassigned;
E_WorkSheet:=Unassigned;
end;
ｿｽQｿｽl
http://madia.world.coocan.jp/delphi/delphi_bbs/200602/200602_06020001.html
boon 2007/04/18(ｿｽｿｽ) 11:52:11
var
Xlsheet:Variant;
Jpg.SaveToFile('c:¥test.jpg');
Xlsheet:=ExcelWorkbook1.ActiveSheet;
Xlsheet.Pictures.Insert('c:¥test.jpg');
TExcelWorksheetｿｽﾅは、Insertｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽTｿｽ|ｿｽ[ｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅ、
ｿｽｿｽLｿｽﾌようｿｽﾉゑｿｽｿｽ骼厄ｿｽﾅ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾆタｿｽCｿｽgｿｽｿｽｿｽﾆは趣ｿｽ|ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾈ会ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
boon 2007/04/18(ｿｽｿｽ) 12:14:58
ｿｽﾆゑｿｽｿｽ閧ｷｿｽｿｽｿｽ閧ｳｿｽｿｽ
ｿｽざｿｽざｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾇのとゑｿｽｿｽｿｽComObjｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽﾋ。
OfficeｿｽRｿｽｿｽｿｽ|ｿｽﾍイｿｽ}ｿｽCｿｽ`ｿｽﾌようｿｽﾅ・ｿｽEｿｽEｿｽｿｽ
ｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽ}ｿｽCｿｽ`ｿｽﾈのゑｿｽｿｽﾈゑｿｽｿｽ`ｿｽｿｽ
boon 2007/04/18(ｿｽｿｽ) 12:16:18
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ忘ｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽiｿｽｿｽｿｽj
boon 2007/04/18(ｿｽｿｽ) 17:44:26
ｿｽﾆゑｿｽｿｽ閧ｷｿｽｿｽｿｽ閧ｳｿｽｿｽ
BDS2006ProｿｽｿｽOfficeｿｽRｿｽｿｽｿｽ|ｿｽﾌ鯉ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽｿｽBDSｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌでなゑｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌｿｽｿｽｿｽｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅは、ｿｽCｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽC++ｿｽpｿｽｿｽDelphiｿｽpｿｽﾌどゑｿｽｿｽ轤ｩｿｽｿｽｿｽｿｽｿｽIｿｽﾗなゑｿｽｿｽﾌではなゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽQｿｽlｿｽﾉなるかｿｽﾇゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
http://homepage2.nifty.com/Mr_XRAY/Delphi/CompoInstall/BDS2006Install.htm
ｿｽﾆゑｿｽｿｽ閧ｷｿｽｿｽｿｽｿｽ 2007/04/19(ｿｽｿｽ) 12:59:15
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽﾈダｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽoｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽ1ｿｽNｿｽOｿｽﾉなゑｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽ闔ｸｿｽOｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
