Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41919 / 76735

←次へ　｜　前へ→


	【39890】Re:UserFormへの画像の張り付け方

わいわい - 06/7/3(月) 18:15 -


	引用なし

	パスワード

Kein 様いつもいつも回答して頂きありがとうございます。 >↓こちらは、画像に登録して呼び出し専用とするマクロです。 > >Sub SetUF() >　 Dim FPath As String >　 Dim x As Variant >　 >　 x = Application.Caller >　 If VarType(x) <> vbString Then Exit Sub >　 FPath = ActiveSheet.Pictures(x) _ >　 .ShapeRange.AlternativeText >　 MsgBox FPath >　 If UserForms.Count > 0 Then Unload UserForm1 >　 UserForm1.Show >　 On Error Resume Next >　 With UserForm1.Image1.Picture >　　　.LoadPicture = "" >　　　.LoadPicture = FPath >　 End With >End Sub > >*コードは間違いないはずですが、なぜかこちらのテストでは何度やっても >画像を表示できませんでした。 >こちらのImageオブジェクトは、どこかがおかしいみたいです・・。下記のように変更したら表示できました。 Sub SetUF() 　 Dim FPath As String 　 Dim x As Variant 　　 x = Application.Caller 　 If VarType(x) <> vbString Then Exit Sub 　 FPath = ActiveSheet.Pictures(x) _ 　 .ShapeRange.AlternativeText 　 MsgBox FPath 　 If UserForms.Count > 0 Then Unload UserForm1 >> UserForm1.Show 0　　モーダル起動していたので処理が止まっていた？(1) '　 With UserForm1.Image1.Picture '　　　.LoadPicture = "" '　　　.LoadPicture = FPath '　 End With >> With UserForm1.Image1　　'WithブロックなんちゃらとErrorが出たので修正 >>　　.Picture = LoadPicture("") >>　　.Picture = LoadPicture(FPath) >> End With >> UserForm1.Show　　　Picture設定してからForm表示。(2)　(1)とどちらか一方　 On Error Resume Next End Sub 但しこれですと、FPathで指定しているように外部に画像データを配置しなければならないと思う(実際にフォルダ名称変更でError)のですが、本体ファイル以外にファイル準備をしなくても良いように出来ないですか？例えばxを使ってですが。