- 日時： 2007/08/09 14:17
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[エクセル][][] *
* キーワード：画像,イメージ,クリップボード *
***********************************************************************************
元質問：VBからExcelのシートへ画像転送 - ogaway 2002/08/21-11:28 No.92
VBからExcelのシートへ画像を貼り付けたいと思います。
詳細はVBのフォームにイメージコントロールか、ピクチャーコントロールに表示されている画像を、Excelのシートのあるセルに転送したいと思っています。
-----------------------------------------------------------------------------------
Excelのシートに画像を表示及びサイズ変更 - 花ちゃん 2007/08/08
-----------------------------------------------------------------------------------
１．Pictureオブジェクトを使って表示
Excel2002 からの機能です。簡単だけど画像サイズが元のサイズより大きく表示される
（この事はExcel上で画像を呼び込んでも同じである。）
２．クリップボード経由での貼付け
こちらは元のサイズで表示します。
３．Excel上に表示したPictureにVBから指定の画像を表示する方法です。
予め、Excelファイル内にマクロを作成しておきそのマクロをVBから操作する
４．Excel上に表示した画像を拡大表示する
５．Excel上に表示した画像を縮小表示する
-----------------------------------------------------------------------------
上記サンプルコードは、当サイト内に掲載しております。
http://hanatyan.sakura.ne.jp/vbhlp/Excel12.htm
-----------------------------------------------------------------------------
元質問：EXCELに画像貼り付け - もんきい 2002/10/22-16:22 No.1098
-----------------------------------------------------------------------------
エクセルのテンプレートの特定のセルに、画像を貼り付けたいのですが、特定の位置に張り付けの指定方法が解りません。
-----------------------------------------------------------------------------
Re: EXCELに画像貼り付け - A221 2002/10/22-17:24 No.1099
-----------------------------------------------------------------------------
Private Sub Form_Load()
Dim strExcelFile As String
Dim objExcelbook As Excel.Workbook
strExcelFile = "C:\test.xls"
Set objExcelbook = GetObject(strExcelFile, "Excel.Sheet")
'セルに画像を貼り付け
objExcelbook.Windows(1).Visible = True
objExcelbook.ActiveSheet.Range("F10").Select
objExcelbook.ActiveSheet.Pictures.Insert("C:\aalogo.bmp").Select
End Sub
|
Excelのシートに画像を表示及びサイズ変更（VB6.0 基本編）