Syntaxfehler, was ist Falsch
12.01.2017 09:49:24
Max2
ich möchte per Code überprüfen welche Farbe ein Shape hat und diesem dann eine bestimmte Größe zuteilen.
Bei meinem Code Ansatz bekomme ich allerdings immer einen Syntax Fehler.
(Fettmarkiert)
Kann mir jemand sagen was falsch ist?
Dim shp As Shape
Dim s
Dim h, w As Double
Set s = ws.Shapes
For Each shp In s
If shp.Fill.ForeColor.RGB = (74, 174, 34) Then
shp.Select
Selection.ShapeRange.Height = h
Selection.ShapeRange.Width = w
End If
Next shp