Excel VBA質問箱 IV

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

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


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

41961 / 76732

←次へ　｜　前へ→


	【39845】UserFormへの画像の張り付け方

わいわい - 06/7/2(日) 22:18 -


	引用なし

	パスワード

いつもお世話になります。いま、Sheet1のSelectionChangeイベントでUserFormの画像を切り替えるマクロを作っています。画像ファイルを外部に置いておく方法は、以下のように出来たのですが、Excelファイルのシート上にObjectとして配置したものを呼び出す方法が分かりません。どなたか回答宜しくお願いいたします。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 　　With Target 　　　　TR = .Row 　　　　TC = .Column 　　　　TT = .Top 　　　　TL = .Left 　　End With 　　m = Cells(TR, 1).Value 　　If m = 11 Or m = 12 Or m = 13 Then 　　　　UserForm1.Image1.Picture = LoadPicture("C:\000" & m & ".JPG") 　　Else 　　　　UserForm1.Image1.Picture = LoadPicture("C:\00000.JPG") 　　End If End Sub 　　　　　<UserForm1> ┏━━━━━━━━━━━━━┓ ┃┌－－－－－－－－－－－┐┃ ┃｜　　　　　　　　　　　｜┃ ┃｜　　　　　　　　　　　｜┃ ┃｜　　　 Picture　　　　｜┃ ┃｜　　　　　　　　　　　｜┃ ┃└－－－－－－－－－－－┘┃ ┃　　　　　　　　┌－－－┐┃ ┃　　　　　　　　└－－－┘┃ ┗━━━━━━━━━━━━━┛ >>　　Worksheets("Sheet2").Shapes("Object 1")の指定方が分かりません。