No.2ベストアンサー
- 回答日時:
次の手順で操作すると、ご希望通り機能すると思います。
Sheet2 の自動車の画像を選択して「名前ボックス」を「自動車」に上書きします。
(現在は、「図 1」などになっていると思います。)
同様に「バイク」の画像にもその名前を付けます。
画像は、自由に増やしてもOKです。
・Sheet1のシート名タブを右クリックして「コードの表示」を指定し、
開いたコードウィンドウに下記コードをコピーして貼り付けます。
・コードの3~4行目を実情に合わせ、図の名称を指定する範囲(絵の数)と表示するセル位置を
設定変更します。
・Alt+ Q (または、右上隅の×)でウィンドウを閉じ、シートに戻ります。
・メニューから[ツール]-->[マクロ]-->[セキュリティ]で「セキュリティレベル」を
「中」にして[OK]します。
・以上で設定完了です。
これで、指定したセル範囲内に画像の「名前」を入力してみてください。
こんな感じで如何でしょうか。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Sp As Picture
Const PicTypeCell = "A1:A5" ' < ---図の名称を指定する範囲
Const PicDispCell = "C5" ' < ---図を表示する位置(左上セル)
If Target.Count > 1 Then Exit Sub
On Error GoTo NothingPic
Application.EnableEvents = False
If Not Intersect(Range(PicTypeCell), Target) Is Nothing Then
For Each Sp In ActiveSheet.Pictures
If Sp.TopLeftCell.Address(False, False) = _
PicDispCell Then Sp.Delete
Next Sp
Sheet2.Shapes(Target.Value).Copy
Range(PicDispCell).Activate
ActiveSheet.Paste
End If
NothingPic:
Target.Activate
Application.EnableEvents = True
End Sub
No.1
- 回答日時:
VBA での処理になると思います。
自動記録と寄せ集めですが、こんなのはいかがでしょうか。
Sheet1 の A1、A2 にはご質問の例題のように入力されていて、
Sheet2 の画像それぞれには名前ボックスを使って、Sheet1 の
A1、A2 と同じ名前がつけられているとします。
Sheet1 タブの右クリックから「コードの表示」を選択し、表示
される画面に下記モジュールをコピペします。
実行は、シングルクリックではなくダブルクリックです。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Dim DT As Variant, TGT As String
Application.ScreenUpdating = False
If Target.Row > 2 Or Target.Column > 1 Then Exit Sub
Range("A1:A2").Select
DT = Selection
TGT = Target.Value
ActiveSheet.Shapes.SelectAll
Selection.Delete
Sheets("Sheet2").Select
ActiveSheet.Shapes(TGT).Select
Selection.Copy
Sheets("Sheet1").Select
Range("C7").Select
ActiveSheet.Paste
Range("A1:A2") = DT
Application.ScreenUpdating = True
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
目当ての中古車バイクが県外の...
-
レッドバロンでアルバイト募集...
-
レブ珍て、どういう意味ですか...
-
エンジン回転数がゆっくりしか...
-
身長180cm以上のひと400ccバイ...
-
スクーターのウェイトローラー...
-
ZZR250の最高速
-
立ちゴケしてチェンジペダルが...
-
ベスパとフリーウェイ加速はど...
-
キーを回さずエンジンを切るには
-
原付のエンジンをかけるとき、...
-
スーパーカブと普通のスクータ...
-
中古バイクの試乗って普通させ...
-
エンジンが熱くないバイク
-
W650かW400か検討しています
-
バイクのエンジンをかけっぱな...
-
バイクの購入、キャンセル料に...
-
バイク屋さんでボアアップをや...
-
中免を取ってバイクを買ったの...
-
レッドバロンでバイクを他の店...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
レブ珍て、どういう意味ですか...
-
目当ての中古車バイクが県外の...
-
レッドバロンでアルバイト募集...
-
カスタムのショップはどこがい...
-
暴走族や、旧車會の人ってバイ...
-
キックスターターが戻らない場...
-
バイク屋さんでボアアップをや...
-
スクーターのウェイトローラー...
-
ZZR250の最高速
-
レッドバロンでバイクを他の店...
-
スクーター自体に体重制限はあ...
-
イナズマ400を買うときの注意点
-
腰痛持ちによいバイクのタイプは?
-
レッドバロンで売りつけられそ...
-
エンジンが熱くないバイク
-
エンジン回転数がゆっくりしか...
-
スクーターの耐荷重量ってどの...
-
身長が高い人に合うバイク
-
バイクから降りた時に...
-
バイクのエンジンをかけっぱな...
おすすめ情報