図形の座標を提供するShpClsを育ててみる。
chemiphys.hateblo.jp 前の記事で思ったクラスの一つ目，物体の座標を提供するクラスを作ってみました。 Shpcls.cls (ちょっと更新) Option Explicit Private pShp As Shape Public Sub SetShp(図形 As Shape) Set pShp = 図形 End Sub Property Get X() As Currency X = pShp.Left + pShp.Width / 2 End Property Propert…
