我可以在VBA中使用shape.width作為條件嗎

Question

我想在if中使用形狀的寬度作為條件。 我下面的代碼是自動將數字添加到單元格范圍內的形狀上。

Sub numShapeMasqueD()

    Dim shapeTemp As Shape
    Dim masqueD As Range
    Dim cpt As Integer
    Dim row As Long, col As Long
    Set masqueD = Range("h22:r31")
    cpt = 1

    For row = 1 To masqueD.Rows.Count
        For col = 1 To masqueD.Columns.Count 
            For Each shapeTemp In ActiveSheet.Shapes
                If Not Intersect(masqueD.Cells(row, col), shapeTemp.TopLeftCell) Is Nothing Then
                        shapeTemp.TextFrame.Characters.Text = cpt 
                        cpt = cpt + 1
                End If
            Next shapeTemp
        Next col
    Next row

End Sub

我嘗試使用shapeTemp.width作為shapeTemp.width中的條件。 我想做的是，如果shapeTemp的寬度低於12.97016，然后設置shapeTemp.TextFrame.Characters.Font = 8 。

我希望我能清楚地解釋我的問題。

Answer 1

代替，

為什么不制作另一個變量並將其值設置為ShapeTemp.Width就像吉普車注釋一樣，您實際上需要聲明shapeTemp。

Dim shapeTemp as Shape
Dim shapeWidth as Double

shapeWidth = shapeTemp.Width

If shapeWidth = 12.907016 then
   shapeTemp.TextFrame.Characters.Font = 8
End If

Answer 2

您聲明了局部變量shapeTemp ，但未將其設置為任何值。 您需要將shapeTemp設置為某種值。 這是有關VBA中變量范圍的更多信息：

https://support.microsoft.com/en-us/help/141693/scope-of-variables-in-visual-basic-for-applications

以下是有關如何設置shapeTemp 。

要創建新形狀：

Set shpTemp = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 10, 10, 100, 100)

要檢索shapes集合中已經存在的第一個形狀：

Set shpTemp = ActiveSheet.Shapes(1)

您還可以將shpTemp設置為另一個現有形狀，或者可以使用參數/參數將形狀對象傳遞到過程中。