タイトル : 【解決】: Excelの『既存』グラフをクリップボード経由でPictureBoxに貼付 投稿日 : 2010/11/12(Fri) 14:59 投稿者 : 酔いどれ熊
ありがとうございます。ばっちりグラフが表示されました。 -------------------------------------- '=============== グラフの表示設定 ======================= Dim MyChart1 As Excel.Chart MyChart1 = CType(xlBook.Charts("Graph1"), Excel.Chart) '"Graph1"はチャート名 MyChart1.CopyPicture(Appearance:=Excel.XlPictureAppearance.xlScreen, _ Size:=Excel.XlPictureAppearance.xlScreen, _ Format:=Excel.XlCopyPictureFormat.xlBitmap) 'クリップボードにあるデータを取得してPictureBox1に表示 Dim iData As IDataObject = Clipboard.GetDataObject() If iData.GetDataPresent(System.Windows.Forms.DataFormats.Bitmap) Then PictureBox1.Image = CType(iData.GetData(DataFormats.Bitmap), Image) End If MRComObject(MyChart1) 'MyChart1 の解放 -------------------------------------- >これで得られるのは、Worksheet 上のチャートオブジェクト(ChartObject)ですね。 >こちらはグラフシート(Chart)ですね。 勉強になりました。同じグラフなのに表示場所によって違ってくるんですね。 管理人(花ちゃん)さん、魔界の仮面弁士さん 本当に有り難うございました。 |