MSChartのグラフをエクセルに貼り付けるには？

解決

聖二 2004-02-07 11:35:57 No: 81906 IP: [192.*.*.*]

皆様、お世話になります。どうぞよろしくお願い致します。

MSChartのグラフをクリップボード経由で
エクセルに貼り付けたいのですが。

現状のコードは
Clipboard.Clear
MSChart1.EditCopy
です。
これで、ユーザーがエクセルに移り
貼り付けてもらいます。
通常の貼り付けでは、データ（テキスト）になってしまいます。
形式を選択して貼り付けで、ビットマップを選択すれば
うまくいくようです。
ユーザーとしては、自分だけでなく
不特定の人を対象としていますので
どうにか、通常の貼り付けで、グラフ自体を貼り付けることは
出来ないでしょうか。
（一太郎で貼り付けても同様でした。）

よろしくお願い致します。

編集削除

魔界の仮面弁士 2004-02-07 16:02:29 No: 81907 IP: [192.*.*.*]

余分なデータを破棄してしまうとか。

    Dim Bmp As Picture
    Dim WMF As Picture

    Clipboard.Clear
    MSChart1.EditCopy

    Set Bmp = Clipboard.GetData(vbCFBitmap)
    Set WMF = Clipboard.GetData(vbCFEMetafile)
    Clipboard.Clear

    Clipboard.SetData Bmp, vbCFBitmap
    Clipboard.SetData WMF, vbCFEMetafile

編集削除

聖二 2004-02-09 17:13:04 No: 81908 IP: [192.*.*.*]

魔界の仮面弁士様、ありがとうございます。

うまくいきました。
私の場合では、WMFはコピーしない方が良いみたいでした。
本当に、ありがとうございました。

編集削除