Excel VBA質問箱 IV

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

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


5738 / 76732 ←次へ | 前へ→

【76601】画像の移動
質問  vbaビギナー  - 15/2/6(金) 14:23 -

引用なし
パスワード
   初めて質問させて頂きます。

VBAを使用して社内業務の一部簡略化を図るべく
手探りで組んでみているのですがどうしても分からないので
どなたかお力添えお願いします。

こちらでやりたい事は特定の文字を入力すると、それに対応した画像を特定のシート上の
特定の座標(セルでも可)へ移動したいというものです。

いろいろなサイトを参考にし、自分なりに作ってみたものの、綺麗に収まらず困っています。
こちらが作成したコードです。


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
If Target.Count <> 1 Then Exit Sub
Select Case Target.Value
Case "みかん"
Shapes(1).Top = Target.Top
Shapes(1).Left = Target.Width
Case "りんご"
Shapes(2).Top = Target.Top
Shapes(2).Left = Target.Width
Case "さかな"
Shapes(3).Top = Target.Top
Shapes(3).Left = Target.Width
Case "牛乳"
Shapes(4).Top = Target.Top
Shapes(4).Left = Target.Width
Case "こおり"
Shapes(5).Top = Target.Top
Shapes(5).Left = Target.Width
End Select
End Sub

この状態だと、画像が元の場所に戻らないため、画像が重なってしまうことがあります。
そこで画像は、入力されていない場合は元の場所に戻るように改良を加えたいのです。

このコードを使用しなくても構いません。
どなたかヒントを頂けませんか?

1 hits

【76601】画像の移動 vbaビギナー 15/2/6(金) 14:23 質問[未読]
【76602】Re:画像の移動 β 15/2/6(金) 19:49 発言[未読]
【76603】Re:画像の移動 β 15/2/6(金) 20:45 発言[未読]
【76606】Re:画像の移動 vbaビギナー 15/2/9(月) 8:33 お礼[未読]
【76604】Re:画像の移動 マナ 15/2/7(土) 13:54 発言[未読]
【76605】Re:画像の移動 マナ 15/2/7(土) 17:34 発言[未読]
【76607】Re:画像の移動 vbaビギナー 15/2/9(月) 8:37 お礼[未読]

5738 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free