[[20050811110143]]　『msgbox内に画像を表示できますか？』（レイビジョン）　ページの最後に飛ぶ

『msgbox内に画像を表示できますか？』（レイビジョン）

こんにちは、何時もお世話になっています。宜しく御願い致します。

 Sub 画像()
    MsgBox "この絵を見てください", , "あなたなら、どう考えますか？"
End Sub

 上記のような時、イメージ的には「入力規則」のように
画像を表示することって出来るのでしょうか？
入力規則では、注意・情報・禁止　のように四角い枠の中の左側に表示されますよね。
あれが自分の画像を使用してできるのかどうかなんです。
どうぞ宜しく御願い致します
環境は、WindowsXP　Excel2002　です。　　（レイビジョン）

 できません。　(アカギ)

 ユーザーフォームを使い、
 Imageコントロール
 Labelコントロール
 コマンドボタン
 を配置し、

 ユーザーフォームのキャプション
 を変更すれば近いものが出来ると
 思います。
 (MARBIN)

有難う御座いました

 MARBIN様
　どこかに参考にするようなページってありますか？
　宜しく御願い致します　　　　　　　　（レイビジョン）

 VBA、ユーザーフォームについては下記のサイトが参考になりそうです。
 わからないことが出てきたらまた聞いてくださいね。

 エクセルＶＢＡ楽習
http://park14.wakwak.com/~nakama/PcCabinet/ExcelVBA/Section_07/userform.html

 EXCEL　マクロを使ってみる ボタンを作る
http://www.juno-e.com/excel/macro/macro2.htm

 Ｅｘｃｅｌ全開ＶＢＡ
http://www.sigoto.co.jp/excel/
 (MARBIN)※リンク部分の修正ありがとうございます。

 勝手に修正しちゃいました（＾＾）
 （キリキ）(〃⌒o⌒)b

 キリキさん、ありがとうございました。

 コメントはtxtファイルで作り、エクセルVBAで一括で行先頭
 に半角スペースを付加してますのでリンク部も半角空いちゃ
 いました。
 空白行も半角スペースが付いちゃいますのでリンク部分、空
 白行部分には半角スペースを付けないようにマクロの修正し
 ないといけないですね。
 無駄レスすみません。
 ※このコメントは手作業でスペース付けました。
 (MARBIN)

キリキ様　MARBIN様　ありがとうございました

 残念ながら自分の立ち入れる領域ではないようです。
難しいですね！って言うか、どうにもなりません！
少しずつ勉強させて頂きます！　　　（レイビジョン）

 もう見てないかな？

 Alt + F11 キーでVBA画面を開きます。

 挿入→ユーザーフォーム　でユーザーフォームを作成します。

 「表示」→「ツールボックス」でツールボックスを表示させま
 す。

 ツールボックス右下の山の上に月が出ているようなアイコンの
 イメージコントロールをユーザーフォームの適当な位置にドラ
ッグ＆ドロップします。

 ユーザーフォームに貼り付けたイメージコントロール上で右ク
 リックしプロパティを選択します。

 プロパティ中の「PictureSizeMode」をクリックすると右に下
 矢印がでますのでクリックします。

 1のfmPictureSizeModeStretchを選択します。
 ※これでイメージコントロール枠一杯に画像が表示できます。

 次に、「Ａ」マークのラベルコントロールをユーザーフォーム
 にドラッグ＆ドロップします。

 ラベルは、今回は下記のようなコメントを表示するのに使います。
 ↓
 この絵を見てください。あなたなら、どう考えますか？

 ラベルをクリックで選択した状態でもう一度クリックしたらテキ
 ストの編集が出来ます。
 Shift + Enter で改行も出来ます。

 次はコマンドボタンを配置します。
 コマンドボタンは↓
http://www.juno-e.com/excel/macro/macro2.htm

 で赤丸で囲ってあるものです。

 とりあえず二つユーザーフォーム上に配置してみてください。
 配置したボタンをＷクリックしたら↓が表示されると思います。

 Private Sub CommandButton1_Click()

 End Sub

 この
 Private Sub CommandButton1_Click()

と

 End Sub

 の間にコードを書きます。

 コードは今回は動きを見るため、

 MsgBox "１を選択しました。"

 としてみてください。

 同じように二つ目のボタンに

 MsgBox "２を選択しました。"

 とコードを書いてください。
 ※メッセージの代わりに作業を記述してもＯＫです。

 そして、肝心な画像の表示です。

 ユーザーフォームの背景部分(ボタンなどが無い部分)をＷクリック
 してコードを書き込むウィンドウを表示させて表示されているコー
 ドの一番最下行にでも↓のコードを書き込んでください。
 ※画像のパス部分(下線部分)はフルパスで実在のものに置き換えて
 ください。

 Private Sub UserForm_Initialize()
 UserForm1.Image1.Picture = _
   LoadPicture("C:\hoge\RayVision.JPG")
 End Sub　　　　---------------------

 そして最後に左側に表示されているツリー構造のThisWorkbookをＷ
 クリックしてウィンドウを表示させ、

 Private Sub Workbook_Open()
  UserForm1.Show 0
 End Sub

 と入力し、ブックを保存してください。

 ブックを再起動したら画像+コメント+ボタン二つが表示されている
 と思います。

 ボタンのいずれかをクリックしたら先ほど登録しておいたメッセー
 ジが出ます。"ＯＫ"をクリックしたらメッセージは消えます。
 (MARBIN)

有難うございます！

 このサイトは投稿するしないにかかわらず
ＰＣを立ち上げた時は必ず見ています！
（結局毎日見てるっていうことですけど）
本当に勉強になります。
殆どが理解しきれない、難解な数式やＶＢＡですけども
あんなに長い数式や、時には１００列ぐらいになるＶＢＡ
凄い！の一言で驚いてばかりで殆ど身になってませんが、、、
本当にこのようなサイトを運営されている方々と
このサイトで回答されている方々に感謝いたしております。
今後とも宜しく御願い致します。失礼させて頂きます。　（レイビジョン）

コメント返信：

[ 一覧(最新更新順) ]

[[20050811110143]] 『msgbox内に画像を表示できますか？』（レイビジョン） ページの最後に飛ぶ

[[20050811110143]]　『msgbox内に画像を表示できますか？』（レイビジョン）　ページの最後に飛ぶ