|
Hirofumi さん
うまく行きました。
Private Function LineSelected(lngP As Long, _
lngQ As Long, _
lngS As Long, _
lngR As Long, _
Right1 As Long, _
Left1 As Long, _
Top1 As Long, _
Under1 As Long, _
Right2 As Long, _
Left2 As Long, _
Top2 As Long, _
Under2 As Long) As String
ここを
Private Function LineSelected(ByVal lngP As Long, _
ByVal lngQ As Long, _
ByVal lngS As Long, _
ByVal lngR As Long, _
ByVal Right1 As Long, _
ByVal Left1 As Long, _
ByVal Top1 As Long, _
ByVal Under1 As Long, _
ByVal Right2 As Long, _
ByVal Left2 As Long, _
ByVal Top2 As Long, _
ByVal Under2 As Long) As String
に変更してばっちりです。コードが100行も短縮されてすっきりしました。
展開図作成マクロを作ったのですが、選択されている直線の傾きを調べるのに四苦八苦しました。
結局、3つの辺がどの様にくっついているか全て調べ上げ、こんな分岐の多いコードになってしまいました。
またお世話になるかもしれませんが今後ともよろしくお願いします。
有難うございました。
|
|