我可以在VBA中使用shape.width作为条件吗

Question

I would like to use the width of shape as condition in a if. My code below is automatically adding numbers to shapes in range of cells.

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

I tried using shapeTemp.width as conditon in an If. What I want to do is if width of shapeTemp is below 12.97016 then set shapeTemp.TextFrame.Characters.Font = 8 .

I hope I explained my problem clearly.

Answer 1

Instead,

Why don't you make another variable and set the value to ShapeTemp.Width Also like jeeped commented, you need to actually declare 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

You declared the local variable shapeTemp , but you did not set it to anything. You need to set shapeTemp to something. Here is more information about the scope of variables in VBA:

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

There are examples below of how to set shapeTemp .

To create a new shape:

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

To retrieve the first shape that already exists in the shapes collection:

Set shpTemp = ActiveSheet.Shapes(1)

You can also set shpTemp to another existing shape, or you could pass a shape object into your procedure using a parameter/argument.