久々のCatVBAです。 'catvba sample_DeleteSmallShape '指定した形状ｾｯﾄ内の微少要素の削除 Private Const SmallLength = 0.01 '微少長さ 単位mm Private Const SmallArea = 0.0000000001 '微少面積 単位m^2 Private SmallShapes As Collection '削除要素 Pr…