「形状ｾｯﾄ内の、線のみの長さを取得したい」と言う質問を頂きました。 早速ｺｰﾄﾞです。(「選択」部分付近のｺｰﾄﾞが正しくなかった為、修正しました) 'vba GetCurvesLength Sub CATMain() '選択 Dim Msg$: Msg = "形状ｾｯﾄを選択して下さい" Dim SelItem As Sele…