VB6.0のフォームを使ってExcelのフォーマットへ記入するプログラムを作って
います。
ExcelにImageコントロールを配置し、そこにVBにある画像を表示させたいので
すが、どうやっても出来ません；；

Sht.Pictures.Insert(イメージパス).Select
Sht.OLEObjects("Image1").Picture = LoadPicture(イメージパス)

２行目でエラーが発生します。

どうしたらImageコントロールに収まるのかご指導ください。

> Sht.OLEObjects("Image1").Picture = LoadPicture(イメージパス)

(1) フォーム上に Image コントロールが貼ってあって、
　かつ、その名前が Image1 になっているでしょうか。

(2) OLEObject に、Picture というプロパティはありません。
　もし、Image コントロールの Picture プロパティを使うのであれば、
　.Picture ではなく、.object.Picture という構文になります。

(3) VB6 で LoadPicture した画像は、Excel 側では読めません。
　（VB.[Global].LoadPicture でも、stdole.StdFunctions.LoadPicture でも）
　Excel VBA 側に、LoadPicture するためのコードを用意しておき、それを
　VB6 側から Run する事で読み込ませるか、または Image コントロールを使わず、
　Picture オブジェクトで代用するなど方法で対応してみてください。

魔界の仮面弁士さん回答ありがとうございます。

> (1) フォーム上に Image コントロールが貼ってあって、
> 　かつ、その名前が Image1 になっているでしょうか。

Excelのフォーマット上にImageコントロールが貼ってあります。
名称はImage1です。

> (2) OLEObject に、Picture というプロパティはありません。
> 　もし、Image コントロールの Picture プロパティを使うのであれば、
> 　.Picture ではなく、.object.Picture という構文になります。

Sht("Image1").Object.Picture
という形でも試してみましたが、やはりエラーでした；；

> (3) VB6 で LoadPicture した画像は、Excel 側では読めません。
> 　（VB.[Global].LoadPicture でも、stdole.StdFunctions.LoadPicture でも）
> 　Excel VBA 側に、LoadPicture するためのコードを用意しておき、それを
> 　VB6 側から Run する事で読み込ませるか、または Image コントロールを使わず、
> 　Picture オブジェクトで代用するなど方法で対応してみてください。

> 　Excel VBA 側に、LoadPicture するためのコードを用意

すみません…そのコードをどのように用意するのかすら分からない状態です。
Pictureにしなかった理由は、Imageだとどんな画像でも縮小してもらえるからです。

ここのExcel関係の下記ではだめなのですか？
http://hanatyan.sakura.ne.jp/vbhlp/Excel12.htm

> ここのExcel関係の下記ではだめなのですか？
> http://hanatyan.sakura.ne.jp/vbhlp/Excel12.htm

はい；；
シートには反映するのですが、Imageコントロールに表示することは出来ませんでした。

> > ここのExcel関係の下記ではだめなのですか？
> > http://hanatyan.sakura.ne.jp/vbhlp/Excel12.htm
>
> はい；；
> シートには反映するのですが、Imageコントロールに表示することは出来ませんでした。

３方法のの内の一番下に書いてある方法は Image1 に表示しておりますが。

> ３方法のの内の一番下に書いてある方法は Image1 に表示しておりますが。

xlApp.Run "image1", イメージパス

とやってみましたが、

オブジェクト変数または With ブロック変数が設定されていません。

が発生してしまいました。

> ３方法のの内の一番下に書いてある方法は Image1 に表示しておりますが。

xlApp.Run "Test.xls!SetPicture", myPath & "image.jpg"

というステートメントを

xlApp.Run "Test.xls!SetPicture", イメージパス

に変えてみましたが、やはり同じエラーが発生してしまいます；；

やはり、同じようにやっても表示されません。
いろいろご指導ありがとうございました。
何が原因になっているか調べてみます！

こういうの書くの嫌なんですが、

なぜ、３つもマルチするんですか？
mougで指摘されて、なぜこちらをそのままにしておくんですか？
ここもマルチは厳しく禁止されていますよ。

管理人様、neptune様

結果的にマルチになってしまい大変申し訳ありませんでした。