Shapes mit .hight > als zählen
08.12.2020 12:30:44
Mathias
Ich bin auf der Suche nach einer Möglichkeit die .height-Eigenschaft mehrerer Shapes auszulesen.
Konkret habe ich in meinem Sheet viele Buttons untereinander(Formularsteuerelemente, keine ActiveX)
Einige der Button(Shapes) haben eine .Height von 14 einige wenige eine von 28.
Wie kann ich ermitteln wieviele meiner, z.B. 32, Buttons eine .Height von >14 haben?
Ich bin euch für einen Vorschlag oder Lösung schon mal im Vorraus sehr dankbar. Falls ihr dazu sogar eine kurze Erklärung hättet wäre es noch toller, denn ich will dabei ja auch etwas lernen und nicht nur Copy paste machen.
Viele Grüße Mathias
Die Buttons zähle ich mit:
Sub countRangeImg()
Cnt = 0
For Each shp In ActiveSheet.Shapes
If Not Application.Intersect(Range("K1:K57"), shp.TopLeftCell) Is Nothing Then Cnt = Cnt + _
_
_
1
Next
MsgBox Cnt
End Sub