VBA Eagle編

【2】予定線のオートシェイプの書式を読み取る

ユーザに図形の設定シートで設定したもらった予定線と同じオートシェイプの書式で予定線を 描くには、オートシェイプの規定値を変更することで可能としました。ここでもEXCEL2007問題が 発生して代替処理としてコピーすることにしました。
　　If Val(Application.Version) < 12 Then
　　　　　　'規定値を更新
　　　　Worksheets("図形").Shapes("稲妻線").SetShapesDefaultProperties

　　　　With ActiveSheet.Shapes.AddLine(Bx, By, Ex, Ey)
　　　　　　.name = name
　　　　End With
　　Else　　　　'excel 2007 対応
　　　　Worksheets("図形").Shapes("稲妻線").Copy
　　　　ActiveSheet.Paste
　　　　With Selection
　　　　　　.name = name
　　　　　　.Left = Bx
　　　　　　.Top = By
　　　　　　.Height = Ey - By
　　　　　　.Width = Ex - Bx
　　　　End With