Доступ к элементу управления

[EdNovice]

Можно ли в коде макроса получить доступ к элементу управления(Checkbox, button, и др) расположенных непосредственно на листах?

[doober]

 Sub R_Shape()

Dim shap As Shape

For Each shap In ActiveSheet.Shapes
   
MsgBox shap.Name & vbCrLf & _
  shap.DrawingObject.Border.Color & vbCrLf _
     & shap.DrawingObject.Height & vbCrLf & _
   shap.DrawingObject.Enabled

Next shap

End Sub