根據單元格值使用 vba 移動形狀

Question

希望有人能幫我解決這個問題。

我想根據輸入到單元格 E4 中的值將單元格 H4 中的流程圖終止符形狀移動到特定坐標

示例：如果我在單元格 E4 中輸入 0，我希望流程圖終止符形狀移動到頂部 = 110 和左側 = 918

這應該將形狀直接放在關卡圖像的中心，如下面的 H4 所示

到目前為止我得到的唯一部分是如何移動形狀，但我不知道如何將形狀移動與單元格 E4 值的變化相關聯

 Public Sub Test() Dim oShape As Shape Set oShape = ActiveSheet.Shapes("Flowchart: Terminator 123") oShape.Top = 110 oShape.Left = 918 End Sub

結束子

Answer 1

如前所述，您可以使用Worksheet_Change()事件。 您檢查目標是否為 E4，然后檢查該目標的值 (Range obj)。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = Range("E4").Address Then
        If Target.Value = 0 Then
            ActiveSheet.Shapes("Flowchart: Terminator 123").Top = 110
            ActiveSheet.Shapes("Flowchart: Terminator 123").Left = 918
        End If
    End If
End Sub