VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2002/10/22(Tue) 17:24
投稿者： A221
Ｅメール：
ＵＲＬ：
タイトル： Re: EXCELに画像貼り付け

こちらの環境はVB6.0 + Excel2002です。
こちらでは下記で、動作しました。

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

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -