根据单元格值更改图像的位置

Question

我需要根据单元格A1中的值更改图像的位置。如果为1，则图像需要低于列c，如果为2，则低于列d，依此类推，最高为5.可能吗？

任何帮助都会被贬低

Answer 1

只需为包含图片的工作表的Change事件编写此vba代码即可。 这里我假设图片名称是“图片1”随意改变

Private Sub Worksheet_Change(ByVal Target As Range)
Dim v
If Target.Address = "$A$1" Then
 v = Target.Value
 If IsNumeric(v) Then
  If v >= 1 And v <= 5 Then
   With Shapes("Picture 1")
    .Top = Cells(1, 2 + v).Top
    .Left = Cells(1, 2 + v).Left
   End With
  End If
 End If
End If
End Sub