すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 楕円が並ぶ模様描画マクロ()     Const ELLPLEFT = 90 　　　　　'描画開始位置Ｘ     Const ELLPTOPP = 85　　　　   '　　　　　　Ｙ     '     Const ELLPCOLS = 9　　　　　  '横/描画数     Const ELLPROWS = 5 　　　　　'縦/描画数     '     Const ELLPWIDT = 20　　　     '楕円幅     Const ELLPHEIG = 30　　　　   '楕円高さ     '     Const ELLPVPIT = 22 　　　　　'横/描画間隔     Const ELLPHPIT = 34　　　　    '縦/描画間隔     '     Const ELLPLNWE = 4　　　　    '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim lngCol As Long     '     lngCol = RGB(0, 139, 139) 　　　'←線色     For Jp = 0 To ELLPROWS - 1         intDyp = E