|
初めて質問させて頂きます。
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
この状態だと、画像が元の場所に戻らないため、画像が重なってしまうことがあります。
そこで画像は、入力されていない場合は元の場所に戻るように改良を加えたいのです。
このコードを使用しなくても構いません。
どなたかヒントを頂けませんか?
|
|