чертеж

Направил съм няколко правоъгълника по следния начин:

Sub kvadrat()
a=x1
b=y1
ActiveSheet.Shapes.AddShape(msoShapeRectangle, a, b, 102.75, 89.25). _
Select
End Sub

където x1 и y1 са ми променливи вземащи стойности от някъде другъде.

Може ли някой да ми каже, как след като маркирам някой от правоъгълниците и активирам някакъв макрос да разбера колко е стойността на а и b на маркирания правоъгълник?

ActiveSheet.Shapes("Rectangle 1").Select
x = Selection.Height
y = Selection.Width

Аз си мисля, че човекът иска друго. Според мен му трябва да определи кой от правоъгълниците е маркирал и да използва координатите му за нещо си.

В случая това което си ми дал са дължината и височината на правоъгълника, а не позицията от която започва правоъгълника, а именно това ми трябва (началните координати). nepukis е прав на мене ми е нужно да разбера върху кой от правоъгълниците съм кликнал.

Както си във Visual Basic Editor натисни F2 за Object Browser
От падащия списък <All Libraries> избери Excel
От списъка Classes избери Shape
В дясно ще видиш всички свойства - Top и Left.

10x