保存图片有关问题

保存图片问题

  问题1：在chart里放了Edit控件，怎么把chart和Edit一起保存到本地或剪贴板里？
  
  问题2：事先用Word做好了一个模板，路径是 D：\1.doc ，怎么将问题1保存的图片插入到1.doc的第三行第四列下，并实现另存功能！！

  1和2实现的功能：用户区点保存按钮后，将图片以1.doc模板的格式保存到用户的指点路径下！！

  多多指教！！



[解决办法]
问题一：

C/C++ code

//Chart1 上面方的其它空间一起保存在图片里void __fastcall TForm1::Button1Click(TObject *Sender){    Graphics::TBitmap *BufferBmp = new Graphics::TBitmap();    BufferBmp->Canvas->Handle = CreateCompatibleDC(Canvas->Handle);    BufferBmp->Width  = Chart1->Width ;    BufferBmp->Height = Chart1->Height;    BitBlt(BufferBmp->Canvas->Handle,0,0,BufferBmp->Width,BufferBmp->Height,Chart1->Canvas->Handle,0,0,SRCCOPY);    BufferBmp->SaveToFile("C:\\bb.bmp");    delete BufferBmp;}
[解决办法]
C/C++ code
void __fastcall TForm1::Button1Click(TObject *Sender){    String strDocName = "F:\\demo\\ydlchina.doc";    Variant vWordApp;    try    {        vWordApp = Variant::CreateObject("Word.Application");    }    catch(...)    {        MessageBox(Handle, "启动Word出错！",                "提示", MB_OK | MB_ICONERROR);        vWordApp = Unassigned;        return;    }    vWordApp.OlePropertySet("Visible", true);    vWordApp.OlePropertyGet("Documents").            OleFunction("Open", strDocName.t_str());    Variant vSelect = vWordApp.Exec(PropertyGet("Selection"));    vSelect.OleFunction("MoveDown", 5, 2);//第三行    vSelect.OleFunction("MoveRight",1,3);//移动四列    vSelect.OlePropertyGet("InlineShapes").OleFunction("AddPicture","F:\\demo\\ydlchina.bmp",0,1);    Application->ProcessMessages();}
[解决办法]
探讨

引用:

C/C++ code

void __fastcall TForm1::Button1Click(TObject *Sender)
{
String strDocName = "F:\\demo\\ydlchina.doc";
Variant vWordApp;
try
{
vWordApp = Variant::CreateObje……