如何根據單元格值更改形狀的高度？

Question

當單元格值發生更改時，我正在嘗試根據單元格中的內容自動更改形狀高度。

棘手的部分是每 1000 個輸入到該單元格的高度將是 1"。

我認為它會像下面這樣，但這是基於范圍的，沒有考慮到比率，而且非常乏味。

Private Sub Worksheet_ShapeHeight()
    
If Range("C8").Value >= 1000 And Range("").Value <= 2000 Then
        
    Shapes("Rectangle 1").Height = 1
    
Else
    
    If Range("C8").Value >= 2000 And Range("").Value <= 3000 Then
        
        Shapes("Rectangle 1").Height = 2

        '---And so on..

End Sub

Sheet1 的屏幕截圖

Answer 1

也許像下面這樣。 請注意， Shape.Height的單位是磅，而不是英寸。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Me.Range("C8")) Is Nothing Then Exit Sub
    
    Dim calcHeight As Single
    calcHeight = Int(Me.Range("C8").Value / 1000) * 72 ' 72 points per inch
    
    Me.Shapes("Rectangle 1").Height = calcHeight
End Sub