Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5465 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【50629】Excelのセル内にピクチャを値として入力、表示させる方法 たなか 07/8/6(月) 10:57 質問[未読]
【50630】Re:Excelのセル内にピクチャを値として入力... neptune 07/8/6(月) 13:43 発言[未読]
【50632】Re:Excelのセル内にピクチャを値として入力... たなか 07/8/6(月) 15:56 お礼[未読]
【50629】Excelのセル内にピクチャを値として入力...
質問  たなか  - 07/8/6(月) 10:57 -
引用なし
パスワード
   Excelのセル内に以下の様な漢字のコードで絵を貼り付けたいのですが、"System.Drawing.Bitmap"の文字列がでるだけです。
修正方法をご存知であれば、どのようにコードを修正すればよいかお教え下さい。
また、エクセルシートをソート等しても値が付いてくるように、エクセルシート内の値としてピクチャオブジェクトを表示したいと思っています。
初心者で基礎的な内容かもしれませんが、宜しく教えて下さい。

環境：Excel 2003

'===============================================================
　Dim xlApp As New Excel.Application
　　　　Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
　　　　Dim xlBook As Excel.Workbook = xlBooks.Add
　　　　Dim xlSheets As Excel.Sheets = xlBook.Worksheets
　　　　Dim xlSheet As Excel.Worksheet = xlSheets.Item(1)
　　　　xlApp.Visible = True　
　　　　Dim xlRange As Excel.Range
　　　　Dim xlCells As Excel.Range
　　　　xlCells = xlSheet.Cells

　xlRange = xlCells(4, 2)
　xlRange.Value =　System.Drawing.Bitmap.FromFile("C:\temp\aaa.bmp")
'===================================================================
【50630】Re:Excelのセル内にピクチャを値として入...
発言  neptune  - 07/8/6(月) 13:43 -
引用なし
パスワード
   ▼たなか さん：
こんにちは

UPされているソースは.netからExcelを操作するソースですよね？
それなら、VB.net系の掲示板を利用したほうがResが付き易いですよ。

>xlRange.Value =　System.Drawing.Bitmap.FromFile("C:\temp\aaa.bmp")
は、.net Frameworkのクラス ですから、VB(A)の型には合わないと思いますよ。

先ず、Excelの機能のマクロの記録で、Sheetへファイルから画像を挿入する
操作を記録して、それを、.net用に改造したらどうですか？
【50632】Re:Excelのセル内にピクチャを値として入...
お礼  たなか  - 07/8/6(月) 15:56 -
引用なし
パスワード
   有難う御座いました。マクロの記録結果を参照して試行錯誤したところ、以下のコードで絵が貼り付けられました。あとはセルのサイズとかを調整すればなんとかなりそうです。
詳細は　VB.NET系の掲示板で更に聞いてみます。

--------------------------------
xlSheet.OLEObjects.Add(Filename:="C:\temp\aaa.bmp", Link:=False, DisplayAsIcon:=False).Select()
---------------------------------
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5465 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free