저장하는 방법은 알았습니다
   Graphics::TBitmap *Bitmap = new Graphics::TBitmap();
    Bitmap->Width = MainDrawPaintBox->Width;
    Bitmap->Height = MainDrawPaintBox->Height;
    Bitmap->Handle = CreateCompatibleBitmap(MainDrawPaintBox->Canvas->Handle,
                     MainDrawPaintBox->Width,MainDrawPaintBox->Height);
                    BitBlt(Bitmap->Canvas->Handle, 0, 0, Bitmap->Width,
                     Bitmap->Height, MainDrawPaintBox->Canvas->Handle,
                     0, 0, SRCCOPY);
    Clipboard()->Assign(Bitmap);

로 하면 됩니다.

그런데, MainDrawPaintBox의 배경색이 검정색이라
이를 흰색으로 바꾸서 MS-Word에 저장하고 싶은데,
이 과정을 메크로로 저장된것을 보니,

      Selection.InlineShapes(1).PictureFormat.TransparentBackground = msoTrue
      Selection.InlineShapes(1).PictureFormat.TransparencyColor = RGB(0, 0, 0)
      Selection.InlineShapes(1).Fill.Visible = msoFalse
로 되어 있습니다.

원하는 것은 검정바탕색으로 그려진 MainDrawPaintBox의 그림을
MS-WORD에 저장하는 것인데,

1. 클립보드로 복사할때 배경색을 ???기법으로 바꾼다,
2. 위의 메크로를 OLE로 하여 WORD에서 색을 바꾼다.

이 중에서 2번 방법을 쓰고 싶은데
      Selection.InlineShapes(1).PictureFormat.TransparentBackground = msoTrue
      Selection.InlineShapes(1).PictureFormat.TransparencyColor = RGB(0, 0, 0)
      Selection.InlineShapes(1).Fill.Visible = msoFalse

를 어떻게 WordDocument 나 WordApplication 콤포넌트를 이용해서
할 수 있는지요?



김용수 님이 쓰신 글 :
: PaintBox에 있는 그림을
:
: 클립보드로 저장하려고 합니다.
:
: 파일로는
: Graphics::TBitmap *Bitmap = new Graphics::TBitmap()
: ....
: 해서 저장할 수 는 있는데, 클립보드로는 방법을 모르겠습니다
: 도와 주십시요!