コントロールの挿入と同時に画像を表示する方法

質問

アクティブエックスコントロールのイメージコントロールの設置と同時に、
画像をそのコントロールに表示するｖｂａを作ってるのですが、
実行時エラー438が発生します。

Sub test()
Dim objOLE As OLEObject

Set objOLE = ActiveSheet.OLEObjects.Add("Forms.Image.1")

With objOLE
.Name = "Image"
.Picture = LoadPicture("C:\1.gif")
End With

End Sub

C:\1.gifのパスをブラウザで表示させることはできるので、ファイルは存在しているし、
パスは間違っていません。

.Picture = LoadPicture("C:\1.gif")
をコメントアウトすれば正常にコントロールが挿入されます。

コントロールの挿入と同時に画像を表示する方法を教えてください。
ご回答よろしくお願いします。

回答No.1

DreamyCat · ベストアンサー

そのままだとpictureプロパティが存在しないので
.object.Picture = LoadPicture("C:\1.gif")
とすればloadできます。
　なぜかは知りません。

お礼

ありがとうございます。