ここから本文です

excelVBAで質問させてください。

tad********さん

2019/2/2611:09:03

excelVBAで質問させてください。

ユーザーフォーム上に画像を表示させたいのですが、画像が複数あり、全ていっしょに表示させると小さくなるのでコマンドボタンなどを押すと一つずつ順に表示させるようにしたいのです。
コードを教えていただけませんか。

閲覧数:
50
回答数:
1

違反報告

ベストアンサーに選ばれた回答

prs********さん

2019/2/2710:55:42

こんな感じでいかがですか。
ボタンを押す毎に変数 d がステップアップ
して配列でピクチャにプールの画像を操作します。

Dim d As Long
Private Sub CommandButton1_Click()
Dim temp As Variant
Dim a, b, c As String
temp = Array("s1", "s2", "s3")
b = temp(d)
Me.Picture = LoadPicture("C:\Users\Owner\Pictures\" & b & ".bmp")
d = d + 1
If d = 3 Then
d = 0
End If
End Sub

こんな感じでいかがですか。
ボタンを押す毎に変数 d がステップアップ...

  • 質問者

    tad********さん

    2019/2/2711:48:02

    ありがとうございます!
    試させていただいたのですが、画像が2つまでしか表示されないのです。
    あと、一行目のdのdim文はsubの中に入れて良いのですよね?

  • その他の返信(5件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2019/3/1 20:05:33

何度も返信にお付き合い頂きありがとうございました。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる