VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/04/23(Wed) 11:43 |
| 投稿者 | ： miya |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^8: エクセルのグラフをＶＢで表示 |
> この辺が確認できるコードを投稿して頂けませんか。
> （クリップボードにコピーする方法でピクチャーボックスに表示）この辺のコードも含め
下記のようなコードでテストしました。
クリップボードにコピーの部分はサンプルの流用です。
Option Explicit
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Private Sub Command1_Click()
Dim filePath As String
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(App.Path & "\test1.xls")
Set xlSheet = xlBook.Worksheets("sheet1")
'クリップボードを初期化
Clipboard.Clear
'クリップボードにコピー
xlSheet.ChartObjects("グラフ 1").Copy
'---------- クリップボード経由でPictureに貼り付け ------------------
'クリップボードにメタファイルが入っているかチェック
If Clipboard.GetFormat(vbCFMetafile) Then
'メタファイルならピクチャーコントロールに貼り付け
Picture1.Picture = Clipboard.GetData()
End If
End Sub
Private Sub Command2_Click()
xlBook.Close SaveChanges:=False
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Unload Me
End Sub
> 又、貴方の環境も教えて下さい。
・Windows2000
・Excel2000
・VB6.0(SP5)
です。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）