Imageコントロール vba

質問

Imageコントロールをsheetに直接はりました。

ｓｈｅｅｔにはったイメージをExcelを開いたときにリンク先のものに変えたいです。

Image1_Click()を使えばクリックすると切り替えることができます。
Image1.Picture = LoadPicture("C:\イメージ.bmp")

クリックせずにExcelをひらくと「イメージ.bmp」を参照して画像が変わるようにしたいのですが、どうしたらよいでしょうか。

回答No.1

ap_2 · ベストアンサー

ファイルオープン時のイベントなら、以下。ほとんど同じなので、お好みでどうぞ。
　・シートイベントに、Workbook_Open()
　・標準モジュールに、Auto_Open()

また、セルからFunctionを呼ぶ手もあります。引数にNOW()を渡せば、オープン時などに再計算が走ります。ほぼネタですが。
　'セルから "=hoge(NOW())"で呼び出し　
　Function hoge(n)
　　set Activesheet.Image1.Picture = ...
　　hoge = ""
　End Function

お礼

夜に回答ありがとうございました。
ドシロウトなもので簡単なところでつまずきます。
もう一つ教えていただけないでしょうか。

image1.Picture = LoadPicture("C:\イメージ.bmp")
これをWorkbook_Open()にいれると「変数」をセットするかと思いますが、データ型はObject,imageのどれかになりますか？

申し訳ありません。

回答No.2

MARU4812

> image1.Picture = LoadPicture("C:\イメージ.bmp")
> これをWorkbook_Open()にいれると「変数」をセットするかと思いますが、
どれが「変数」と言っているのですか？Picture はプロパティですよ。
分からないなら普通に「Picture に設定されるイメージのデータ型」
とか言えばいいのでは？

> データ型はObject,imageのどれかになりますか？
[Shift]+[F2]でオブジェクトブラウザを表示させて関数の定義を確認
すれば分かる事です。
LoadPicture の戻り値は stdole.IPictureDisp(インターフェイス)
Picture プロパティの型は stdole.StdPicture(OLEオブジェクト)

お礼

ありがとうございました。