vbでエクセルのシートに貼り付けたイメージコントロールに
画像を表示したいんですが、下記のようなコードでは
ダメでした。☆印の所をどう書けばいいんですか？

-------------------------------------------------

Dim wExcel              As Excel.Application
Dim wWorkBooks          As Excel.Workbook
Dim wWorkSheets         As Excel.Worksheet
Dim image1 As OLEObject
    Set wExcel = New Excel.Application
    Set wWorkBooks = wExcel.Workbooks.Open("C:\WINDOWS\デスクトップ\Book1.xls")
    Set wWorkSheets = wWorkBooks.Worksheets(1)
    
　　Set image1 = wWorkSheets.OLEObjects(1)
  ☆image1.Picture = LoadPicture("C:\04.jpg")
  
    wExcel.Quit
    Set wExcel = Nothing
    Set wWorkBooks = Nothing
    Set wWorkSheets = Nothing
    Set wCheck = Nothing
------------------------------------------

xlsファイルに

Sub LoadPictureEX(jpgFile As String)
    Sheet1.Image1.Picture = LoadPicture(jpgFile)
End Sub

みたいなマクロ用意して、

VBから

wExcel.Run "LoadPictureEX", "C:\04.jpg"

するとか・・・

> xlsファイルに
>
> Sub LoadPictureEX(jpgFile As String)
>     Sheet1.Image1.Picture = LoadPicture(jpgFile)
> End Sub
>

Sayさんありがとうございます。試してみて
また結果をお知らせしますね。