解決済み

ユーザーフォーム上にアイコンの表示

  • すぐに回答を!
  • 質問No.298947
  • 閲覧数1963
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 75% (315/420)

 VBAでユーザーフォーム上にMsgBox関数のようにvbCritical(警告アイコン)をだしたいのですが、そうゆうことはできないでしょうか?よろしくお願いします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1

ベストアンサー率 68% (791/1163)

原始的な方法です。メッセージボックスのvbCriticalと同じように見えるだけです。

1.vbCritical を使って、メッセージボックスを出してみる。
2.Alt + PrintScreen でメッセージボックスをコピー。
3.Paint を開いて、貼り付け(Alt + PrintScreen したメッセージボックスを貼り付ける)
4.アイコン部分(赤い丸と白い×の箇所ですよね)を選択してコピー
5.Paint で新規作成してコピーした箇所を貼り付け(キャンパスはなるべく小さくしておく)
6.これを保存
7.ユーザーフォーム上にラベル(Label1)を配置
8.ユーザーフォームを開いた時に画像を読み込む
  Private Sub UserForm_Initialize()
    Label1.Picture = LoadPicture("D:\・・・\・・・\・・・.jpg")
  End Sub

単に画像を貼り付けただけです。他の方法は思いつかない。(知らない!がホントです)
アイコンに影もついてメッセージボックスのvbCriticalとほとんど同じになりました!?(Excel2000で確認)
お礼コメント
rufas

お礼率 75% (315/420)

有難うございました。いろいろ調べましたが、教えていただいた方法しかないようですね。これで試してみます。有難うございました。
投稿日時 - 2002-06-25 09:05:50
OKWAVE 20th Be MORE ありがとうをカタチに
このQ&Aで解決しましたか?
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する

特集


より良い社会へ。感謝経済プロジェクト始動

ピックアップ

ページ先頭へ