[[20021021094814]]　『userform のimageにpicutureをloadする方法』（hisao）　ページの最後に飛ぶ

『userform のimageにpicutureをloadする方法』（hisao）

Cドライブの\my documents\my pictureに 1.jpg 2.jpg 3.jpg等のファイル

があるとします。

一方　CドライブのtableAのrange("A1")の数値を読み取って、これを変数Kとします。

tableAのuserformに　k.jpg のimageをロードする方法を教えてください。

range("A1")が"1"なら　1.jpg を見せる、"2"なら　2.jpgを表示したいのですが

k=range("A1").value

image1.picture=loadpicture("c:\my documents\my picuture\" & k & ".jpg")

とか

k=range("A1").value

textbox1.text="c:\my documents\my picuture\" & k & ".jpg"

image1.picture=loadpicture(textbox1.text)

とか　してみたのですが　うまく表示されません。お助けください。

 私のマシンでは下の方法でうまく画像をロードして、表示できます。

 参考になれば。

 （kazu）

 Private Sub UserForm_Initialize()

 UserForm1.Image1.Picture = _

        LoadPicture("C:\Documents and Settings\kazu\My Documents\html-e\newyork5.jpg")

 End Sub

早速有難う御座います。いつもすみません。

loadpictureで　表示できたり出来なかったりします。

マシンが古いから　ちょっときついのかも知れませんね。

それと　iamgeのサイズと　原画の jpg のサイズが　うまく適合してないのかもしれません。

（hisao）

 マシンの古さはあまり関係ないと思います。

 よかったら、下の２項目を試してみてください。

（１）UserForm1.Image1.Picture = LoadPicture("newyork5.jpg")

　　　のように先頭にUserForm名をつけてみる。

（２）基本的に画像を頻繁に変えるという設計になっていないので、

　　　Form_Initializeの時に、すべての画像をロードしてしまって、

　　　[非表示]Image1.visible = falseにしておいて、

　　　必要な時に[表示]Image1.visible = trueにする

（kazu）

コメント返信：