![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
vb.netにて。。。
excelのグラフをピクチャーボックスにて
表示するプログラムを組んでおります。
使用するexcelは、excel2007(.xlsx形式)とexcel2002(.xls形式)です。
パソコンによって、入っているexcelが違うので、
どちの形式でも実行できるようにしたいです。
(問題)
2007では、正規のものがちゃんと表示されますが、
2002では、グラフの1/4程度の部分しか表示されません。
'クリップボードを初期化
Clipboard.Clear()
'クリップボードにコピー
Dim ChartSheet As Object
Dim ChartSheets As Object = objWorkBook.Sheets
Dim Chartobj As Object
'Dim ChartGraph As Object
ChartSheet = objWorkBook.Sheets((exlsht))
Chartobj = ChartSheet.ChartObjects((exlgra))
Chartobj.CopyPicture(Appearance:=1, Format:=2)
System.Threading.Thread.Sleep(2000)
Application.DoEvents()
'---------- クリップボード経由でPictureに貼り付け ------------------
If Clipboard.ContainsImage() Then
'クリップボードにあるデータの取得
Dim img As Image = Clipboard.GetImage()
If img IsNot Nothing Then
System.Threading.Thread.Sleep(2000)
'データが取得できたときは表示する
Form_PictureBox.PictureBox1.AutoSize = True
Form_PictureBox.PictureBox1.Image = img
System.Threading.Thread.Sleep(2000)
End If
End
exlshtは.xlsx形式か.xls型式かを選択したものが
exlgraは”グラフ1”を指定します。
クリップブックを使用してみてみると、
その段階で1/4程度のものをコピーしています。
Chartobj.CopyPicture
ではだめなのでしょうか?
ちなみに、エクセルの参照をすると、
2002ではえらーになるので、
Object型式で呼び出しています。
非常に困っております。
よろしくご教授願います。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
>2007では、正規のものがちゃんと表示されますが、
>Chartobj.CopyPicture(Appearance:=1, Format:=2)
Excel 2007 の CopyPicture では、ビットマップ形式でクリップボードにコピーはできなかった
はずですが?
実行環境と、グラフの作成環境をごっちゃにして質問していませんか?
(質問内容には、5W1H を含めて質問しないと相手に伝わりません。)
又、下記のような事をしていると回答を得られません。
http://moug.net/faq/viewtopic.php?t=55295&sid=b1 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マルチディスプレイを使用して...
-
エクセル マクロ オートフィ...
-
VBAマクロ実行時エラーの修正に...
-
B列の最終行までA列をオート...
-
VBA シートをコピーする際に Co...
-
エクセルで離れた列を選択して...
-
エクセルVBA 配列からセルに「...
-
VLOOKUPの列番号の最大は?
-
エクセル2016で時間を入力して...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
LEFT関数とIF関数の組み合わせ...
-
vbaで指定したセルより下の行を...
-
エクセルVBAが途中で止まります
-
VBA 別ブックからコピペしたい...
-
エクセルで特定の文字列が入っ...
-
エクセルで複数のシートのクリ...
-
Excelのマクロについて教えてく...
-
罫線の斜線を自動で引くマクロ
-
Excelで空白セル直前のセルデー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マルチディスプレイを使用して...
-
VBでexcelのプレビュー画面表示
-
VBscriptでEXCELを起動
-
beep音を変えたい
-
vbscriptでエクセルを操作する
-
あなたは何も恐れる必要はない...
-
フィルタ係数から特性を求める...
-
powershellスクリプトで出力し...
-
VB.NET Excelの解放
-
VBAマクロ実行時エラーの修正に...
-
Worksheets メソッドは失敗しま...
-
マクロの「SaveAs」でエラーが...
-
エクセルで特定の文字列が入っ...
-
エクセルで離れた列を選択して...
-
B列の最終行までA列をオート...
-
VBA シートをコピーする際に Co...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセル マクロ オートフィ...
-
Excelで、あるセルの値に応じて...
-
エクセルVBAが途中で止まります
おすすめ情報